如何在 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。干净且可维护 - 对我来说没有克苏鲁之道。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)