Ver Mensaje Individual
  #1  
Antiguo 20-04-2009
miquellg miquellg is offline
Miembro
 
Registrado: abr 2005
Posts: 46
Reputación: 0
miquellg Va por buen camino
recorrer XML con IXMLnode

Hola de nuevo,
necesito crear un bucle para leer un archivo xml pero no lo consigo. La estructura tendria un esqueleto similar a:

Código:
<pedido>
  <cliente>pepe</cliente>
  <adres>cuesta 23</adres>
   ...
  <articulos>
     <articulo id='AAA'>
         <precio>56,00</precio>
         <peso>6</peso>
         ...
     </articulo>
     <articulo id='BBB'>
         <precio>6,40</precio>
         <peso>3,25</peso>
         ...
     </articulo>
     ....
  </articulos>
</pedido>
necesito crear un bucle para obtener el id de cada artículo pero no lo consigo, tampoco vi ningún hilo que me ayudara. Supongo que no es difícil pero llevo demasiado tiempo perdido en este tema.

Trabajo con los componentes TXMLDocument y IXMLNode:

Código Delphi [-]
 XMLDoc.LoadFromFile(nomfile);
 XMLDoc.Active   := true;
 XMLDoc.Version  := '1.0';
 
with XMLDoc.DocumentElement do
    begin
        nodoRaiz := ChildNodes.FindNode('articulos');
        nodoRaiz.ChildNodes.First;
        for x:= 1 to (nodoRaiz.ChildNodes.Count) do
              begin
                   node2 := nodoRaiz.ChildNodes.FindNode('articulo');
                   xxx   := node2.Attributes['id'];
                   showmessage(' articulo  : ' + xxx );

                   nodoRaiz := nodoRaiz.ChildNodes.NextSibling;
               end;
     end;

gracias

Última edición por dec fecha: 20-04-2009 a las 13:26:40. Razón: Poner etiquetas CODE y DELPHI
Responder Con Cita