<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim txt
txt ="42 43"
Dim re1
re1 ="(.)"
Dim re2
re2 ="(2)"
Dim re3
re3 =".*?"
Dim re4
re4 ="(\d+)"
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 day1
day1=m.Item(0).SubMatches.Item(1)
Dim int1
int1=m.Item(0).SubMatches.Item(2)
Response.Write("("+Replace(c1,"<","<")+")"+"("+Replace(day1,"<","<")+")"+"("+Replace(int1,"<","<")+")"+"")
End If
%>
-->
-->
-->
|