Private Sub Command1_Click()
Dim txt As String
txt ="42 43"
Dim re1 As String
re1 =".*?"
Dim re2 As String
re2 ="(\s+)"
Dim re3 As String
re3 ="(\d+)"
Dim r As New RegExp
r.Pattern = re1+re2+re3
r.IgnoreCase = True
Dim m As MatchCollection
Set m = r.Execute(txt)
If m.Item(0).SubMatches.Count > 0 Then
Dim ws1
ws1=m.Item(0).SubMatches.Item(0)
Dim int1
int1=m.Item(0).SubMatches.Item(1)
MsgBox("("+ws1+")"+"("+int1+")"+"")
End If
End Sub
|