急请高手帮助看一下HTML的读写有关问题

2012-01-31

急！在线等！请高手帮助看一下HTML的读写问题!有一个后缀名为.hhc的文件里面内容如下HTML code!DOCTYPE H

急！在线等！请高手帮助看一下HTML的读写问题!
有一个后缀名为".hhc"的文件里面内容如下

HTML code

<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN"><HTML><HEAD><meta name="GENERATOR" content="Microsoft&reg; HTML Help Workshop 4.1"><!-- Sitemap 1.0 --></HEAD><BODY><OBJECT type="text/site properties">    <param name="ExWindow Styles" value="0x100">    <param name="Window Styles" value="0x800002"></OBJECT><UL>    <LI> <OBJECT type="text/sitemap">        <param name="Name" value="从这里开始">        <param name="Local" value="隐藏及展示层.htm">        </OBJECT>    <LI> <OBJECT type="text/sitemap">        <param name="Name" value="存储规划">        </OBJECT>    <UL>        <LI> <OBJECT type="text/sitemap">            <param name="Name" value="XX存储规划">            <param name="Local" value="Test.htm">            </OBJECT>    </UL></UL></BODY></HTML>

现在要根据标记对取出Param中“name”、“valus”的值。取出的时候还要考虑他的上级标记对。
我在网上看到使用HTMLDocument和WebBrowser，还看到了IHTMLDocument2和IWebBrowser但是不知道配置使用
自己写了一段代码

VB code

dim htmdoc as htmldocumentif (notwebbrowser1.busy) then    set htmdoc=webbrowser1.documentendif

但是在输出时发现htmdoc中只有“<OBJECT type="text/site properties">
<param name="ExWindow Styles" value="0x100">
<param name="Window Styles" value="0x800002">
</OBJECT>”这一段的内容，
有没有高手帮忙解决一下这个问题。或者给出一段示例的代码。非常感谢！

[解决办法]
请楼上把你已经写的提取的代码给完整些，这样别人在你的代码基础上改起来可能也快些呢：）
[解决办法]
楼主先用代码创建一个内容和那hhc相同的htm文件，直接打开htm文件而非hhc文件，应该直接用FileCopy复制一个就行了吧。这样的话，控件对文档的解析可能就符合你的需要了。我是想说，后缀名不同会影响Webbrowser控件的解析
[解决办法]
以文件文件打开，读到字符串变量中。
用XML对象来分析。
[解决办法]

VB code

Private Sub Form_Load()WebBrowser1.Navigate "C:\1.hhc"End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)Dim i As Integerl = WebBrowser1.Document.getElementsByTagName("param").length - 1For i = 0 To lS = S & "param name=" & WebBrowser1.Document.getElementsByTagName("param")(i).Name & "  value=" & WebBrowser1.Document.getElementsByTagName("param")(i).Value & vbCrLfNextMsgBox SEnd Sub

热点排行

Bad Request.