Última edição em 09/02/2021 22:38:17 por JOAOARCOS

Boa noite pessoal, gostaria de ajuda de vcs aqui para ler um XML.

estou usando esse código para ler as tag do xml

Dim xDoc As MSXML.DOMDocument

Public Sub DisplayNode(ByRef Nodes As MSXML.IXMLDOMNodeList, _
   ByVal Indent As Integer)

   Dim xNode As MSXML.IXMLDOMNode
   Indent = Indent + 2

   For Each xNode In Nodes
      
      If xNode.nodeType = NODE_TEXT Then
         Debug.Print Space$(Indent) & xNode.parentNode.nodeName & _
            ':' & xNode.nodeValue
            x = x + 1
      End If

      If xNode.hasChildNodes Then
         'Debug.Print xNode.baseName
         DisplayNode xNode.childNodes, Indent
      End If
      
   Next xNode
End Sub

Public Sub LoadDocument()

    Set xDoc = New MSXML.DOMDocument
    xDoc.validateOnParse = False
    If xDoc.Load('D:\NF_xml_entrada_teste.xml') Then
       ' The document loaded successfully.
       ' Now do something intersting.
       DisplayNode xDoc.childNodes, 0
    Else
       ' The document failed to load.
       ' See the previous listing for error information.
    End If
    
End Sub

Private Sub Command1_Click()
LoadDocument
End Sub

eu consigo ler e Debugar os dados do XML porem o que ocorre é que algumas TAG vem repetidas
por exemplo:

...aqui somente uma parte do XML lido

                  orig:0
                  CST:00
                  modBC:3
                 vBC:600.00
                  pICMS:18.0000
                  vICMS:108.00
                cEnq:999
                  CST:53
                  CST:01
                 vBC:600.00
                  pPIS:1.6500
                  vPIS:9.90
                  CST:01
                 vBC:600.00
                  pCOFINS:7.6000
.....

eu queria adaptar esse codigo para criar algo tipo assim com Chaves para que eu possa criar um arquivo INI com os dados do XML e assim eu pegar cada tag separadas pelas CHAVES no arquivo INI

[ICMS00]
orig:0
CST:00
modBC:3
vBC:600.00
pICMS:18.0000
vICMS:108.00

OU SEJA PARA CADA TAG RAIZ EU CRIAR UMA CHAVE, NESTE CODIGO ESTA LENDO SOMENTE OS CAMPOS COM TEXTO NO XML. NÃO ESTA LENDO AS TAG RAIZ.