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
i
s
c s
ws
varThis
wordThis
_
c _
ws_
i
c i
wi
s
c s
ws
varis
wordis
_
c _
ws_
a
c 
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&66&-32 >

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

  Dim re1
  re1 =".*?"	'Non-greedy match on filler
  Dim re2
  re2 ="(i)"	'Any Single Word Character (Not Whitespace) 1
  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 ="(.)"	'Any Single Character 1

  Dim r
  Set r = New RegExp
  r.Pattern = re1+re2+re3+re4+re5+re6+re7+re8+re9+re10+re11+re12+re13+re14
  r.IgnoreCase = True
  Dim m
  Set m = r.Execute(txt)
  If m.Item(0).SubMatches.Count > 0 Then
      Dim w1
      w1=m.Item(0).SubMatches.Item(0)
      Dim c1
      c1=m.Item(0).SubMatches.Item(1)
      Response.Write("("+Replace(w1,"<","&lt;")+")"+"("+Replace(c1,"<","&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