VBA之基礎版
Sub RegExpDemoSyntax()
Dim objRegEx As Object
Set objRegEx = CreateObject("vbscript.regexp")
objRegEx.Pattern = "Name:(.*?),Phone:(\d+)"
objRegEx.Global = True
myString = "Name:小溪,Phone:1029930140197"
Set objMH = objRegEx.Execute(myString)
If objMH.Count > 0 Then
With objMH(j)
Debug.Print .submatches(0), .submatches(1)
End With
End If
Set objRegEx = Nothing
End Sub