Function RemoveHTML(strHTML)Dim objRegExp, Match, MatchesSet objRegExp = New RegexpobjRegExp.IgnoreCase = TrueobjRegExp.Global =

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

上一篇：上海網頁設計 能用(yòng)pre,又能用(yòng)自動換行代碼 下(xià)一篇：asp 獲取内容圖片加超鏈接 正則