我有一个包含HTML实体的字符串(例如±;
-加减符号)。
我怎样才能得到那些HTML实体解码成纯文本的字符串呢?
示例:
Input | Output
----------------+-------------
± | ±
Ben & Jerry | Ben&Jerry
您可以创建一个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("±") ' = "±"