txt 2 re
knowing is obsolete :: regular expression generator (perl php python java javascript coldfusion c c++ ruby vb vbscript j# c# c++.net vb.net)
 
 
 
Enter the string that you want to use a regular expression on:
1
   
 
Select the elements that you want to extract to run regular expression generator:
2
1
c 1
d1
1
c 1
d1
day11
int11
:
c :
J
c J
wJ
u
c u
wu
l
c l
wl
varJul
wordJul
monthJul
:
c :
2
c 2
d2
0
c 0
d0
1
c 1
d1
8
c 8
d8
day18
year2018
int2018
ddmmmyyyy11:Jul:2018
_
c _
ws_
"
c "
T
c T
wT
h
c h
wh
i
c i
wi
s
c s
ws
varThis
wordThis
_
c _
ws_
i
c i
wi
s
c s
ws
varis
wordis
_
c 
ws_
a
c a
wa
n
c n
wn
varan
wordan
_
c _
ws_
E
c E
wE
x
c x
wx
a
c a
wa
m
c m
wm
p
c p
wp
l
c l
wl
e
c e
we
varExample
wordExample
!
c !
"
c "
string"This_is_an_Example!"
< Source String
What to click?  extract any integer in this position
extract this integer (2006) in this position
 
3VB6 regular expression program that extracts the selected elements from the entered string:
Perl PHP Python Java Javascript ColdFusion C C++ Ruby [VB] VBScript J#.net C#.net C++.net VB.net 
 
' URL that generated this code:
' http://txt2re.com/index-vb6.php3?s=11:Jul:2018%20%22This%20is%20an%20Example!%22&49

Private Sub Command1_Click()
  Dim txt As String
  txt ="11:Jul:2018 ""This is an Example!"""

  Dim re1 As String
  re1 =".*?"	'Non-greedy match on filler
  Dim re2 As String 
  re2 ="."	'Uninteresting: c
  Dim re3 As String
  re3 =".*?"	'Non-greedy match on filler
  Dim re4 As String 
  re4 ="."	'Uninteresting: c
  Dim re5 As String
  re5 =".*?"	'Non-greedy match on filler
  Dim re6 As String 
  re6 ="."	'Uninteresting: c
  Dim re7 As String
  re7 =".*?"	'Non-greedy match on filler
  Dim re8 As String 
  re8 ="."	'Uninteresting: c
  Dim re9 As String
  re9 =".*?"	'Non-greedy match on filler
  Dim re10 As String 
  re10 ="."	'Uninteresting: c
  Dim re11 As String
  re11 =".*?"	'Non-greedy match on filler
  Dim re12 As String 
  re12 ="."	'Uninteresting: c
  Dim re13 As String
  re13 =".*?"	'Non-greedy match on filler
  Dim re14 As String 
  re14 ="."	'Uninteresting: c
  Dim re15 As String
  re15 =".*?"	'Non-greedy match on filler
  Dim re16 As String 
  re16 ="."	'Uninteresting: c
  Dim re17 As String
  re17 =".*?"	'Non-greedy match on filler
  Dim re18 As String 
  re18 ="."	'Uninteresting: c
  Dim re19 As String
  re19 =".*?"	'Non-greedy match on filler
  Dim re20 As String 
  re20 ="."	'Uninteresting: c
  Dim re21 As String
  re21 =".*?"	'Non-greedy match on filler
  Dim re22 As String 
  re22 ="."	'Uninteresting: c
  Dim re23 As String
  re23 =".*?"	'Non-greedy match on filler
  Dim re24 As String 
  re24 ="."	'Uninteresting: c
  Dim re25 As String
  re25 =".*?"	'Non-greedy match on filler
  Dim re26 As String 
  re26 ="."	'Uninteresting: c
  Dim re27 As String
  re27 =".*?"	'Non-greedy match on filler
  Dim re28 As String 
  re28 ="."	'Uninteresting: c
  Dim re29 As String
  re29 =".*?"	'Non-greedy match on filler
  Dim re30 As String 
  re30 ="."	'Uninteresting: c
  Dim re31 As String
  re31 =".*?"	'Non-greedy match on filler
  Dim re32 As String 
  re32 ="."	'Uninteresting: c
  Dim re33 As String
  re33 =".*?"	'Non-greedy match on filler
  Dim re34 As String 
  re34 ="."	'Uninteresting: c
  Dim re35 As String
  re35 =".*?"	'Non-greedy match on filler
  Dim re36 As String 
  re36 ="."	'Uninteresting: c
  Dim re37 As String
  re37 =".*?"	'Non-greedy match on filler
  Dim re38 As String 
  re38 ="."	'Uninteresting: c
  Dim re39 As String
  re39 =".*?"	'Non-greedy match on filler
  Dim re40 As String 
  re40 ="."	'Uninteresting: c
  Dim re41 As String
  re41 ="(.)"	'Any Single Character 1

  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
  r.IgnoreCase = True
  Dim m As MatchCollection
  Set m = r.Execute(txt)
  If m.Item(0).SubMatches.Count > 0 Then
      Dim c1
      c1=m.Item(0).SubMatches.Item(0)
      MsgBox("("+c1+")"+"")
  End If
End Sub

'-----
' To run this code:
' .Start Microsoft Visual Basic 6.0.
' .On the File menu, click New Project.
' .Click Standard Exe in the New Project dialog box, and then click OK.
' .On the Project menu, click References.
' .Double-click Microsoft VBScript Regular Expressions 5.5, and then click OK.
'   (If you can't find this option, download "Microsoft Windows Script 5.6"
'     from Microsoft)
' .In the toolbox, double-click CommandButton.
' .Double-click Command1 to open the Code window.
' .Paste the code above into the Command1_Click event handler:
'-----
 
 
  home     faq              ©2006 mark james ennis