Discussion :

[gregb34]

Bonsoir,

J'ai trouvé une source pour extraire une chaine de caractère contenue entre 2 delimiteurs.

La chaine :

86.194.50.132 - - [16/Feb/2006:17:40:36 +0100]

Code :

Code :

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

1
2
3
4
5
6
7
8
function extraire_chaine(chaine,debut,fin:string):string;
var
 resultat:string;
 begin
resultat :=copy(chaine,Pos(debut,chaine)+length(debut),length(chaine));
resultat := copy(resultat,0,Pos(fin,resultat)-length(fin));
result := resultat;
end;

Lorsque je fais :

extraire_chaine(chaine,'[',':') pour récuperer la date, ca me renvoie bien 16/Feb/2006

Cependant, lorsque je fais :

extraire_chaine(chaine,'',' -') pour récuperer l'IP ca me renvoie 86.194.50.13, il manque le 2, a mon avis ca vient du fait que l'IP est en tout debut de chaine.

Une idée pour corriger ca ? MERCI

[skywaukers]

bonjour,

le problème, c'est que la function posPos(fin,resultat), renvoie la position du premier caractère de la chaine fin dans la chaine résultat, donc si la chaine fin fait plus d'un caractère ça pose problème.

Il faut donc modifier la ligne en :

Code :

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

resultat := copy(resultat,0,Pos(fin,resultat)-1);

et cela devrait être bon.

@++
Dany

[Lung]

Code :

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

1
2
3
4
5
6
7
8
function extraire_chaine(chaine,debut,fin:string):string;
var
 resultat:string;
 begin
resultat :=copy(chaine,Pos(debut,chaine)+length(debut),length(chaine));
resultat := copy(resultat,1,Pos(fin,resultat)-1);
result := resultat;
end;

Et comme ça ?

EDIT : trop tard.