Parcours d'un fichier XMLRésolu

Question

Bonjour à tous, J'ai un petit soucis pour la lecture d'un fichier XML. J'ai effectué des modifs en long en large en travers mais rien n'y fait. Après debug, j'arrive bien a entrer dans le doc XML, à pouvoir lire la donnée title "title001" lors du passage de la première boucle. A la seconde boucle, la valeur est toujours à title001 au lieu de title002 ??!! Je laisse ici mon fichier xml ainsi que le code. //************ // Fichier XML //************ Configuration: Delphi http://www.01.fr description01 http://www./img1.bmp title001 http://001.fr description001 title002 http://002.fr description002 title003 http://003.fr description003 //***************** // fin fichier XML //***************** //***************** // code delphi //***************** var ixml : IXMLDocument; titre: WideString ANode : IXMLNode; [...] ixml := TXMLDocument.create(Nil); ixml.FileName := 'C:\XML\doc2.xml'; /* cf. fichier ci-dessus */ ixml.Active := True; startItemCode := ixml.DocumentElement.ChildNodes.FindNode('channel'); ANode := startItemCode; repeat titre:= ANode.ChildNodes['title'].Text; ANode.NextSibling; until ANode = nil; //***************** // fin code delphi //***************** Je suis également passé par une structure telle que for i := 0 to noeud.ChildNodes.count-1 do begin [...] with Nodes['item'].ChildNodes do begin titre:= Nodes['title'].text; /* idem : reste toujours à la valeur title001 alors que le i s'incrémente bien */ end; [...] end; // Aucun exemple trouvé sur le net n'a pu solutionné mon problème :( Si qq'un a une idée... D'avance merci pour votre aide.

cs_47 · Accepted Answer

Bonjour,

peut être une solution (j'ai mis le composant TXMLDocument, nommé XMLDoc,  sur une form) testé sous Delphi2006


var i, cpt : integer;
tmp :  IXMLNode;
begin
  XMLDoc.LoadFromFile('test.xml');
  with XMLDoc.ChildNodes.Nodes['rss'].ChildNodes do begin
        cpt:=Nodes['item'].ChildNodes.Count;
        tmp:=Nodes['item'];
        for I := 0 to cpt - 1 do begin
          ShowMessage(tmp.ChildValues['title']);
          tmp:=tmp.NextSibling;
        end;
  end;
end;


retourne title001, title002 et title003

bonne soirée

TrustNoOne · Answer

Yes !!!  ça fonctionne avec cette solution. Merci beaucoup 47 pour l'aide. 

bonne journée

Parcours d'un fichier XML

2 réponses

Votre réponse

Discussions similaires