TRegExpr : Trouver les URLs

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:

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_

Salut :)

tu peux chercher en boucle en augmentant l'offset de début de recherche comme ceci il me semble
Code:

1 2 3 4 5 6 7 8 9 RegExp.Expression := Expression; RegExp.InputString:= Memo1.Line.Text; Position := 1; while RegExp.Exec( Position ) do begin //... traitement ListBox1.Items.Add(RegExp.Match[1]); Position := RegExp.MatchPos[ 0 ]; end;

Bonjour,

La fonction "Exec(string):boolean" accepte uniquement des strings en paramètre.

C'est peut être mon modèle de recheche qui n'est pas correct ?

Merci,
MaTHieU_

Citation:

Envoyé par MaTHieU_

La fonction "Exec(string):boolean" accepte uniquement des strings en paramètre.

Tu es sur ?, dans ce que j'utilise, cette fonction est overloadée et accepte également un entier pour spécifier l'offset de recherche :?
A moins que ce ne soit pas le même compo. ?

Citation:
Envoyé par MaTHieU_
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:

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_
je pense que ton probleme provient du fait que le mode Greedy est actif par défaut.
Essaie de rajouter RegExp.ModifierG := False juste apres RefExp.Expression := ......

de plus ce que tu cherche avec ton expression ce ne sont pas toutes les URL, c'est juste les url se trouvant dans une balise <a ... ></a> apres le mot "href=" !!!!

Cordialement

Bonjour,

En effet, ça marche parfaitement avec le :
Code:

1 2 RegExp.ModifierG := false;
Merci,
MaTHieU_