河北区网站开发，河北区品牌建站，河北区商城网站建设

过滤所有HTML代码 和空格换行正则表达式



Function RemoveHTML(strHTML)

Dim objRegExp, Match, Matches

Set objRegExp = New Regexp

objRegExp.IgnoreCase = True

objRegExp.Global = True

objRegExp.Pattern = "<.+?>"

'objRegExp.Pattern = "(\r|
|\r
| |\t| )"

Set Matches = objRegExp.Execute(strHTML)

For Each Match in Matches

strHtml=Replace(strHTML,Match.Value,"")

Next

objRegExp.Pattern = "(\r|
|\r
| |\t| )"

Set Matches = objRegExp.Execute(strHTML)

For Each Match in Matches

strHtml=Replace(strHTML,Match.Value,"")

Next

RemoveHTML=strHTML

Set objRegExp = Nothing

End Function