'***函数说明: 清除文件HTML格式函数
'***参数 : sBody : HTML内容
'***返回值 : 去除所有HTML格式标签后的内容
Function ClearHtml(sBody)
Dim regEx
sBody = Replace(sBody, "<", "<")
sBody = Replace(sBody, ">", ">")
sBody = Replace(sBody, "&", "&")
sBody = Replace(sBody, " ", "")
sBody = Replace(sBody, """, "&")
sBody = Replace(sBody, "×", "×")
sBody = Replace(sBody, "÷", "÷")
sBody = Replace(sBody, " ", "")
sBody = Replace(sBody, " ", "")
sBody = Replace(sBody, " ", "")
sBody = Replace(sBody, Chr(13), "")
sBody = Replace(sBody, Chr(10), "")
Set regEx = New RegExp
regEx.IgnoreCase = True '设置忽略字符大小写
regEx.Global = True '设置全局可用性
regEx.Pattern = "
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "on(mouse|exit|error|click|key)"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "<\\?xml[^>]*>"
sBody = regEx.Replace(sBody, "")
regEx.Pattern = "<\/?[a-z]+:[^>]*>"
sBody = regEx.Replace(sBody, "")
Set regEx = Nothing
ClearHtml = sBody
End Function
