IMPORTAR XML

LEANDROR10 10/04/2013 12:13:49
#421737
e ae galera.

Preciso desmembrar os valores dos campos do XML (NFE) para um formulario, alguem saba como fazer?

Ex:
Aqui está dados do XML:

<cUF>35</cUF>
<cNF>53820000</cNF>
<natOp>DEVOLUCAO DE COMPRAPARAINDUSTRIALIZACAO</natOp>
<indPag>0</indPag>
<mod>55</mod>
<serie>1</serie>
<nNF>54</nNF>
<dEmi>2013-03-19</dEmi>
<tpNF>1</tpNF>
<cMunFG>3550308</cMunFG>
<tpImp>1</tpImp>
<tpEmis>1</tpEmis>
<cDV>6</cDV>
<tpAmb>1</tpAmb>
<finNFe>1</finNFe>
<procEmi>3</procEmi>
<verProc>2.2.8</verProc>

Preciso importar pegar dados como <dEmi>2013-03-19</dEmi> e exibir em um formulario em um textbox.

obrigado.
KERPLUNK 10/04/2013 13:58:48
#421744
Leia e entenda isso. O primeiro truque é parar de ver um XML como um simples texto.
DSAYRON 13/04/2013 23:27:36
#421915 Resposta escolhida
Olá...
-Primeiro, referencie no VB6: Microsoft XML, V6.0

-Depois, dá uma estudada nesse trecho de código:

----------------------------------------
[txt-size=5]Dim xmlDoc As New MSXML2.DOMDocument30 [ô]O arquivo XML
Dim listaNodeItens As IXMLDOMNodeList [ô]Lista de nós (.hasChildNode, .nodename)
Dim nodeXML As IXMLDOMElement

Public Sub Inicializa(CaminhoArquivoXML As String)

[ô]Carrega o arquivo XML
xmlDoc.async = False
xmlDoc.Load CaminhoArquivoXML

[ô]Não lembro se precisa ir descendo os nós, até chegar no desejado, testa aí, se precisar.
Set nodeXML = xmlDoc.selectSingleNode([Ô]//det[Ô]) [ô]move-se para esse nó.
[ô]Set nodeXML = xmlDoc.selectSingleNode([Ô]//prod[Ô]) [ô]move-se para esse nó.
MsgBox nodeXML.selectSingleNode([Ô]//xProd[Ô]).Text

[ô]Você também pode precisar:
[ô]nodeXML.selectNodes([Ô]//det[Ô]).nextNode

End Sub[/txt-size]


--------------------

Boa sorte!
LEANDROR10 16/04/2013 17:54:26
#422042
Excelente!!!

Funcionou do jeito que eu precisava.

Valeu mesmo.
Tópico encerrado , respostas não são mais permitidas
Voltar