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
0
 0
d0
9
c 9
d9
day09
int09
:
c :
M
c M
wM
a
c a
wa
r
c r
wr
usstatear
varMar
wordMar
monthMar
:
c :
2
c 2
d2
0
c 0
d0
1
c 1
d1
8
c 8
d8
day18
year2018
int2018
ddmmmyyyy09:Mar: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
w
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=09:Mar:2018%20%22This%20is%20an%20Example!%22&-55&28 >

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

  Dim re1
  re1 ="(0)"	'Any Single Character 1
  Dim re2
  re2 =".*?"	'Non-greedy match on filler
  Dim re3
  re3 ="[a-z]"	'Uninteresting: w
  Dim re4
  re4 =".*?"	'Non-greedy match on filler
  Dim re5
  re5 ="[a-z]"	'Uninteresting: w
  Dim re6
  re6 =".*?"	'Non-greedy match on filler
  Dim re7
  re7 ="[a-z]"	'Uninteresting: w
  Dim re8
  re8 =".*?"	'Non-greedy match on filler
  Dim re9
  re9 ="[a-z]"	'Uninteresting: w
  Dim re10
  re10 =".*?"	'Non-greedy match on filler
  Dim re11
  re11 ="[a-z]"	'Uninteresting: w
  Dim re12
  re12 =".*?"	'Non-greedy match on filler
  Dim re13
  re13 ="[a-z]"	'Uninteresting: w
  Dim re14
  re14 =".*?"	'Non-greedy match on filler
  Dim re15
  re15 ="[a-z]"	'Uninteresting: w
  Dim re16
  re16 =".*?"	'Non-greedy match on filler
  Dim re17
  re17 ="[a-z]"	'Uninteresting: w
  Dim re18
  re18 =".*?"	'Non-greedy match on filler
  Dim re19
  re19 ="[a-z]"	'Uninteresting: w
  Dim re20
  re20 =".*?"	'Non-greedy match on filler
  Dim re21
  re21 ="([a-z])"	'Any Single Word Character (Not Whitespace) 1

  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
  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 w1
      w1=m.Item(0).SubMatches.Item(1)
      Response.Write("("+Replace(c1,"<","&lt;")+")"+"("+Replace(w1,"<","&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