在Excel VBA中从string中删除HTML标记
我想从Excel VBA中的string中删除所有HTML标记。
例如:
before_text = "text1 <br> text2 <a href = 'www.data.com' id = 'data'>text3</a> text4" after_text = RemoveTags(before_text)
结果:
after_text = "text1 text2 text3 text4"
vbscript.regexp
码:
Function RemoveHTML(text As String) As String Dim regexObject As Object Set regexObject = CreateObject("vbscript.regexp") With regexObject .Pattern = "<!*[^<>]*>" 'html tags and comments .Global = True .IgnoreCase = True .MultiLine = True End With RemoveHTML = regexObject.Replace(text, "") End Function