Private Sub Command1_Click()
Dim txt As String
txt ="11:Jan:2019 ""This is an Example!"""
Dim re1 As String
re1 =".*?"
Dim re2 As String
re2 ="[a-z]"
Dim re3 As String
re3 =".*?"
Dim re4 As String
re4 ="[a-z]"
Dim re5 As String
re5 =".*?"
Dim re6 As String
re6 ="[a-z]"
Dim re7 As String
re7 =".*?"
Dim re8 As String
re8 ="[a-z]"
Dim re9 As String
re9 =".*?"
Dim re10 As String
re10 ="[a-z]"
Dim re11 As String
re11 =".*?"
Dim re12 As String
re12 ="[a-z]"
Dim re13 As String
re13 =".*?"
Dim re14 As String
re14 ="[a-z]"
Dim re15 As String
re15 =".*?"
Dim re16 As String
re16 ="[a-z]"
Dim re17 As String
re17 ="([a-z])"
Dim r As New RegExp
r.Pattern = re1+re2+re3+re4+re5+re6+re7+re8+re9+re10+re11+re12+re13+re14+re15+re16+re17
r.IgnoreCase = True
Dim m As MatchCollection
Set m = r.Execute(txt)
If m.Item(0).SubMatches.Count > 0 Then
Dim w1
w1=m.Item(0).SubMatches.Item(0)
MsgBox("("+w1+")"+"")
End If
End Sub
|