正则表达式 (vba) - 重复一个模式

Question

我的代码是：

Dim regEx, retVal
' Create regular expression.
set text = "update my_table      set time4 = sysdate,      randfield7 = 'FAeKE',      randfield3 = 'MyE',      the_field9 = 'test'      WHERE my_key = '37',             tymy_key = 'me';"
Set regEx = CreateObject("vbscript.regexp")
regEx.pattern = ".+where.+ \'(.+)\'+.*;"
regEx.IgnoreCase = True
regEx.MultiLine = True
regEx.Global = True

Set objRegexMC = regEx.Execute(text)
MsgBox objRegexMC(0).SubMatches(0)

我希望它发送到 msgbox 37，然后发送到 msgbox 我，但它只发送 msgboxes 我。

Answer 1

抱歉，此答案适用于 Excel，但也许它会帮助您走上正轨。 VBA 不支持lookbehind，但是根据您的情况，有一种方法可以做到这一点（使用原始的子字符串）。

这里是代码。假设文本在单元格 A1 中，您要写的内容如下：

=RegexExtract(RegexExtract(A1,"WHERE(.+)"),"\'(\w+)\'")

它会产生结果：“37, me”

Function RegexExtract(ByVal text As String, _
                      ByVal extract_what As String, _
                      Optional seperator As String = ", ") As String

Application.ScreenUpdating = False
Dim i As Long, j As Long
Dim result As String
Dim allMatches As Object, RE As Object
Set RE = CreateObject("vbscript.regexp")

RE.Pattern = extract_what
RE.Global = True
Set allMatches = RE.Execute(text)

With allMatches
For i = 0 To .Count - 1
    For j = 0 To .Item(j).submatches.Count - 1
        result = result & (seperator & .Item(i).submatches.Item(j))
    Next
Next
End With

If Len(result) <> 0 Then
    result = Right$(result, Len(result) - Len(seperator))
End If

RegexExtract = result
Application.ScreenUpdating = True

End Function

Answer 2

你需要使匹配不贪心，像这样：

regEx.pattern = "where.+?\'(.+?)\'.+?\'(.+?)\'"