Discussion :

[94340DB]

Bonjour,
J’ai besoin de vos lumières. Dans un TEdit, sont enregistrées les informations suivantes :
(n°1 n°15 n°18 et n°24) cette chaine est délimitée par des espaces entre chaque numéro. Je souhaite compter le nombre de chiffre (1) dans la chaine ou le nombre de (n°1).
J’ai utilisé la fonction ci-dessous. Le problème de cette fonction, c’est qu’elle récupère tous les chiffres (1) même ceux qui appartiennent au (15) et au (18).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function CountString(const S, StrToCount : string) : integer;
var N : integer;
begin
result := 0;
N      := Posex(StrToCount,S,1);
while N <> 0 do begin
inc(result);
N := Posex(StrToCount,S,N+Length(StrToCount));
end;
end;
 
Exemple d’utilisation :
 
Prcedure NB_Chiffre ;
Var
I :Integer ;
Begin
I :=StrtoInt( CountString(Edit1.text, ‘1’) ;
End ;

J’obtiens au total 3 puisque la fonction ne fait pas la différence entre le chiffre 1 et le chiffre 1 de 15
Merci infiniment pour votre aide.

[Gilbert Geyer]

Bonjour,

... espaces entre chaque numéro ... Je souhaite compter le nombre de chiffre (1) dans la chaine ou le nombre de (n°1).

Puisque les informations sont séparées par des espaces y'a qu'à chercher les occurrences de la subString '1 ' (le 1 suivi d'un espace).

A+.

[Rayek]

Bonjour,


Puisque les informations sont séparées par des espaces y'a qu'à chercher les occurrences de la subString '1 ' (le 1 suivi d'un espace).

A+.

Problème s'il y a un nombre avec n°31 il sera compté lui aussi.

Pour ma part, je collerai ces données dans TStringList, puis je transformerai les n° par des #13#10 et je parcourrai la liste en lisant les lignes afin de vérifier les valeurs numérique de chacun.

[SergioMaster]

Bonjour,


Puisque les informations sont séparées par des espaces y'a qu'à chercher les occurrences de la subString '1 ' (le 1 suivi d'un espace).

A+.

j'aurais dit substring de 'n°1 '

[94340DB]

Merci pour vos réponses. Cependant j'ai déjà tenté (substring de 'n°1 ') en laissant un espace dans la chaine à rechercher, mais ça na pas fonctionné.

[Gilbert Geyer]

Re-bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function CountSubString(const S, SubString: string): integer;
var po,L: integer; Sc : string;
begin
  result := 0; L:=length(SubString); Sc:=S;
  po := Pos(SubString, Sc);
  while po > 0 do begin
    inc(result); Delete(Sc,1,po+L);
    po := Pos(SubString, Sc);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer; S:string;
begin
  S:='n°1 n°15 n°18 et n°24 n°1 n°31 n°44 n°1 n°55 n°1 ';
  I := CountSubString(S, 'n°1 ');
  showmessage(inttostr(i)); // Affiche 4 : Ok
end;

A+.

[94340DB]

Merci Gilbert Geyer
Ça fonctionne très bien.
Merci également à tous les intervenants pour leur aide.

[Gilbert Geyer]

Bonjour,

Ça fonctionne très bien.

Oui, mais ainsi c'est mieux :

Code :

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

1
2
3
4
5
6
7
8
9
10
function CountSubString(const S, SubString: string): integer;
var po, L: integer; Sc: string;
begin
  result := 0; L := length(SubString); Sc := S;
  po := Pos(SubString, Sc);
  while po > 0 do begin
    inc(result); Delete(Sc, 1, po + L - 1); // <= avec -1 c'est mieux
    po := Pos(SubString, Sc);
  end;
end;

A+.