用正則表達(dá)式剔除文本中的HTML標(biāo)記
發(fā)表時(shí)間：2024-05-18 來(lái)源：明輝站整理相關(guān)軟件相關(guān)文章人氣：
[摘要]因?yàn)槲业那岸螘r(shí)間發(fā)的XMLHTTP批量抓取遠(yuǎn)程資料的文章 http://blog.csdn.net/babyt/archive/2004/09/08/98516.aspx 最近有人來(lái)問(wèn)我如何將文章用文本格式保存，而不是直接使用HTML存儲(chǔ)，這樣的話會(huì)節(jié)約數(shù)據(jù)庫(kù)空間．于是寫(xiě)了這么個(gè)函數(shù)來(lái)將文本中的H...
因?yàn)槲业那岸螘r(shí)間發(fā)的XMLHTTP批量抓取遠(yuǎn)程資料的文章
http://blog.csdn.net/babyt/archive/2004/09/08/98516.aspx
最近有人來(lái)問(wèn)我如何將文章用文本格式保存，而不是直接使用HTML存儲(chǔ)，這樣的話會(huì)節(jié)約數(shù)據(jù)庫(kù)空間．于是寫(xiě)了這么個(gè)函數(shù)來(lái)將文本中的HTML標(biāo)記剔除
函數(shù)雖然簡(jiǎn)單，但是對(duì)處理HTML文檔還是很有效的
<%
Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取閉合的<>
objRegExp.Pattern = "<.+?>"
'進(jìn)行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍歷匹配集合，并替換掉匹配的項(xiàng)目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function
%>
