Abaixo segue um exemplo onde iremos colocar um xml inteiro dentro de uma variável do tipo vetor de 2 dimensões.
Exemplo do xml:
<Interacao>
<IdInteracao>1</IdInteracao>
<IdPagamento>5</IdPagamento>
<IdStatus>Pago</IdStatus>
<CodigoRetorno>0</CodigoRetorno>
</Interacao>
Â
<Interacao>
<IdInteracao>2</IdInteracao>
<IdPagamento>6</IdPagamento>
<IdStatus>Pendente</IdStatus>
<CodigoRetorno>1</CodigoRetorno>
</Interacao>
Â
Baseado nessa string xml, agente lê como abaixo:
Â
set objXmlDom = CreateObject("Microsoft.XMLDOM")
objXmlDom.async = False
objXmlDom.LoadXML(replace(codigoXML,"&", "&"))
set Node = objXmlDom.getElementsByTagName("Interacao")
redim vetTransacao(Node.length-1, 3)
for i = 0 to Node.length - 1
vetTransacao(i,0) = Node(i).getElementsByTagName("IdInteracao")(0).text
vetTransacao(i,1) = Node(i).getElementsByTagName("IdPagamento")(0).text
vetTransacao(i,2) = Node(i).getElementsByTagName("IdStatus")(0).text
vetTransacao(i,3) = Node(i).getElementsByTagName("CodigoRetorno")(0).text
next
set objXmlDom = Nothing
Â
Â
Tendo o vetor vetTransacao sido criado e alimentado, conseguimos ler facilmente :
for i = 0 to ubound(vetTransacao)
for j = 0 to 3
response.write "<br>" & vetTransacao(i,j)
next
next
Gostou? Então dê o seu voto.
Obrigado.
