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标签
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
推荐阅读更多精彩内容
- 【2017】 ཁྲི་འདུ་སློབ་གསོ་གོམ་སྒྲ称多教育动态（61） ཟླ་བཅ...
