Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Boa tarde a todos.
Seguinte, eu quero consultar os pedidos de um site através do Itau Shopline, e eles fornecem uma URL que tenho que mandar alguns parametros para obter a resposta.
Até ai tudo bem, consigo enviar os parametros do pedido para a url especificada.
Porém ela me retorna da seguinte forma:
<consulta>
<PARAMETER>
<PARAM ID="CodEmp" VALUE="123456789101112345678910"/>
<PARAM ID="Pedido" VALUE="00000958"/>
<PARAM ID="Valor" VALUE="100,00"/>
<PARAM ID="tipPag" VALUE="02"/>
<PARAM ID="sitPag" VALUE="04"/>
<PARAM ID="dtPag" VALUE=""/>
<PARAM ID="codAut" VALUE=""/>
<PARAM ID="numId" VALUE=""/>
<PARAM ID="compVend" VALUE=""/>
<PARAM ID="tipCart" VALUE=""/>
</PARAMETER>
</consulta>
A minha duvida é: Como consigo manipular essas informações do XML uma vez que essa resposta nem mesmo está no meu servidor e sim no deles.
Desculpe se não fui muito claro, tentarei refazer a pergunta se ficar complicado de entender.
Obrigado!!
Use esse função que fiz...
A variavel Nomecampo é case sensitive
Function BuscaNo(dadosxml, Nomecampo)
on error resume next
If InStr(dadosxml, Nomecampo) > 0 and InStr(dadosxml, Nomecampo & "/") = 0 and InStr(dadosxml, Nomecampo & " /") = 0 Then
p1 = InStr(dadosxml, "<" & Nomecampo & ">") + Len(Nomecampo) + 2
p2 = InStr(dadosxml, "</" & Split(Nomecampo, " ")(0) & ">")
If p1 > p2 Then
Dadosxml2 = Mid(dadosxml, p1 - Len(Nomecampo) - 2, Len(dadosxml) - p1 - Len(Nomecampo) - 2)
p1 = InStr(Dadosxml2, "<" & Nomecampo & ">") + Len(Nomecampo) + 2
p2 = InStr(Dadosxml2, "</" & Split(Nomecampo, " ")(0) & ">")
BuscaNo = Mid(Dadosxml2, p1, p2 - p1)
Exit Function
End If
BuscaNo = Mid(dadosxml, p1, p2 - p1)
Else
BuscaNo = "_"
End If
if Err.Number <> "0" then BuscaNo = "???"
End Function