Bonjour,

J'ai un petit soucis.
Je voudrais extraire des liens d'un fichier xml.
Comme je veux faire vite, je n'ai pas le temps de me plonger dans le XML.

Je voudrais donc juste extraire les liens http qui pointent vers les images, tout ceci en boucle... mais comment faire ??

<petit canal_objet="url"><![CDATA[http://www.site.com/image1.jpg]]></petit>

Avez vous une solution ???

Merci beaucoup

M.

J'ai fait un petit parser, essaie le et di moi s'il marche. (Je ne connaias pas la structure des fichiers xml, alors j me suis basé sur ce que tu as écrit).

http://0217021.free.fr/Cours/XmlParser.dpr

Ou alors, utilises mon TStringParser
http://www.delphifr.com/code.aspx?ID=31741

Pour ton problème tu dois procéder ainsi:

---

uses
  uStringParser;  // Faire Projet > Ajouter au projet > Selectionner l'unité.

procedure TForm1.Button1Click(Sender: TObject);
const
  LIEN = 100; // Par exemple.
var
  P: TStringParser;
begin
  P := TStringParser.Create;
  try
    { On ajoute l'unique token. }
    P.AddToken(LIEN,'CDATA[',']');
    { On parse. }
    P.ParserChaine(MemoXML.Text); // Ici tu remplaces MemoXML.Text par le texte à parser.
    while not P.Termine do
    begin
      { Tant que l'on trouve un lien ... on l'ajoute en enlevant les bords. }
      memoResult.Lines.Add(Copy(P.TokenString,7,Length(P.TokenString)-7));
      { On passe au token suivant. }
      P.NextToken;
    end;
  finally
    P.Free;
  end; // try.
end;

---

N'hésites pas pour les questions si tu en as.

@ ++
Florent

Si tu ne te plantes pas ......
tu ne poussera jamais