Discussion :

[JoseF]

Bonjour,

Je cherche un fonction qui me permette de retrouver l'emplacement d'une sous chaine. Avec la fonction POS, je n'arrive qu'à retouver la 1ere ou la derniere occurence.

exemple dans la chaine suivante :

"la finesse est la part du jugement, la géométrie est celle de l'esprit.(Blaise Pascal )"

je voudrais trouver la position du 2eme "la" . Bien sûr je peux écrire un peu de code pour retrouver mais si une focntion existait du genre INSTR(DEPART,CHAINE à TROUVER,CHAINE_ORIGINE)
soit X:=INSTR(3,"la",Texte)

Merci de votre aide

JoseF

[M.Dlb]

Non il n'existe pas de fonction pour ce genre de traitement... Il faudra que tu réécrives une fonction

En se basant sur Pos, qui trouve la première occurrence d'une sou-chaîne dans une chaîne, tu peux y arriver simplement avec une boucle :

Si par exemple tu recherches la deuxième ocurence :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
var I, Position: Integer:
var S: String;
 
I := 0;
while I<2 do
begin
  Position := Pos('la', S);
  S := Copy(S, Position + 2, Length(S));
  I := I + 1;
end;
 
WriteLn('Position de la deuxième occurence : ', Position);

A améliorer évidemment, car il n'y a pas de gestion des erreurs...

a+

[JoseF]

Merci pour ce code.

Mais comme je dois analyser des dizaines de milliers de lignes (je recherche les points-virgules dans les fichiers au format csv) je me demande si personne n'a écrit cette fonction en assembleur par exemple, car au niveau optimisation je pense que ça peut être mieux.


Cordialement,

JoseF

[M.Dlb]

La fonction n'étant pas très complexe, je ne suis pas sûr que la réécrire en assembleur puisse apporter une amélioration effective des performances (bien sûr, il y aura une amélioration mais je pense qu'elle sera sensible...)

a+

[JoseF]

Merci de tes réponses.

Effectivement ce n'est pas un jeu que je conçois et je ne vais pas utiliser mon programme pendant des heures . La lecture des fichiers une fois faite, je n'y reviens plus et de faire de l'assembleur couterait un peu cher !

voila je crois avoir fait le tour de mon probleme et encore merci

à + pour d'autres question peut etre

JoseF