What I wrote is this:
Function ClearHTMLCode(originCode)
Dim reg
set reg = new RegExp
= True
= True
= "(<s+cript(.+?)<\/s+cript>)"
originCode= (originCode, "")
= "(<s+tyle(.+?)<\/s+tyle>)"
originCode= (originCode, "")
= "<[^>]*>"
originCode= (originCode, "")
ClearHTMLCode = originCode
End Function
But some cannot be filtered! And it's too slow!