1. Accueil
  2. Tous les snippets
  3. Snippets Delphi / Pascal
  4. Renvoie une partie d'une chaine par rapport à un séparateur

Renvoie une partie d'une chaine par rapport à un séparateur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 199 fois - Téléchargée 34 fois

Commenter

Contenu du snippet

Retourne les tokens se trouvant à la position At dans la chaîne S sans les caractères de contrôle et les espaces se trouvant au début et à la fin.

Source / Exemple : 


function TokenAt(const S: string; Seperator: Char; At: Integer): string;
var
  J, I: Integer;
begin
  Result := '';
  J := 1;
  I := 0;
  while (I <= At) and (J <= Length(S)) do
  begin
    if (S[J] = Seperator) then
      Inc(I)
    else if (I = At) then
      Result := Result + S[J];
    Inc(J);
  end;
  Result := Trim(Result);
end;

Conclusion :


Exemple:
s := "aaa;bb;ccc"
si on lance s1 := rgTokenAt(s, ';', 2)
alors s1 = bb

A voir également

Ajouter un commentaire

Commentaires

Signaler
japee
Messages postés
1715
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
2 décembre 2019
 3
Redirigé ici par ni69 qui répondait à une question posée sur le forum. ;)
On n'a pas fini de l'explorer, notre site préféré !

Dans son exemple, l'auteur a certainement voulu dire :

s := 'aaa;bb;ccc'
si on lance s1 := TokenAt(s, ';', 2)
alors s1 = 'ccc'

... vérifiez !

La fonction proposée dans le commentaire par Emandhal sera plus correcte en remplaçant :

Result := Copy(Str, 1, pos(Substr, Str) -1);

... par :

Result := Trim(Copy(Str, 1, pos(Substr, Str) -1));

si l'on tient compte des espaces éventuels, comme dans le code d'Amadeus.
Signaler
Emandhal
Messages postés
199
Date d'inscription
dimanche 2 mars 2003
Statut
Membre
Dernière intervention
10 octobre 2006
 1
Function SubString(Str: String ; Substr: String ; n: Integer): String;
var
z: Integer;
begin
Str := Str + Substr;
For z := 1 to n do
begin
Str := copy(Str, pos(Substr, Str)+length(Substr), length(Str)-pos(Substr, Str)+Length(Substr));
end;
Result := copy(Str, 1, pos(Substr, Str)-1);
end;
Ce code là aurait-il pas été plus simple? voir mieux vu que le séparateur peut-être aussi bien un Char qu'une String?
Signaler
cs_Amadeus
Messages postés
123
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
15 mars 2004
 2
Fonction proposé suite à un problème de Manu00
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Amadeus)