我要取出XML里每个相同节点R的值怎么弄呢？

Question

RT.我要取出XML里每个相同节点R的值怎么做呢？我用的是VB6.0  <?xml version="1.0"?>
<routeinfo>
<r>11.201.0.0 mask 255.255.0.0</r>
<r>58.30.0.0 mask 255.254.0.0</r>
<r>58.32.0.0 mask 255.248.0.0</r>
<r>58.40.0.0 mask 255.254.0.0</r>
<r>58.43.0.0 mask 255.255.0.0</r>
<r>58.44.0.0 mask 255.252.0.0</r>
<r>58.48.0.0 mask 255.248.0.0</r>
<r>58.50.0.0 mask 255.255.0.0</r>
<r>58.50.0.0 mask 255.255.128.0</r>
</routeinfo>
代码：Dim dom
Set dom = CreateObject("Microsoft.XMLDOM")
dom.Async = False
dom.ValidateOnParse = False
dom.Load (XMLObject.ResponseXML) 
MsgBox (dom.selectSingleNode("//routeinfo").Text)这样只能取得所有的？？？

Answer 1

    Dim node    As MSXML2.IXMLDOMNode
    Dim items   As MSXML2.IXMLDOMNodeList
    
    Set items = dom.selectNodes("/routeinfo/r")
    
    For Each node In items
        
        Debug.Print node.Text
        
    Next