過濾HTML标簽

< DOCTYPE html PUBLIC -WCDTD XHTML StrictEN httpwwwworgTRxhtmlDTDxhtml-strictdtd>

Function RemoveHTML(strHTML)

Dim objRegExp, Match, Matches

Set objRegExp = New Regexp

objRegExp.IgnoreCase = True

objRegExp.Global = True

'取閉合的<>

objRegExp.Pattern = "<.+?>"

'進行比對

Set Matches = objRegExp.Execute(strHTML)

' 周遊比對集合，并替換掉比對的項目

For Each Match in Matches

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

Next

RemoveHTML=strHTML

Set objRegExp = Nothing

End Function

本文轉自 netcorner 部落格園部落格，原文連結：http://www.cnblogs.com/netcorner/archive/2007/04/03/2912398.html  ，如需轉載請自行聯系原作者