Discussion :

[tomy29]

Bonjour

Je souhaite obtenir dans une chaine une sous chaine placé entre deux caractères définis.
Exemple : je veux obtenir la chaine placée entre les deux '/' :
'01/01/1900' me donne donc '01'
01/1/1900' me donne donc '1'

Ma chaine est de type String.

Je n'ai pas trouvé de fonction dans delphi qui le fasse. Mais peut-etre n'ai je pas cherché au bon endroit.
si vous savez comment faire, je suis preneur!!

Merci.

[Gilbert Geyer]

Il y a la fonction copy(s : string, Index : integer, Count : integer) : string;
Pour plus de détails voir l'Aide de Delphi.
A+

[Jeankiki]

Bonjour tomy,

Tu peux utiliser la fonction Pos

Code :

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

1
2
3
4
5
6
7
 
var
   PartieDeTaChaine : string;
   lng       : integer;
begin
  PartieDeTaChaine:= copy(aString, Pos('/', aString)+1, lng); 
end;

PartieDeTaChaine est le résultat que tu veux
aString est la chaine dans laquelle tu veux prendre une sous chaine
Pos('/', aString)+1 est le début de ta sous chaine
lng la longueur que tu veux extraire.

[Dirk-Pitt]

Dans Les Jcl ( JclStrings ), tu as entre autres StrBefore et StrAfter qui sont bien pratiques. Tu peux faire un truc du genre

Code :

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

StrBefore( '/', StrAfter( '/', Chaine ) )

[ShaiLeTroll]

tu peux utiliser la fonction ExplodeLazy (voir ICI le source)

sinon ExtractStrings dans Classes.Pas
...

[tomy29]

merci!