Bonjour,

Je souhaite via une expression régulière récupérer tous les liens qui se trouve dans une page web. Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
procedure TFPrincipale.Button1Click(Sender: TObject);
const
     Expression = '<a.*href=.*(http.*).*>.*</a>';
var
     RegExp    : TRegExpr;
begin
     Button1.Enabled := false;
     ListBox1.Clear;
     RegExp := TRegExpr.Create;
     try
          RegExp.Expression := Expression;
          if RegExp.Exec(Memo1.Lines.Text) then
          begin
               repeat
                    ListBox1.Items.Add(RegExp.Match[1]);
               until not RegExp.ExecNext;
          end;
     finally
          RegExp.Free;
          Button1.Enabled := true;
     end;
end;
Le seul soucis, il ne me trouve qu'une seule URL alors que la page en contient énormément.

Peut-être que mon expression régulière n'est pas correcte ?

Merci,
MaTHieU_