Delphi6 Fonction POS

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 !!

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

Code:

---

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+

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 !!

Non !

Code:

---

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+

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.

Bonjour,

Quelque chose ne va pas dans ces lignes:

Code:

---

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:

---

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

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

bonjour,

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

Je ferais quelque chose du style :

Code:

---

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:

---

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

---

par

Code:

---

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

---