En comptant les occurrences dans une chaîne de caractères

En comptant les occurrences dans une chaîne de caracteres

En comptant les occurrences dans une chaîne de caracteres : Plusieurs milliers de conseils pour vous faciliter la vie.

Une fonction qui renvoie le nombre de fois qu'une sous-chaîne se produit dans une chaîne de caracteres. Il y a aussi une version ANSI.
en Comptant les occurrences dans une chaîne de caracteres
Les fonctions renvoient le nombre d'occurrences d'un caractere ou d'une sous-chaîne dans une chaîne ou une chaîne ANSI:
interface
& nbsp & nbsp fonction Se produit(const str: string c: char): integer surcharge
& nbsp & nbsp fonction Se produit(const str: string const substr: string): entier
& ! & ! & ! & nbsp surcharge
& nbsp & nbsp fonction AnsiOccurs(const str: string const substr: string): integer
& nbsp & nbsp mise en œuvre
& nbsp & nbsp utilise sysutils
& nbsp & nbsp fonction Se produit(const str: string c: char): entier
& nbsp & nbsp // Retourne le nombre de fois qu'un personnage se produit dans une chaîne de caracteres
& nbsp & nbsp var
& ! & ! & ! & nbsp p: PChar
& nbsp & nbsp commencer
& ! & ! & ! & nbsp Result := 0
& ! & ! & ! & nbsp p := PChar(Pointeur(str))
& ! & ! & ! & nbsp tandis que p <> nil do begin
& ! & ! & ! & ! & ! & nbsp p := StrScan(p, c)
& ! & ! & ! & ! & ! & nbsp si p <> nil alors commencer
& ! & ! & ! & ! & ! & ! & ! & nbsp inc(Suite)
& ! & ! & ! & ! & ! & ! & ! & nbsp inc(p)
& ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & nbsp fin
& nbsp & nbsp fin
& nbsp & nbsp fonction Se produit(const str: string const substr: string): entier
& nbsp & nbsp // Renvoie le nombre de fois qu'une sous-chaîne se produit dans une chaîne de caracteres
& nbsp & nbsp var
& ! & ! & ! & nbsp p, q: PChar

& ! & ! & ! & nbsp n: integer
& nbsp & nbsp commencer
& ! & ! & ! & nbsp Resultat := 0
& ! & ! & ! & nbsp n := Longueur(substr)
& ! & ! & ! & nbsp si n = 0 then exit
& ! & ! & ! & nbsp q := PChar(Pointeur(substr))
& ! & ! & ! & nbsp p := PChar(Pointeur(str))
& ! & ! & ! & nbsp tandis que p <> nil do begin
& ! & ! & ! & ! & ! & nbsp p := StrPos(p, q)
& ! & ! & ! & ! & ! & nbsp si p <> nil alors commencer
& ! & ! & ! & ! & ! & ! & ! & nbsp inc(Suite)
& ! & ! & ! & ! & ! & ! & ! & nbsp inc(p, n)
& ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & nbsp fin
& nbsp & nbsp fin
& nbsp & nbsp fonction AnsiOccurs(const str: string const substr: string): entier
& nbsp & nbsp // Renvoie le nombre de fois qu'une sous-chaîne se produit dans une chaîne de caracteres
& nbsp & nbsp // version ANSI
& nbsp & nbsp var
& ! & ! & ! & nbsp p, q: PChar
& ! & ! & ! & nbsp n: integer
& nbsp & nbsp commencer
& ! & ! & ! & nbsp Resultat := 0
& ! & ! & ! & nbsp n := Longueur(substr)
& ! & ! & ! & nbsp si n = 0 then exit
& ! & ! & ! & nbsp q := PChar(Pointeur(substr))
& ! & ! & ! & nbsp p := PChar(Pointeur(str))
& ! & ! & ! & nbsp tandis que p <> nil do begin
& ! & ! & ! & ! & ! & nbsp p := AnsiStrPos(p, q)
& ! & ! & ! & ! & ! & nbsp si p <> nil alors commencer
& ! & ! & ! & ! & ! & ! & ! & nbsp inc(Suite)
& ! & ! & ! & ! & ! & ! & ! & nbsp inc(p, n)
& ! & ! & ! & ! & ! & nbsp fin
& ! & ! & ! & nbsp fin
& nbsp & nbsp fin