<!-- URL that generated this code: >
<!-- http://txt2re.com/index-vbscript.php3?s=42%2043&2&-5&-11 >
<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim txt
txt ="42 43"
Dim re1
re1 =".*?" 'Non-greedy match on filler
Dim re2
re2 ="(2)" 'Any Single Character 1
Dim re3
re3 ="( )" 'White Space 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 c1
c1=m.Item(0).SubMatches.Item(0)
Dim ws1
ws1=m.Item(0).SubMatches.Item(1)
Dim int1
int1=m.Item(0).SubMatches.Item(2)
Response.Write("("+Replace(c1,"<","<")+")"+"("+Replace(ws1,"<","<")+")"+"("+Replace(int1,"<","<")+")"+"")
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.-->
<!------->
 
Feedback
::
Thank you thank you thank you :)
Mon, 27 May 2013 08:08PM
::
thks
Wed, 29 May 2013 01:24AM
::
mmamt suchucazz attacat nanz u can randag i nonnt
Wed, 29 May 2013 10:53AM
zk::
great work! super useful, thanks so much!!
Wed, 29 May 2013 05:52PM
KisnardOnline::
perfect perfect perfect... get some ads on this site, so we can thank you more
Wed, 29 May 2013 10:21PM
ShubhamGupta::
Saved my day!
Wed, 29 May 2013 11:36PM
::
Thu, 30 May 2013 12:02AM
Astarte::
Awesome, just awesome!
Thu, 30 May 2013 12:03AM
David Dawkins::
Excellent tool, where's the donate link? thank-you !!!