Filter all HTML code and CSS,JS_ regular expressions

Copy Code code as follows:

function removehtml (strhtml) ' Functions for filtering HTML code include filtering CSS and JS


strHTML = Replace (Strhtml,vbcrlf, "")

strHTML = Replace (STRHTML,CHR) &CHR (10), "")

strHTML = Replace (STRHTML,CHR (13), "")

strHTML = Replace (STRHTML,CHR (10), "")

strHTML = Replace (strHTML, "", "")

strHTML = Replace (strHTML, "", "")


Dim objRegExp, Match, Matches

Set objRegExp = New Regexp



Objregexp.ignorecase = True

Objregexp.global = True


' Take the closed <>

Objregexp.pattern = "<style (. +?) /style> "

' to match

Set matches = Objregexp.execute (strhtml)



' Iterate through the matching set and replace the matching item

For the Match in matches

Strhtml=replace (Strhtml,match.value, "")

Next


' Take the closed <>

Objregexp.pattern = "<script (. +?) /script> "

' to match

Set matches = Objregexp.execute (strhtml)



' Iterate through the matching set and replace the matching item

For the Match in matches

Strhtml=replace (Strhtml,match.value, "")

Next


' Take the closed <>

Objregexp.pattern = "<.+?>"

' to match

Set matches = Objregexp.execute (strhtml)



' Iterate through the matching set and replace the matching item

For the Match in matches

Strhtml=replace (Strhtml,match.value, "")

Next


Removehtml=strhtml

Set objRegExp = Nothing

End Function