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
4
c 4
d4
2
c 2
d2
2
int42
_
c 
ws_
4
c 4
d4
3
c 3
d3
day3
int
< 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=42%2043&2&-3&10 >

<%@ LANGUAGE="VBSCRIPT" %>
<%
  Dim txt
  txt ="42 43"

  Dim re1
  re1 =".*?"	'Non-greedy match on filler
  Dim re2
  re2 ="(2)"	'Day 1
  Dim re3
  re3 ="(.)"	'Any Single Character 1
  Dim re4
  re4 ="(\d+)"	'Integer Number 1

  Dim r
  Set r = New RegExp
  r.Pattern = re1+re2+re3+re4
  r.IgnoreCase = True
  Dim m
  Set m = r.Execute(txt)
  If m.Item(0).SubMatches.Count > 0 Then
      Dim day1
      day1=m.Item(0).SubMatches.Item(0)
      Dim c1
      c1=m.Item(0).SubMatches.Item(1)
      Dim int1
      int1=m.Item(0).SubMatches.Item(2)
      Response.Write("("+Replace(day1,"<","&lt;")+")"+"("+Replace(c1,"<","&lt;")+")"+"("+Replace(int1,"<","&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