| | |
| | |
| | |
| | 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 =".*?"
Dim re2 As String
re2 ="1"
Dim re3 As String
re3 =".*?"
Dim re4 As String
re4 ="1"
Dim re5 As String
re5 =".*?"
Dim re6 As String
re6 ="(1)"
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 re44 As String
re44 ="."
Dim re45 As String
re45 =".*?"
Dim re46 As String
re46 ="."
Dim re47 As String
re47 =".*?"
Dim re48 As String
re48 ="."
Dim re49 As String
re49 =".*?"
Dim re50 As String
re50 ="(.)"
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+re44+re45+re46+re47+re48+re49+re50
r.IgnoreCase = True
Dim m As MatchCollection
Set m = r.Execute(txt)
If m.Item(0).SubMatches.Count > 0 Then
Dim d1
d1=m.Item(0).SubMatches.Item(0)
Dim c1
c1=m.Item(0).SubMatches.Item(1)
MsgBox("("+d1+")"+"("+c1+")"+"")
End If
End Sub
| | |
|
|
  |