| | |
| | |
| | |
| | Enter the string that you want to use a regular expression on: |
|
| | Select the elements that you want to extract to run regular expression generator: |
2 | | What to click? | extract any integer in this position |  | extract this integer (2006) in this position |
| |
|
| |
3 | | VB6 regular expression program that extracts the selected elements from the entered string: |
| | | | |
Private Sub Command1_Click()
Dim txt As String
txt ="11:Jan:2019 ""This is an Example!"""
Dim re1 As String
re1 ="(11:Jan:2019)"
Dim re2 As String
re2 =".*?"
Dim re3 As String
re3 ="."
Dim re4 As String
re4 =".*?"
Dim re5 As String
re5 ="."
Dim re6 As String
re6 =".*?"
Dim re7 As String
re7 ="."
Dim re8 As String
re8 =".*?"
Dim re9 As String
re9 ="."
Dim re10 As String
re10 =".*?"
Dim re11 As String
re11 ="."
Dim re12 As String
re12 =".*?"
Dim re13 As String
re13 ="."
Dim re14 As String
re14 =".*?"
Dim re15 As String
re15 ="."
Dim re16 As String
re16 =".*?"
Dim re17 As String
re17 ="."
Dim re18 As String
re18 =".*?"
Dim re19 As String
re19 ="."
Dim re20 As String
re20 =".*?"
Dim re21 As String
re21 ="."
Dim re22 As String
re22 =".*?"
Dim re23 As String
re23 ="."
Dim re24 As String
re24 =".*?"
Dim re25 As String
re25 ="."
Dim re26 As String
re26 =".*?"
Dim re27 As String
re27 ="."
Dim re28 As String
re28 =".*?"
Dim re29 As String
re29 ="."
Dim re30 As String
re30 =".*?"
Dim re31 As String
re31 ="."
Dim re32 As String
re32 =".*?"
Dim re33 As String
re33 ="."
Dim re34 As String
re34 =".*?"
Dim re35 As String
re35 ="."
Dim re36 As String
re36 =".*?"
Dim re37 As String
re37 ="."
Dim re38 As String
re38 =".*?"
Dim re39 As String
re39 ="."
Dim re40 As String
re40 =".*?"
Dim re41 As String
re41 ="."
Dim re42 As String
re42 =".*?"
Dim re43 As String
re43 ="(.)"
Dim r As New RegExp
r.Pattern = re1+re2+re3+re4+re5+re6+re7+re8+re9+re10+re11+re12+re13+re14+re15+re16+re17+re18+re19+re20+re21+re22+re23+re24+re25+re26+re27+re28+re29+re30+re31+re32+re33+re34+re35+re36+re37+re38+re39+re40+re41+re42+re43
r.IgnoreCase = True
Dim m As MatchCollection
Set m = r.Execute(txt)
If m.Item(0).SubMatches.Count > 0 Then
Dim ddmmmyyyy1
ddmmmyyyy1=m.Item(0).SubMatches.Item(0)
Dim c1
c1=m.Item(0).SubMatches.Item(1)
MsgBox("("+ddmmmyyyy1+")"+"("+c1+")"+"")
End If
End Sub
| | |
|
|
  |