<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim txt
txt ="08:Nov:2018 ""This is an Example!"""
Dim re1
re1 =".*?"
Dim re2
re2 ="(?:[a-z][a-z0-9_]*)"
Dim re3
re3 =".*?"
Dim re4
re4 ="(?:[a-z][a-z0-9_]*)"
Dim re5
re5 =".*?"
Dim re6
re6 ="((?:[a-z][a-z0-9_]*))"
Dim re7
re7 =".*?"
Dim re8
re8 ="."
Dim re9
re9 =".*?"
Dim re10
re10 ="."
Dim re11
re11 =".*?"
Dim re12
re12 ="."
Dim re13
re13 =".*?"
Dim re14
re14 ="."
Dim re15
re15 =".*?"
Dim re16
re16 ="."
Dim re17
re17 =".*?"
Dim re18
re18 ="."
Dim re19
re19 =".*?"
Dim re20
re20 ="."
Dim re21
re21 =".*?"
Dim re22
re22 ="."
Dim re23
re23 =".*?"
Dim re24
re24 ="."
Dim re25
re25 =".*?"
Dim re26
re26 ="(.)"
Dim r
Set r = New RegExp
r.Pattern = re1+re2+re3+re4+re5+re6+re7+re8+re9+re10+re11+re12+re13+re14+re15+re16+re17+re18+re19+re20+re21+re22+re23+re24+re25+re26
r.IgnoreCase = True
Dim m
Set m = r.Execute(txt)
If m.Item(0).SubMatches.Count > 0 Then
Dim var1
var1=m.Item(0).SubMatches.Item(0)
Dim c1
c1=m.Item(0).SubMatches.Item(1)
Response.Write("("+Replace(var1,"<","<")+")"+"("+Replace(c1,"<","<")+")"+"")
End If
%>
-->
-->
-->
|