LER ARQUIVO XML

MARVB6 03/06/2011 11:16:15
#375771
Bom dia Pessoal !
Gostaria de pedir um pequeno auxilio de voces, será que alguém pode me explicar como faço a leitura de um XML pelo vb6 ?
Estou usando o DOM, consigo abrir o arquivo normalmente, porém não sei como nevegar entres os Nós.
Usando a propriedade x.childNodes(0).Text consigo pegar o valor da primeira linha [Ô]001[Ô], porem não sei como obter o restante dos valores.

Abaixo o modelo do arquivo que estou utilizando:

<?xml version=[Ô]1.0[Ô] encoding=[Ô]UTF-8[Ô]?>
<pesquisarImobilizadoResMsg>
<imobilizado>
<numPatrimonio>001</numPatrimonio>
<codPedido>100</codPedido>
<listaMaterialImobilizado>
<materialImobilizado>
<codMaterial>codImb1</codMaterial>
<descMaterial>Desc1</descMaterial>
<numSerie>Ser1</numSerie>
</materialImobilizado>
<materialImobilizado>
<codMaterial>codImb2</codMaterial>
<descMaterial>Desc2</descMaterial>
<numSerie>Ser2</numSerie>
</materialImobilizado>
<materialImobilizado>
<codMaterial>codImb3</codMaterial>
<descMaterial>Desc3</descMaterial>
<numSerie>Ser3</numSerie>
</materialImobilizado>
</listaMaterialImobilizado>
</imobilizado>
</pesquisarImobilizadoResMsg>
NIKYTS 03/06/2011 15:28:36
#375786 Resposta escolhida
Para navegares nos nodes tens que indicar o caminho dos nodes, tipo: 
  xml.selectNodes([Ô]/pesquisarImobilizadoResMsg/imobilizado/...[Ô])

Ve se te ajuda.

      Dim X As Integer: X = 0
    Dim verticalGap As Integer: verticalGap = 15
    Dim xml As MSXML2.DOMDocument: Set xml = New MSXML2.DOMDocument
    
    If xml.loadXML(responseText) Then
        [ô]Observações do xml
        [ô]<SearchSuggestion>
        [ô]   <Section>
        [ô]       <Item>
        [ô]           <Dado1>bla bla bla</Dado1>
        [ô]           <Dado2>bla bla bla</Dado2>
        [ô]           <Dado3>bla bla bla</Dado3>
        [ô]       </Item>
        [ô]       <Item>
        [ô]           ...
        [ô]       </Item>
        Set nodeList = xml.selectNodes([Ô]/pesquisarImobilizadoResMsg/imobilizado[Ô])
        
        Dim patrimonio, pedido As String
        Dim Index As Integer
        
        Dim node As IXMLDOMNode
        For Each node In nodeList
            patrimonio= node.selectSingleNode([Ô]Text[Ô]).Text
            pedido= node.selectSingleNode([Ô]Text[Ô]).Text
        Next
    End If
Tópico encerrado , respostas não são mais permitidas
Voltar