Ler XML

[Pablo César]

Hoje me vi na necessidade de fazer algo genérico para ler XML e utilizei TXMLDocument da contrib do xHarbour e funciona beleza, vejam o código exemplo adaptado do João Santos - São Paulo (fórum FW):

Código: Selecionar todos

// Compile with xHB

Function Main(cArquivo)
SetMode(25,80)
If cArquivo=NIL
   RetornaConteudoXml("Arqxml.xml")
Else
   RetornaConteudoXml(cArquivo)
Endif
Return

Function RetornaConteudoXml(cFileName)
LOCAL hFile, cXml
LOCAL xmlDoc, xmlIter , xmlNode, cNode, cAttrib, cValue, oCampo, oConteudo

if !file(cFileName)
   Alert("Arquivo "+cFileName+" nao encontrado !")
   Return nil
end
cNode := NIL
cAttrib := NIL
cValue := NIL
hFile := FOpen( cFileName )
xmlDoc := TXmlDocument():New( hFile )
IF xmlDoc:nStatus != 1
   Alert("erro ao ler XML ")
   Return Nil
ENDIF
xmlIter := TXmlIterator():New( xmlDoc:oRoot )
xmlNode := xmlIter:Find()
DO WHILE xmlNode != NIL
   if !empty(xmlNode:cData)
      if subs(xmlNode:cData,1,1) # "<"
         oCampo :=xmlNode:cName
         oConteudo:=xmlNode:cData
      endif
   else
      oCampo :=xmlNode:cName
	  oConteudo:=""
   endif
   
   alert( Padr("Campo...: "+oCampo,70)+";"+;
          Padr("Conteudo: "+oConteudo,70))
	  
   xmlNode := xmlIter:Next()                        // joga pro proximo campo
ENDDO
Return nil 

Eis o conteúdo de um arquivo xml (do CEP exemplo):

Código: Selecionar todos

<?xml version="1.0" encoding="ISO-8859-1"?>
<webservicecep>
<resultado>1</resultado>
<resultado_txt>sucesso - cep completo</resultado_txt>
<uf>RS</uf>
<cidade>Porto Alegre</cidade>
<bairro>Passo D'Areia</bairro>
<tipo_logradouro>Avenida</tipo_logradouro>
<logradouro>Assis Brasil</logradouro>
</webservicecep>

Espero ter contribuído para conhecimento e aprendizado de mais alguém.

[Hasse]

Boa tarde Pablo Cesar.

Consegui usa adequadamente a rotina publicada acima.

Contudo, parece que existem outros formatos de XML, que não são lidos. Como se faz neste caso ?
Veja o exemplo de XML abaixo:

Código: Selecionar todos

<?xml version="1.0" encoding="utf-8"?>
<integracao versao="20110901" autorizacao="5P4THj9ZjBB5f8RlmJy4rA==" identificador="ATT0091-0531" geradoEm="31-05-2012 19:52:34" integrador="SKYLAB V 9.0.04">
<requisicoes>
   <requisicao idLis="00737900" dataEntrada="03-05-2012 19:52:34">
      <paciente idLis="PA-00737900" nome="ERONITA DE FATIMA PIRES" sexo="F" dataNasc="26-10-1965"/>
      <amostras>
         <amostra idAmostra="0" idLis="AM-00737900-000" codBarrasOrigem="00737900" descricao="basal" dataLiberacao="31-05-2012" idMaterial="27"/>
      </amostras>
      <exame idLis="EX-00737900-000" amostras="0" idExame="TSH" observacao=""/>
   </requisicao>
   <requisicao idLis="00737901" dataEntrada="03-05-2012 19:52:34">
      <paciente idLis="PA-00737901" nome="MARLI CARDOSO BAEHR" sexo="F" dataNasc="04-09-1970"/>
      <amostras>
         <amostra idAmostra="0" idLis="AM-00737901-000" codBarrasOrigem="00737901" descricao="basal" dataLiberacao="31-05-2012" idMaterial="27"/>
      </amostras>
      <exame idLis="EX-00737901-000" amostras="0" idExame="TSH" observacao=""/>
      <exame idLis="EX-00737901-000" amostras="0" idExame="T4L" observacao=""/>
   </requisicao>
   <requisicao idLis="00737902" dataEntrada="03-05-2012 19:52:34">
      <paciente idLis="PA-00737902" nome="NICOLAS CARVALHO CALHARI" sexo="M" dataNasc="27-04-2011"/>
      <amostras>
         <amostra idAmostra="0" idLis="AM-00737902-000" codBarrasOrigem="00737902" descricao="basal" dataLiberacao="31-05-2012" idMaterial="27"/>
         <amostra idAmostra="1" idLis="AM-00737902-001" codBarrasOrigem="00737902" descricao="basal" dataLiberacao="31-05-2012" idMaterial="15"/>
      </amostras>
      <exame idLis="EX-00737902-000" amostras="0" idExame="TSH" observacao=""/>
      <exame idLis="EX-00737902-000" amostras="0" idExame="T4L" observacao=""/>
      <exame idLis="EX-00737902-001" amostras="1" idExame="GLI" observacao=""/>
   </requisicao>
</requisicoes>
</integracao>

[Pablo César]

Pois é... não tinha visto isso antes, mas agora entendo que nesse formato, não carrega.
Pesquisei na internet e o único visualizador que me agradou e funciona bem é neste link: http://xml-viewer-3-0.soft-free-downloa ... er-3-0.zip e é gratuito.

Neste outro exemplo do colega Alexandre, pode ser que se adapte mais com o que você busca: https://pctoledo.org/forum/viewto ... asa#p70128