<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim txt
txt ="11:Jan:2019 ""This is an Example!"""
Dim re1
re1 =".*?"
Dim re2
re2 ="1"
Dim re3
re3 ="(1)"
Dim re4
re4 =".*?"
Dim re5
re5 =" "
Dim re6
re6 =".*?"
Dim re7
re7 ="( )"
Dim r
Set r = New RegExp
r.Pattern = re1+re2+re3+re4+re5+re6+re7
r.IgnoreCase = True
Dim m
Set m = r.Execute(txt)
If m.Item(0).SubMatches.Count > 0 Then
Dim d1
d1=m.Item(0).SubMatches.Item(0)
Dim c1
c1=m.Item(0).SubMatches.Item(1)
Response.Write("("+Replace(d1,"<","<")+")"+"("+Replace(c1,"<","<")+")"+"")
End If
%>
-->
-->
-->
|