regex (ABV) - répéter un motif

Question

Mon code est:

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) 

je veux qu'il MSGBOX 37 puis me MSGBOX mais il ne me msgboxes.

Answer 1

Désolé, cette réponse est pour Excel, mais peut-être que ça va vous aider à mettre sur la bonne voie. VBA ne supporte pas lookbehind, mais vu la situation, il y a moyen de le faire (en utilisant une sous-chaîne de l'original).

Voici le code. texte en supposant était dans la cellule A1, voici ce que vous écrivez:

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

Il produirait le résultat: "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

Vous devez faire le match non gourmand, comme ceci:

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