用正則表達式剔除文本中的HTML標記
因為我的前段時間發的XMLHTTP批量抓取遠程資料的文章
http://blog.csdn.net/babyt/archive/2004/09/08/98516.aspx
最近有人來問我如何將文章用文本格式保存，而不是直接使用HTML存儲，這樣的話會節約數據庫空間．于是寫了這么個函數來將文本中的HTML標記剔除
函數雖然簡單，但是對處理HTML文檔還是很有效的
<%
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
%>
http://blog.csdn.net/babyt/archive/2004/09/08/98516.aspx
最近有人來問我如何將文章用文本格式保存，而不是直接使用HTML存儲，這樣的話會節約數據庫空間．于是寫了這么個函數來將文本中的HTML標記剔除
函數雖然簡單，但是對處理HTML文檔還是很有效的
<%
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
%>