VBA 正则表达式中的后向查找？

Question

有没有办法在 VBA 正则表达式中进行负向和正向向后查找？

如果字符串以“A”开头，我不想匹配，所以我目前正在模式的开头执行 ^A，然后删除 match(0) 的第一个字符。显然不是最好的方法！

我正在使用 regExp 对象。

Answer 1

VBA 提供前瞻（正向和负向），但不一致不提供后向查看。

我见过的将 Regex 与 VBA 结合使用的最佳示例是 本文，作者：Patrick Matthews。

[使用执行而不是替换更新示例]

虽然我不完全清楚您的用法，但您可以使用这样的函数：

• 它会跳过任何以 a 或 A 开头的单词（不区分大小写）。
• 对于所有不以 a/A 开头的单词，它返回从第二个字符开始的所有内容。这是通过使用子匹配来实现的（( and ) 内的模式是第一个子匹配）。

要了解完整的模式，您可以参考regex101的说明。

    Sub TestString()
       MsgBox ReducedText("cfat dcat")
       ' results in:        fat  cat
       MsgBox ReducedText("Sat all over the hat again")
       ' results in:        at      ver  he  at
    End Sub

    Function ReducedText(strIn As String) As String
       Dim objRegex As Object
       Dim objRegMC As Object
       Dim objRegM As Object
       Dim strOut As String
       Set objRegex = CreateObject("vbscript.regexp")
       With objRegex
          .IgnoreCase = True
          'not needed if matching the whole string
          .Global = True
          .Pattern = "\b[^a\s]([a-z]+)"
          If .test(strIn) Then
             Set objRegMC = .Execute(strIn)
             For Each objRegM In objRegMC
                strOut = strOut & objRegM.submatches(0) & vbNewLine
             Next
             ReducedText = strOut
          Else
             ReducedText = "Starts with A"
          End If
       End With
    End Function

Answer 2

将 ^A 放入非捕获组并使用 Match 对象的 SubMatches 属性来获取匹配值怎么样？