comment compter les caracteres dans un stringRésolu

Question

Bonjour

j'aimerai à partir d'un string récupéré dans un edit, compter les caracteres mot par mot.

Exemple : la ligne : aaaa bbbbbb cccccccccc dddddddddddddd
                en sachant que chaque mot est séparé par un seul  
                espace
je voudrais obtenir une réponse du style : 
listbox1:
4
6 
10 
14

Si quelqu'un à une idée 

D'avance 
MERCI
guy

japee · Accepted Answer

J'avais oublié l'éventualité d'une chaîne vide passée en paramètre.

Il faut donc rajouter au début :

if Chaine = EmptyStr then Exit;


Ce qui donne :

procedure CompteCaracteresMots(Chaine: String; ListBox: TListBox);
var Mot: String;
begin
  if Chaine = EmptyStr then Exit;
  ListBox.Clear;
  Chaine := Trim(Chaine);
  Chaine := Chaine + ' ';   // pour lire le dernier mot
  repeat
    Mot := Copy(Chaine, 1, Pos(' ', Chaine) -1);
    ListBox.Items.Add(IntToStr(Length(Mot)));
    Delete(Chaine, 1, Length(Mot));
    Chaine := TrimLeft(Chaine);
  until Length(Chaine) = 0;
end;


Je vais finir par y arriver...   :approve) 

Bonne prog'   :-p

cs_MAsterC · Answer

Salut,

Je ne sais pas trop si c'est comme sa tu veux sa  :-p 
ListBox1.Items.Add(IntToStr(Edit1.GetTextLen));

a+

 :)  MAsterC - Power Of Dream.  ;) 
Site Internet!

guy jeuniaux · Answer

MAsterC,
Merci pour ta réponse , cela fonctionne mais je récupère le nombre total de caractères.

Ce que je souhaite en fait c'est obtenir la longueur de chaque mot.
Une petite précision les caractères seront en fait toujours les mêmes ( que des a ou que des b) séparés par un espace.
guy

japee · Answer

Bonjour, guy jeuniaux,

Ceci devrait faire l'affaire :

procedure CompteCaracteresMots(Chaine: String; ListBox: TListBox);
var i, PosEspace, NbreEspaces: Integer;
    Mot: String;
begin
  ListBox.Clear;
  NbreEspaces := 0;
  for i := 1 to Length(Chaine) do
    if Copy(Chaine, i, 1) = ' ' then inc(NbreEspaces); // compte les espaces
  Chaine := Chaine + ' ';   // pour lire le dernier mot
  for i := 0 to NbreEspaces do
  begin
    PosEspace := Pos(' ', Chaine);
    Mot := Copy(Chaine, 1, PosEspace);
    Chaine := Copy(Chaine, PosEspace + 1, Length(Chaine));
    if Mot <> ' ' then ListBox.Items.Add(IntToStr(Length(Mot) -1));
    {prise en compte faute de saisie genre double espace, voire triple ou plus...}
  end;
end;


à utiliser par exemple comme ceci :

procedure TForm1.Button1Click(Sender: TObject);
begin
  CompteCaracteresMots(Edit1.Text, ListBox1);
end;


Bonne prog'   :-p

japee · Answer

Mon code précédent était un peu "tarabiscoté".

Voici une manière un poil plus élégante pour parvenir au même résultat :

procedure CompteCaracteresMots(Chaine: String; ListBox: TListBox);
var Mot: String;
begin
  ListBox.Clear;
  Chaine := Trim(Chaine);
  Chaine := Chaine + ' ';   // pour lire le dernier mot
  repeat
    Mot := Copy(Chaine, 1, Pos(' ', Chaine) -1);
    ListBox.Items.Add(IntToStr(Length(Mot)));
    Delete(Chaine, 1, Length(Mot));
    Chaine := TrimLeft(Chaine);
  until Length(Chaine) = 0;
end;


Bonne prog'   :-p

guy jeuniaux · Answer

Merci japee
je vais essayer
guy

Comment compter les caracteres dans un string

6 réponses

Votre réponse

Discussions similaires