string - 从Excel VBA中的字符串中删除HTML标签

我想从Excel VBA中的字符串中删除所有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