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

Function RemoveHTML(strHTML)

Dim objRegExp, Match, Matches

Set objRegExp = New Regexp

objRegExp.IgnoreCase = True

objRegExp.Global = True

objRegExp.Pattern = "<.+?>"

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

Set Matches = objRegExp.Execute(strHTML)

For Each Match in Matches

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

Next

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

Set Matches = objRegExp.Execute(strHTML)

For Each Match in Matches

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

Next

RemoveHTML=strHTML

Set objRegExp = Nothing

End Function

上一篇：asp 获取内容图片加超链接 正则

下一篇：芜湖网页设计 能用pre,又能用自动换行代码