• Home
 · 
• Active Server Pages
 · 
• This asp page contains a function which uses Regular Expression patterns to find html strings. The

This asp page contains a function which uses Regular Expression patterns to find html strings. The

This asp page contains a function which uses Regular Expression patterns to find html strings. The tags can then be replaced with a user

Rate This asp page contains a function which uses Regular Expression patterns to find html strings. The

• 1
• 2
• 3
• 4
• 5

(3(3 Vote))

<%
ExampleHTML= "" & _
        "<table width='100%'>" & vbnewline & _
        "  <tr>" & vbnewline & _
        "    <td rowSpan='99'><font size='2' face='Arial'><img src='techtemp/spacer2.gif' width='1' height='1'></font></td>" & vbnewline & _
        "    <td class='textcolor1' colSpan='2'><font size='2' face='Arial' color='#FFFFFF'><a href='http://example.com/aboutUs/0,289153,sid8,00.html' style='color: #FFFFFF'>About" & vbnewline & _
        "      Us</a>&nbsp;|&nbsp; <a href='http://example.com/buyersGuideForVendors/0,289879,sid8,00.html' style='color: #FFFFFF'>For" & vbnewline & _
        "      VB Vendors</a>&nbsp;|&nbsp; <a href='http://example.com/ffdc/0,289198,sid8,00.html' style='color: #FFFFFF'>For" & vbnewline & _
        "      Business Stuff</a>&nbsp;|&nbsp; <a href='http://example.com/stuff/0,289747,sid8,00.html' style='color: #FFFFFF'>Garden" & vbnewline & _
        "      Center Contacts</a></font></td>"

response.write "             Example HTML INPUT STRING    <br><br>"

response.write "<pre>" & Server.HTMLEncode(ExampleHTML) & "</pre>"

ExampleHTML=ReplaceSpecial(1, ExampleHTML, "<A(.*?)>", "########") '<<<=== function usage

response.write "<br><br>    Example HTML after anchor tags are replaced with '########'<br><br>"

response.write "<pre>" & Server.HTMLEncode(ExampleHTML) & "</pre>"




Function ReplaceSpecial(Strt, strng, patrn, RplcWith)
' Strt is position in string to start searching for pattern
' strng is input html string
' patrn is the search pattern string
' RplcWith is string used to replace found patterns
   Dim regEx, Match, Matches, cnt
   Set regEx = New RegExp 
   regEx.Pattern = patrn: regEx.IgnoreCase = True 
   regEx.Global = True
   Set Matches = regEx.Execute(strng)
   cnt=matches.count-1
   for i = cnt to 0 step -1
   	if matches(i).FirstIndex >= strt then
		strng=left(strng, matches(i).FirstIndex -0) & RplcWith & right(strng, len(strng)-(matches(i).FirstIndex + len(matches(i).value) - 0)) 
	end if
   next	
   ReplaceSpecial = strng
   set regEx=nothing
End Function	
%>