Leitura de um XML

[Adelson.p]

Olá, bom dia...

Alguém pode me ajudar, a ler um XML, com mais ou menos, este formato:

Código: Selecionar todos

<?xml version="1.0"?>

<Empresa type="MICRO">
  <name>Churros</name>
  <NumFun>10</NumFun>
  
  <internalIntes>
    <tool type="Carrinho">
      <name>Churros Feliz</name>
      <usodiario>8h</usodiario>
      <idade>5a</idade>
    </tool>

    <tool type="Casa Preparo">
      <name>?</name>
      <usodiario>24h</usodiario>
      <idade>8a</idade>
    </tool>
  </internalIntes>
  
</Empresa>

E o programa tem que salvar as informações lidas em um txt, como posso fazer isso?
Ele salve assim, mais ou menos...

Empresa:Churros
->8h
->5a
-->Ferramenta:Carrinho
--->Churros Feliz
--->8h
--->5a
-->Ferramenta:Casa Preparo
--->?


Algo assim, agradeço desde já pela ajuda, nem que seja pelo menos, para ler o XML, já ira me ajudar muito.
Grato

Adelson Pereira

[Pablo César]

Bem vindo ao fórum Adelson !

Você já utilizou o mecanismo de "Busca" daqui do fórum ?. Aqui você tem um exemplo como ler XML: https://pctoledo.org/forum/viewto ... 43&start=0

Eus fiz o teste e leu todos os tags. Agora da forma que você quer, é você adaptando da forma que você considerar melhor. Pois tudo dependerá como você irá armazenar esses dados. Veja que você repete o conteúdo do tag "tool" para ser considerado no tag "empresa". Isso está um pouco confuso, mas quem sabe você consiga adaptar as suas necessidades.

[alxsts]

Olá!

O tópico importar XML de compra trata um arquivo XML onde existem várias ocorrencias da mesma tag.

Tente adaptar o código e, ao invés de armazenar em um hash, como naquele código, grave em um arquivo texto.

[Imatech]

Código: Selecionar todos

*----------------------------------------------------------*
* Exemplo Basico
*----------------------------------------------------------*
#include "hbxml.ch"
FUNCTION F_Leitura_XML()
LOCAL sAux := MemoRead( 'arquivo.xml' )
LOCAL oBook, oIterator, oCurrent
LOCAL oDoc := TXmlDocument():New( sAux, HBXML_STYLE_NOESCAPE )

IF oDoc:nError # HBXML_ERROR_NONE
Alert( 'ERRO NA ABERTURA DO ARQUIVO XML' )
ELSE
oBook := oDoc:findfirst( "Empresa" )
IF oBook == NIL
Alert( 'ARQUIVO INVALIDO: IDENTIFICACAO DO DOCUMENTO )
ELSE
oIterator := TXmlIterator():New( oBook )
oCurrent := oIterator:Next()
? oCurrent:cData
ENDIF
ENDIF

*----------------------------------------------------------*
* Veja os Exemplos em
* \Harbour\contrib\xhb\tests\XML*.prg
*----------------------------------------------------------*