VB读xml的问题


<?xml version="1.0" encoding="UTF-8" ?>
<root>
    <messages>
      <message id="Startup1">
        <body>启动1</body>
      </message>
       <message id="Startup2">
        <body>启动2</body>
      </message>
       <message id="Startup3">
        <body>启动3</body>
      </message>
    </messages>
</root>
怎么样才能根据ID的不同，读取body的内容呢？？
谢谢~~ 
给点代码看看~~~

解决方案 »

  1.   

    Option ExplicitSub Main()
        Dim xDoc As DOMDocument
        Dim xText As IXMLDOMElement
        
        Set xDoc = New DOMDocument
        xDoc.Load "C:\temp\1.xml"
        
        If xDoc.parseError.errorCode <> 0 Then
            Debug.Print xDoc.parseError.reason, xDoc.parseError.Line, xDoc.parseError.linepos
            Exit Sub
        End If
        
        Set xText = xDoc.selectSingleNode("/root/messages/message[@id=""Startup2""]/body")
        Debug.Print xText.Text
    End Sub