Private Sub Command1_Click()
Dim txt As String
txt ="08:Nov:2018 ""This is an Example!"""
Dim re1 As String
re1 =".*?"
Dim re2 As String
re2 ="((?:[a-z][a-z0-9_]*))"
Dim re3 As String
re3 =".*?"
Dim re4 As String
re4 ="(?:[a-z][a-z0-9_]*)"
Dim re5 As String
re5 =".*?"
Dim re6 As String
re6 ="((?:[a-z][a-z0-9_]*))"
Dim r As New RegExp
r.Pattern = re1+re2+re3+re4+re5+re6
r.IgnoreCase = True
Dim m As MatchCollection
Set m = r.Execute(txt)
If m.Item(0).SubMatches.Count > 0 Then
Dim var1
var1=m.Item(0).SubMatches.Item(0)
Dim var2
var2=m.Item(0).SubMatches.Item(1)
MsgBox("("+var1+")"+"("+var2+")"+"")
End If
End Sub
|