Function LoseHTML(strHTML)
Dim objRegExp, strOutput
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = ""
strHTML = strHTML & ""
if strHTML="" Then LoseHTML="":Exit Function
strOutput = objRegExp.Replace(strHTML, "")
strOutput = Replace(strOutput, "", ">")
strOutput = Replace(strOutput, " ", "")
LoseHTML = strOutput 'Return the value of strOutput
Set objRegExp = Nothing
End Function
|
