vba - 将 HTML 实体解码为纯文本

Question

我有一个包含HTML 实体的字符串（例如±- 加减号）。

如何获取将这些 HTML 实体解码为纯文本的字符串？

例子：

 Input          |  Output
----------------+-------------
±        |    ±
Ben & Jerry | Ben&Jerry

标签： vbastringascii

Answer 1

您可以创建一个HTMLDocument对象，将 HTML 存储在其中，并从中获取它的文本版本：

Function HtmlDecode(str)
    Dim dom

    Set dom = CreateObject("htmlfile")
    dom.Open
    dom.Write str
    dom.Close
    HtmlDecode = dom.body.innerText
End Function

decoded = HtmlDecode("±")   ' =  "±"