VB6.0中如何解析XML文件？

Question

请各位大虾帮个忙，VB6.0中如何解析XML文件？

Answer 1

Project-References中添加引用Microsoft XML,v4.0及Microsoft XML,Version 2.0
    '加载XML文档加以解析
    Dim DomXML         As New MSXML2.DOMDocument
    Dim DomNode        As IXMLDOMNode
    Dim ReportChild    As IXMLDOMElement
    Dim ControlChild   As IXMLDOMElement
    Dim FontChild      As IXMLDOMElement    DomXML.Load App.Path & "\Test.XML"
        '取得根结点
        Set DomNode = DomXML.selectSingleNode("Report")
        
        '分层解析
        For Each ReportChild In DomNode.childNodes
           For Each ControlChild In ReportChild.childNodes
                If ControlChild.nodeName = "Size" Then
                    AllFormSize.Height = Left(ControlChild.Text, InStr(ControlChild.Text, ",") - 1)
                    AllFormSize.Width = Mid(ControlChild.Text, InStr(ControlChild.Text, ",") + 1)
                    strCurrentControl = "Form"
                End If
           Next
           ……
        Next

Answer 2

在msdn.microsoft.com/xml/default.asp中下载最新版本的MSXML，并安装在计算机上。在Visual Basic 6.0中使用Microsoft XML V4.0象引用其他对象一样，首先在工程菜单中选择引用菜单项，选择Microsoft V4.0,单击OK,一切完成后就现在就可以在VB应用程序中添加XML对象了。http://www.yesky.com/20021016/1635180.shtml

Answer 3

http://expert.csdn.net/Expert/topic/2194/2194085.xml?temp=.3475916