compter nombre d'occurence

Question

Bonjour,



Je suis tout nouveau et surtout tout d&#233;butant sous delphi.

J'ai une question qui me tracasse et que je ne trouve pas sur le net :



Imaginons que l'on tape une cha&#238;ne de caract&#232;res dans un Edit.

J'aimerais pouvoir &#233;crire une fonction qui renvoie
le nombre d'occurences de la lettre la plus pr&#233;sente dans cet Edit,
sans distinction majuscule/minuscule.

Pour cela je cliques sur le bouton OK, qui va m'&#233;crire dans un label le nombre d'occurence.

Et &#224; la limite en ignorant les accents, mais ceci est un extra.



Je sais que cela peut para&#238;tre complexe mais je suis tr&#232;s int&#233;rr&#233;ss&#233; par cela.

Merci d'@vance !

ni69 · Answer

Tu peux faire comme ceci :
procedure
TForm1.Button1Click(Sender: TObject);
var
      str : string;
      count, nbtotal : integer;
begin
      nbtotal :=  0; // On initialise le nombre de lettres
      str := LowerCase(Edit1.Text); // On met toute la cha&#238;ne en minuscules
       for  count : = 1to Length(str) do // On parcours toute la cha&#238;ne...
        if str[count] =  'e'  then  inc(nbtotal); // Ici, on cherche les "e"
      Label1.Caption : = IntToStr(nbtotal); // Puis, on affiche le nombre de "e" trouv&#233;s
end;


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

ni69 · Answer

Je compl&#232;te mon code... 
Pour une meilleure compatibilit&#233;, tu peux remplacer "LowerCase" par "AnsiLowerCase".
Pour les accents, comme l'a utilis&#233; GrandVizir dans sa source "Des Chiffres Et Des Lettres", tu peux utiliser une table de conversion pour les supprimer lors du test... Merci &#224; lui pour cette id&#233;e ! 


  TAccentTbl =   record 
    _From : string;
    _Dest : char;
 end;

var
str : string;

const MaxAccentTable  = 7;
      AccentTable : array[0..MaxAccentTable] of TAccentTbl = 
         ( (_From : '&#224;&#228;&#226;&#227;'  ;  _Dest : 'a' ),
           (_From : '&#231;'     ;  _Dest : 'c' ),
           (_From : '&#233;&#232;&#234;&#235;'  ;  _Dest : 'e' ),
           (_From : '&#236;&#239;&#238;'   ;  _Dest : 'i' ),
           (_From : '&#241;'     ;  _Dest : 'n' ),
           (_From : '&#244;&#246;&#242;'   ;  _Dest : 'o' ),
           (_From : '&#251;&#252;&#249;'   ;  _Dest : 'u' ),
           (_From : '&#255;'     ;  _Dest : 'y' )
         );

IMPLEMENTATION

function NoAccents(S:string):string;
  //ENLEVE LES ACCENTS D'UNE CHA&#206;NE EN MINUSCULES
var x, i : integer;
begin
   S: =AnsiLowerCase(S);
   //L'id&#233;e est le parcours de la table de conversion
  for x:= 1  to  Length(S) do
     for i: =0 to MaxAccentTable do
       if Pos(S[x],AccentTable[i]._From)<>0 then
         S[x]:= AccentTable[i]._Dest; //si accentu&#233;, alors on remplace par le caract&#232;re non accentu&#233;
   str:=S;
  end ;

procedure
 TForm1.Button1Click(Sender: TObject);
var count, nbtotal : integer;
begin
      nbtotal : = 0;
      str :=  AnsiLowerCase(Edit1.Text); // On convertit la cha&#238;ne en minuscules
      NoAccents(str); // Enl&#232;ve les accents avec la m&#233;thode de GrandVizir
       for  count : = 1 to Length(str) do
           if str[count] =  'e'  then  inc(nbtotal); // On teste la pr&#233;sence du "e"
      Label1.Caption : = IntToStr(nbtotal); // On affiche le nombre d'occurences trouv&#233;es
end

Voil&#224;... J'esp&#232;re que cela te conviendra ! 

@+
Bonne Prog'
Nico

N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

cs_sim51 · Answer

Je suis d'accord avec toi ni69, cependant il recherche la lettre qui
revient le plus souvent dans un pot et donc pas forcement le 'e'.

Donc  architect &#224; toi de modifier cette source.



Soit tu fais le m&#234;me principe en  r&#233;p&#233;tant cette source pour
toutes les lettres de l'alphabet : tu cr&#233;er un tableau &#224; 2 dimensions
avec toutes les les lettres de l'alphabet et le nombre d'occurence et
au lieu de mettre if str[count] =  'e' tu mets  
 if  str[count]  = alphabet[i]  avec une boucle for i:=1 to 26 tu aura ton r&#233;sultat en cherchent le max dans le tableau



Ou alors au lieu de cr&#233;er le tableau de tout l'alphabet, tu le fais &#224;
partir des lettres du Tedit ( je t'envoie dans l'aide de delphi pour
voir la fonction copy sur une chane de caract&#232;re ) et idem ta r&#233;ponse
se fera par la recherche du max dans ton tableau


N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e si la r&#233;ponse vous convient !!!

ni69 · Answer

Effectivement sim51, j'avais oubli&#233; ce d&#233;tail... 


@+
Bonne Prog'
Nico



<HR>
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

florenth · Answer

Hi,



Je raisonnerais plutot comme sim51 &#224; une petite diff&#233;rence pr&#232;s: je
cree un Counts: array [Char] of Integer initialis&#233; &#224; 0, le mets la
chaine en minuscules (ou en maj), puis je parcours la chaine caractere
par caractere.



Comme cela j'incr&#233;mente Counts[S[c]] &#224; chaque caract&#232;re parcouru (c, comme var de controle, S &#233;tant la chaine)



Apr&#232;s on cherche le plus gros nombre en parcourant le tableau et on renvoie le r&#233;sultat.



Ce qui donne

procedure OccurenceLettrePlusPresente(S: string; var Lettre: Char; var Nbre: Integer);

var

i: Integer;

C, Max: Char;

Occurences: array [Char] of Integer;

begin

FillChar(Occurences,SizeOf(Occurences),0);   // On initialise tout &#224; z&#233;ro

S:=AnsiUpperCase(S); // Pour ignorer la casse.

for i:=1 to Length(S) do

begin

Inc(Occurences[S[i]]); // On incr&#233;mente.

end;

Max:=#0;

for C:=Low(Char) to High(Char) do

if Occurences[C] > Occurences[Max] then

Max:=C;

Lettre:=Max;

Nbre:=Occurences[Max];

end;

Et l'on utilise la procedure comme cela: (dans l'&#233;venement OnClick d'un Bouton)

procedure TForm1.Button1Click(Sender: TObject);

var

Lettre: Char;

Nbre: Integer;

begin

{ Le texte est place dans l'Edit1 et le r&#233;sultat s'affichera dans le Label1 }

OccurenceLettrePlusPresente(Edit1.Text,Lettre,Nbre);

Label1.Caption:=Format('La lettre la plus pr&#233;sente est le "%s" avec %d it&#233;rations',[Lettre,Nbre]);

end;



Et voila ... 



@ +++ Florent


Si tu ne te plantes pas ......
tu ne poussera jamais

florenth · Answer

Ma technique a cepandant une faille: si plusieurs lettres ont le meme
nmbre d'iterations, ce sera la derniere rencontr&#233;e qui sera affich&#233;e.



Mais bon, puisqu'il en faut une, cela n'a pas grande importance

Quoique ....



@ ++ 

Flo

Si tu ne te plantes pas ......
tu ne poussera jamais

cs_architect · Answer

Bonjour,

Je vous remercie pour votre rapidit&#233; mais il y'a quelque chose que je ne comprend pas dans les r&#233;ponses.
Et c'est promis, je ferais un "r&#233;ponse accept&#233;e" d&#233;s que je serais chez moi, c'est &#224; dire le week-end.



Tout d'abord pour les premi&#232;re solutions, cr&#233;e un tableau avec les lettres de l'alphabet, coment faut-il que je me d&#233;merde exactement 
Faire une variable de ce genre  : Alphabet: Array[a, b, c...] of string; et que je le mette dans la variable g&#233;n&#233;ral (avec le Form1: TForm1;) ?



Ensuite je n'ai pas compris comment est-ce que la fontion ci-dessous peut arriver &#224; compter le nombre de caract&#232;re, les reconnaitres, incr&#233;mentation, etc.
Pourriez-vous m'expliquer un peu s'il vous plait 

  for i:=1 to Length(S) do
  begin
    Inc(Occurences[S[i]]); // On incr&#233;mente.
  
end;




Et quelle est selon vous la meilleur solution, la 1ere ou la 2nd 



Merci d'avance.

florenth · Answer

Hello,



Alors en ce qui concerne le tableau, c'est vrai que cela n'est pas une syntaxe que l'on a l'habitude de voir.

Pour creer un tableau de toutes les lettres de l'alphabet, il faut
d&#233;clarer un type puis une variable localement (c-&#224;-d dans une
procedure).



Regardes plutot:

procedure TForm1.FormCreate(Sender: TObject);

type

TLettresAlphabet = array['A'..'Z'] of Integer; // Un tableau d'entier repr&#233;sentant les lettres

var

Caracteres: TLettresAlphabet; // La variable en elle m&#234;me

begin

// ici tu en fait ce que tu veux

end;

Evidemment, tu crees ton type dans la procedure ou tu en as besoin.  ;-)



Mon array[Char] of
Integer reprend le m&#234;me principe sauf qu'il inclue toutes les lettres
disponibles (barres obliques, retour &#224; la ligne, accents ...) Enfin
bref, tout ce qu'une variable de type Char peut recevoir.



Mais, pour ton utilisation, array['A'..'Z'] of Integer serait mieux que  array[Char] of Integer car on ne perd pas de place pour ce que l'on a pas besoin.

Apr&#232;s pour le bout de code que tu as recopi&#233;, son fonctionnement est tr&#232;s simple.



Occurences &#233;tant un  array['A'..'Z'] of Integer (c'est mieux ainsi), les num&#233;ros des cases ne sont pas des nombres comme pour un array[0..10] of Integer mais des ... Char !!

En gros, une case s'identifie par un caract&#232;re compris entre a et z.



Apr&#232;s il faut savoir que si S est une chaine ( string ), alors S[n] correspond au nieme caractere de cette chaine, le premier &#233;tant 1, le dernier &#233;tant Length(S).



Donc, avec cette boucle for, on
a successivement chaque caractere de la chaine. Comme les cases du
tableau sont identifi&#233;es par un caract&#232;re, on a acc&#232;s &#224; la case qui
correspond &#224; la lettre en cours !!! Et comme cela, on incr&#233;mente le
nombre d'occurences de cette lettre.



Magique non ???? 

Donc, &#224; la fiin de cette boucle, on a dans le tableau le nombre d'occurences de chaque lettre dans la chaine.



Il suffit de repassser en vue ce tableau pour trouver le nombre le plus grand.

Sauf que vu que les cases sont identifi&#233;es par un Char, il faut que la variable de controle soit ... un Char !!


Avec ces changements au niveau de la structure du tableau, voila la procedure modifi&#233;e :



procedure OccurenceLettrePlusPresente(S: string; var Lettre: Char; var Nbre: Integer);

var

i: Integer;

C, Max: Char;

Occurences: array ['A'..'Z'] of Integer;

begin

FillChar(Occurences,SizeOf(Occurences),0);   // On initialise tout &#224; z&#233;ro

S:=AnsiUpperCase(S); // Pour ignorer la casse.

for i:=1 to Length(S) do

Inc(Occurences[S[i]]); // On incr&#233;mente.

Max:='A'; // Par d&#233;faut, le premier

{ Recherche du plus grand. }

for C:=Low(Occurences) to High(Occurences) do

if Occurences[C] > Occurences[Max] then

Max:=C;

Lettre:=Max;

Nbre:=Occurences[Max];

end;


Personnellement, je trouve que ma
procedure est plus efficace car celle de ni69, incomplete,
necessiterait que la chaine soit parcourue 26 fois au lieu d'une pour
la mienne.

Celle de sim51 reprends l'id&#233;e de ni69 avec sa boucle for i:=1 to 26, et, donc, n'est pas plus performante.



En ce qui concerne les accents, la fonction de grandvizir que te
propose ni69 n'est pas tr&#232;s performante. Je posterai une source d&#232;s que
j'aurais fini de travailler la mienne.

Cepandant, tu peux l'inclure avant le traitement de la chaine, c-&#224;-d au tout d&#233;but de la procedure.



Allez, bonne chance, mais tu es dans la bonne voie 



@ ++ Florent



Si tu ne te plantes pas ......
tu ne poussera jamais

Compter nombre d'occurence

8 réponses

Votre réponse

Discussions similaires