如何在 VB6 中使用 MSHTML 解析器去除所有 HTML 标签？

如何在 VB6 中使用 MSHTML 解析器去除所有 HTML 标签？

这是改编自 CodeGuru 的代码。非常感谢原作者：http://www.codeguru.com/vb/vb_internet/html/article.php/c4815

如果您需要从网络下载 HTML，请检查原始来源。例如。：

Set objDocument = objMSHTML.createDocumentFromUrl("http://google.com", vbNullString)

我不需要从网络下载 HTML 存根 - 我的存根已经存在于内存中。所以最初的来源不太适合我。我的主要目标只是让一个合格的 DOM 解析器为我从用户生成的内容中剥离 HTML。有些人会说，“为什么不直接使用一些正则表达式来剥离 HTML 呢？”祝你好运！

添加对：Microsoft HTML 对象库的引用

这与运行 Internet Explorer (IE) 的 HTML 解析器相同 - 让我们开始质问吧。好吧，赫​​克尔走开……

这是我使用的代码：

Dim objDocument As MSHTML.HTMLDocument
Set objDocument = New MSHTML.HTMLDocument

'NOTE: txtSource is an instance of a simple TextBox object
objDocument.body.innerHTML = "<p>Hello World!</p> <p>Hello Jason!</p> <br/>Hello Bob!"
txtSource.Text = objDocument.body.innerText

结果文本在txt源.文本我的用户内容是否已删除所有 HTML。干净且可维护 - 对我来说没有克苏鲁之道。