ler XML pegarValorNode de campos iguais

03/07/2014

0

Bom dia galera,

Estou com uma dúvida ainda não encontrei a resposta, Seria o seguinte, gostaria de ler a mensagem só que no xml ela aparece 2 vezes como fazer nesse caso?

<autenticacao>
<codigo>6</codigo>
<mensagem>Transacao sem autenticacao</mensagem>
</autenticacao>

<autorizacao>
<codigo>6</codigo>
<mensagem>Transação autorizada</mensagem>
</autorizacao>

Esse meu retorno é o xml.
retorno = objSrvHTTP.responseXML.xml
atualmente eu coloco pegaValorNode(retorno, "mensagem")

só exibe a primeira
Eduardo Silva

Eduardo Silva

Responder

Posts

03/07/2014

Eduardo Silva

esqueci de colocar o pega valor node

Function pegaValorNode(xml, node)
Dim objXml
Set objXml = Server.CreateObject("MSXML2.DOMDocument")

objXml.loadXML(xml)

If (TypeName(objXml) = "DOMDocument") Then
If (objXml.GetElementsByTagName(node).length <> 0) Then
pegaValorNode = objXml.selectSingleNode("//" & node).text
Else
pegaValorNode = ""
End If
Else
pegaValorNode = ""
End If

Set objXml = Nothing
End Function
Responder

03/07/2014

Valquiria Silva

você precisa pegar as duas mensagens ou apenas uma ou outra?
Responder

03/07/2014

Eduardo Silva

Olá Valquiria apenas uma ou outra!
Responder

28/04/2015

Rafael Ramon

$autorizacao = $xml->getElementsByTagName("autorizacao")->item(0);
$msg = autorizacao->getElementsByTagName("mensagem")->item(0)->nodeValue;
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar