Function RemoveHTML(strText)
Set RegEx = CreateObject("VBScript.RegExp")
RegEx.Pattern = "<script[\s\S]*?</script>"
RegEx.Global = True
strText = RegEx.Replace(strText, "")
Set RegEx = CreateObject("VBScript.RegExp")
RegEx.Pattern = "<style[\s\S]*?</style>"
RegEx.Global = True
strText = RegEx.Replace(strText, "")
Set RegEx = CreateObject("VBScript.RegExp")
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
End Function
VBA 使用正則剔除HTML標簽
最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
- 文/潘曉璐 我一進店門松却，熙熙樓的掌柜王于貴愁眉苦臉地迎上來暴浦，“玉大人溅话，你說我怎么就攤上這事∪饪剩” “怎么了公荧？”我有些...
- 文/不壞的土叔 我叫張陵，是天一觀的道長同规。 經(jīng)常有香客問我，道長窟社，這世上最難降的妖魔是什么券勺？ 我笑而不...
- 正文 為了忘掉前任，我火速辦了婚禮灿里，結(jié)果婚禮上关炼，老公的妹妹穿的比我還像新娘。我一直安慰自己匣吊，他們只是感情好儒拂，可當我...
- 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著色鸳，像睡著了一般社痛。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上命雀，一...
- 文/蒼蘭香墨 我猛地睜開眼，長吁一口氣：“原來是場噩夢啊……” “哼匈织！你這毒婦竟也來了浪默？” 一聲冷哼從身側(cè)響起，我...
- 正文 年R本政府宣布摔癣，位于F島的核電站奴饮，受9級特大地震影響，放射性物質(zhì)發(fā)生泄漏择浊。R本人自食惡果不足惜戴卜，卻給世界環(huán)境...
- 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望琢岩。 院中可真熱鬧投剥，春花似錦、人聲如沸担孔。這莊子的主人今日做“春日...
- 文/蒼蘭香墨 我抬頭看了看天上的太陽糕篇。三九已至啄育，卻和暖如春，著一層夾襖步出監(jiān)牢的瞬間娩缰，已是汗流浹背灸撰。 一陣腳步聲響...
推薦閱讀更多精彩內(nèi)容
- 【2017】 ????????????????????????稱多教育動態(tài)（61） ?????...
