Discussion :

[john_wili]

j'ai une chaine de caractère dont je veux extraire une sous chaine à partir de la 7eme position jusqu'à la fin

puisque la taille de ma chaine varie donc je peux pas utiliser la
fonction MidStr puisque je serai obligué de fixer la position +nombre de caractère à extraire (ce nombre n'est pas fixe)

est-il possible d'utiliser la fonction MidStr avec 2 parametre seulement la chaine et la position

MidStr (chaine,7)

merci de me répondre

[Andnotor]

Si tu regardes l'aide, tu verras que si le nombre de caractères voulu dépasse la longeur de la chaîne, la fin de la chaîne sera renvoyée sans erreur.

Même chose avec Copy:

Code :

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

s2 := Copy(s1, 7, MaxInt);

[BuzzLeclaire]

Salut,

MidStr doit te convenir normalement utilise le ainsi :

Code :

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

1
2
Machaine := 'COUCOU LES LOUPS' // Ou autre chose
MidStr(Machaine,7,Length(Machaine));

bye.

[Jannus]

Tu trouveras ta réponse dans la FAQ Delphi

[john_wili]

MidStr doit te convenir normalement utilise le ainsi :

Code :
Machaine := 'COUCOU LES LOUPS' // Ou autre chose
MidStr(Machaine,7,Length(Machaine));

merci pour l'idée BuzzLeclaire mais je crois qu'il faut mettre

Code :

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

1
2
 
MidStr(Machaine,7,Length(Machaine)-6);

comme ça il va prendre le reste de ma chaine à partir de la 7eme position
puisque le 3eme paramètre de la fonction "MidStr" c'est le nombre de caractère à extraire

tu ne trouve pas ?

[OutOfRange]

Salut
Tu peux aussi utiliser la fonction RightStr pour extraire les n-6 caractères à droite

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
function SousChaineADroite(LaChaine:String;Depart:Byte):String;
begin
  Result:=RightStr(Lachaine,Length(LaChaine)-(Depart-1));
end;
 
procedure TForm1.FormActivate(Sender: TObject);
var
  MaChaine:String;
begin
  MaChaine:='LaChaineDontJeVeuxTousLesCaractèresàPartirDu7ème';
  ShowMessage(SousChaineADroite(MaChaine,7));
end;

Ou plus simplement faire

Code :

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

  ShowMessage(RightStr(MaChaine,Length(MaChaine)-6));