Discussion :

[PimpW]

Voici mon probleme;

J essaie d identfier les hyperliens dans les source d une page web.
Presentement j utilise 2 fonction POS. J ai essayer PosEx mais ca me renvoi une erreur me disant en gros que la fonction n est pas disponnible

Voici mon code

i,x,y : integer;
s : string;

begin

i:=0;
repeat
x:=pos('"http://',s); //Premiere partie du lien
y:=pos('">',s); //deuxieme partie du lien
s:=richedit1.Lines[i]; //Donne la ligne sorce
listbox1.Items.Add(Copy(s,x+1,y); Copie S de l index X a Y
i:=i+1;
until (i=10);

Mias cela ne semble pas marcher tout a fait bien

j aimerais savoir si il y as une facon plus precise de le faire ou sinon une facon de corriger le code pour avoir de meilleurs resultas

Sous delphi 6 bien sur !!

Merci a l avance !!

[Philippe Gormand]

Ouïe ! Ouïe ! Ouïe !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
i,x,y : integer;
s : string;
 
begin
      i:=0;
      repeat
           x:=pos('"http://',s); //Premiere partie du lien
           y:=pos('">',s); //deuxieme partie du lien
           s:=richedit1.Lines[i]; //Donne la ligne sorce
          listbox1.Items.Add(Copy(s,x+1,y); Copie S de l index X a Y
          i:=i+1;
      until (i=10);

Dans ton code, x renvoit toujours la même valeur (la position de "http://") donc "h".
Y est la position de ">", donc, toujours la même valeur.

Pour ce soir, je te suggere de lire l'aide de DELPHI sur les fonctions Pos et Copy.
Bon courage, A+

[PimpW]

J ai deja lu l aide dans delphi.

C est exactement ce que je veut

X renvoit la position de h
Y renvoit la position de *>

la String est richedit1.lines[i] dont i est le numero de la ligne

copy est supposer de copier de x a y dans la string S
donc de h a > ???

ensuite on change de ligne avec i:=i+1

ce n est pas ca ?

Merci encore !!

[Philippe Gormand]

Non !

Code :

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

1
2
3
 
Copy(S,X,Y);
// Copie une partie de la chaine S à partir de X une longueur égale à Y.

Et non pas copîe S de X à Y.

Désolé, il faut bien lire l'aide de DELPHI et ses exemples.
A+

[PimpW]

Ca copie donc la strings de x pour le nombre y de char vers la droite...

De toute facon un petit coup de main serais TRES apprecier.
Merci.

[thewho]

Bonjour,

Quelque chose ne va pas dans ces lignes:

Code :

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

1
2
3
4
5
6
7
8
i:=0;
repeat
  x:=pos('"http://',s); //Premiere partie du lien
  y:=pos('">',s); //deuxieme partie du lien
  s:=richedit1.Lines[i]; //Donne la ligne sorce
  listbox1.Items.Add(Copy(s,x+1,y); Copie S de l index X a Y
  i:=i+1;
until (i=10);

Lors du 1er passage dans la boucle, la chaîne s ne contient encore rien quand tu cherches les positions x et y, et pour les passages suivants, les valeurs de x et y correspondent à la ligne i-1.

Il serait plus adéquat d'écrire

Code :

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

1
2
3
4
5
6
7
8
i:=0;
repeat
  s:=richedit1.Lines[i]; //Donne la ligne sorce
  x:=pos('"http://',s); //Premiere partie du lien
  y:=pos('">',s); //deuxieme partie du lien
  listbox1.Items.Add(Copy(s,x+1,y); Copie S de l index X a Y
  i:=i+1;
until (i=10);

Comme c'est déjà fait, je ne dirais rien de Copy...

La prochaine fois, pense aux balises [code], et indente ton code

[Sub0]

Salut!

Eventuellement, tu peux t'inspirer du code de cette petite démo :
http://sub0.developpez.com/delphi/syntax.zip

Il s'agit d'une coloration syntaxique dans un TRichEdit. Le programme parcours tout le texte et trouvera la position des hyperliens si tu lui programmes les mots clés suivants : "http://", "https://" ou "ftp://"... Le programme est capable de faire la différence des mots ce qui pourrait peut-être te faciliter les choses par la suite...

[ryko]

bonjour,

tu ne testes pas s'il y a plusieurs liens sur une ligne.

Je ferais quelque chose du style :

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
i:=0;
repeat
  s:=richedit1.Lines[i]; //Donne la ligne sorce
  x:=pos('"http://',s); //Premiere partie du lien
  while x>0 do begin
     y:=pos('">',s); //deuxieme partie du lien
     if (x>0) and (y>0) then 
     begin
        listbox1.Items.Add(Copy(s,x+1,y); Copie S de l index X a Y
        delete(s,x,y-x);// supprime de la ligne le lien trouvé
     end;
     x:=pos('"http://',s);// continue la recherche
  end;
  i:=i+1;
until (i=10);

code non testé

[EDIT] oops et je remplaçerais :

Code :

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

listbox1.Items.Add(Copy(s,x+1,y); Copie S de l index X a Y

par

Code :

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

listbox1.Items.Add(Copy(s,x,y-x); Copie S de l index X a Y