Discussion :

[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 :

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_

[TicTacToe]

Salut

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

[MaTHieU_]

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_

[TicTacToe]

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. ?

[octal]

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_

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

[MaTHieU_]

Bonjour,

En effet, ça marche parfaitement avec le :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
RegExp.ModifierG := false;

Merci,
MaTHieU_