提问者:小点点

将HTML实体解码为纯文本[关闭]


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

我怎样才能得到那些HTML实体解码成纯文本的字符串呢?

示例:

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

共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("±")   ' =  "±"

相关问题