<%@ LANGUAGE="VBSCRIPT" %>
<%
Dim txt
txt ="08:Nov:2018 ""This is an Example!"""
Dim re1
re1 =".*?"
Dim re2
re2 ="(?:[a-z][a-z]+)"
Dim re3
re3 =".*?"
Dim re4
re4 ="((?:[a-z][a-z]+))"
Dim re5
re5 =".*?"
Dim re6
re6 ="[a-z]"
Dim re7
re7 =".*?"
Dim re8
re8 ="[a-z]"
Dim re9
re9 =".*?"
Dim re10
re10 ="[a-z]"
Dim re11
re11 =".*?"
Dim re12
re12 ="[a-z]"
Dim re13
re13 =".*?"
Dim re14
re14 ="[a-z]"
Dim re15
re15 =".*?"
Dim re16
re16 ="[a-z]"
Dim re17
re17 =".*?"
Dim re18
re18 ="[a-z]"
Dim re19
re19 =".*?"
Dim re20
re20 ="([a-z])"
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
r.IgnoreCase = True
Dim m
Set m = r.Execute(txt)
If m.Item(0).SubMatches.Count > 0 Then
Dim word1
word1=m.Item(0).SubMatches.Item(0)
Dim w1
w1=m.Item(0).SubMatches.Item(1)
Response.Write("("+Replace(word1,"<","<")+")"+"("+Replace(w1,"<","<")+")"+"")
End If
%>
-->
-->
-->
|