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 :
O
c O
wO
c
c c
wc
t
c t
wt
usstatect
varOct
wordOct
monthOct
:
c :
2
c 2
d2
0
c 0
d0
1
c 1
d1
8
c 8
d8
day18
year2018
int2018
ddmmmyyyy11:Oct: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
 
3VBScript 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-vbscript.php3?s=11:Oct:2018%20%22This%20is%20an%20Example!%22&54&49 >

<%@ LANGUAGE="VBSCRIPT" %>
<%
  Dim txt
  txt ="11:Oct:2018 ""This is an Example!"""

  Dim re1
  re1 =".*?"	'Non-greedy match on filler
  Dim re2
  re2 ="."	'Uninteresting: c
  Dim re3
  re3 =".*?"	'Non-greedy match on filler
  Dim re4
  re4 ="."	'Uninteresting: c
  Dim re5
  re5 =".*?"	'Non-greedy match on filler
  Dim re6
  re6 ="."	'Uninteresting: c
  Dim re7
  re7 =".*?"	'Non-greedy match on filler
  Dim re8
  re8 ="."	'Uninteresting: c
  Dim re9
  re9 =".*?"	'Non-greedy match on filler
  Dim re10
  re10 ="."	'Uninteresting: c
  Dim re11
  re11 =".*?"	'Non-greedy match on filler
  Dim re12
  re12 ="."	'Uninteresting: c
  Dim re13
  re13 =".*?"	'Non-greedy match on filler
  Dim re14
  re14 ="."	'Uninteresting: c
  Dim re15
  re15 =".*?"	'Non-greedy match on filler
  Dim re16
  re16 ="."	'Uninteresting: c
  Dim re17
  re17 =".*?"	'Non-greedy match on filler
  Dim re18
  re18 ="."	'Uninteresting: c
  Dim re19
  re19 =".*?"	'Non-greedy match on filler
  Dim re20
  re20 ="."	'Uninteresting: c
  Dim re21
  re21 =".*?"	'Non-greedy match on filler
  Dim re22
  re22 ="."	'Uninteresting: c
  Dim re23
  re23 =".*?"	'Non-greedy match on filler
  Dim re24
  re24 ="."	'Uninteresting: c
  Dim re25
  re25 =".*?"	'Non-greedy match on filler
  Dim re26
  re26 ="."	'Uninteresting: c
  Dim re27
  re27 =".*?"	'Non-greedy match on filler
  Dim re28
  re28 ="."	'Uninteresting: c
  Dim re29
  re29 =".*?"	'Non-greedy match on filler
  Dim re30
  re30 ="."	'Uninteresting: c
  Dim re31
  re31 =".*?"	'Non-greedy match on filler
  Dim re32
  re32 ="."	'Uninteresting: c
  Dim re33
  re33 =".*?"	'Non-greedy match on filler
  Dim re34
  re34 ="."	'Uninteresting: c
  Dim re35
  re35 ="(.)"	'Any Single Character 1
  Dim re36
  re36 =".*?"	'Non-greedy match on filler
  Dim re37
  re37 ="."	'Uninteresting: c
  Dim re38
  re38 =".*?"	'Non-greedy match on filler
  Dim re39
  re39 ="."	'Uninteresting: c
  Dim re40
  re40 =".*?"	'Non-greedy match on filler
  Dim re41
  re41 ="."	'Uninteresting: c
  Dim re42
  re42 =".*?"	'Non-greedy match on filler
  Dim re43
  re43 ="."	'Uninteresting: c
  Dim re44
  re44 =".*?"	'Non-greedy match on filler
  Dim re45
  re45 ="."	'Uninteresting: c
  Dim re46
  re46 =".*?"	'Non-greedy match on filler
  Dim re47
  re47 ="."	'Uninteresting: c
  Dim re48
  re48 =".*?"	'Non-greedy match on filler
  Dim re49
  re49 ="."	'Uninteresting: c
  Dim re50
  re50 =".*?"	'Non-greedy match on filler
  Dim re51
  re51 ="."	'Uninteresting: c
  Dim re52
  re52 =".*?"	'Non-greedy match on filler
  Dim re53
  re53 ="."	'Uninteresting: c
  Dim re54
  re54 =".*?"	'Non-greedy match on filler
  Dim re55
  re55 ="."	'Uninteresting: c
  Dim re56
  re56 =".*?"	'Non-greedy match on filler
  Dim re57
  re57 ="."	'Uninteresting: c
  Dim re58
  re58 =".*?"	'Non-greedy match on filler
  Dim re59
  re59 ="."	'Uninteresting: c
  Dim re60
  re60 =".*?"	'Non-greedy match on filler
  Dim re61
  re61 ="."	'Uninteresting: c
  Dim re62
  re62 =".*?"	'Non-greedy match on filler
  Dim re63
  re63 ="."	'Uninteresting: c
  Dim re64
  re64 =".*?"	'Non-greedy match on filler
  Dim re65
  re65 ="(.)"	'Any Single Character 2

  Dim r
  Set r = 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+re51+re52+re53+re54+re55+re56+re57+re58+re59+re60+re61+re62+re63+re64+re65
  r.IgnoreCase = True
  Dim m
  Set m = r.Execute(txt)
  If m.Item(0).SubMatches.Count > 0 Then
      Dim c1
      c1=m.Item(0).SubMatches.Item(0)
      Dim c2
      c2=m.Item(0).SubMatches.Item(1)
      Response.Write("("+Replace(c1,"<","&lt;")+")"+"("+Replace(c2,"<","&lt;")+")"+"")
  End If
%>

<!------->
<!-- To run this code:-->
<!------->
<!-- .Paste into text file using notepad into IIS Web Server wwwroot directory.-->
<!------->
<!-- .Or if using Microsoft's development environment use 'paste as html' if available.-->
<!------->
 
 
  home     faq              ©2006 mark james ennis