Recuento de repeticiones en una cadena

Recuento de repeticiones en una cadena

Recuento de repeticiones en una cadena : Multi-millones de consejos para hacer su vida mas facil.

Una funcion que devuelve el numero de veces que una subcadena que se produce en una cadena. Tambien hay una version ANSI.
Recuento de repeticiones en una cadena
Las siguientes funciones devuelven el numero de apariciones de un caracter o de una subcadena dentro de una cadena o cadena ANSI:
interfaz
& nbsp & nbsp funcion se Produce(const str: string c: char): integer sobrecarga
& nbsp & nbsp funcion se Produce(const str: string const substr: string): integer
& nbsp & nbsp & nbsp & nbsp sobrecarga
& nbsp & nbsp funcion AnsiOccurs(const str: string const substr: string): integer
& nbsp & nbsp aplicacion
& nbsp & nbsp utiliza sysutils
& nbsp & nbsp funcion se Produce(const str: string c: char): integer
& nbsp & nbsp // Devuelve el numero de veces que un personaje se produce en una cadena
& nbsp & nbsp var
& nbsp & nbsp & nbsp & nbsp p: PChar
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp Resultado := 0
& nbsp & nbsp & nbsp & nbsp p := PChar(Puntero(str))
& nbsp & nbsp & nbsp & nbsp mientras p <> nil do begin
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp p := StrScan(p, c)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si p <> nil then begin
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp inc(Resultado)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp inc(p)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp final
& nbsp & nbsp funcion se Produce(const str: string const substr: string): integer
& nbsp & nbsp // Devuelve el numero de veces que una subcadena que se produce en una cadena
& nbsp & nbsp var
& nbsp & nbsp & nbsp & nbsp p, q: PChar

& nbsp & nbsp & nbsp & nbsp n: integer
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp Resultado := 0
& nbsp & nbsp & nbsp & nbsp n := Largo(substr)
& nbsp & nbsp & nbsp & nbsp si n = 0 entonces salida
& nbsp & nbsp & nbsp & nbsp q := PChar(Puntero(substr))
& nbsp & nbsp & nbsp & nbsp p := PChar(Puntero(str))
& nbsp & nbsp & nbsp & nbsp mientras p <> nil do begin
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp p := StrPos(p, q)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si p <> nil then begin
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp inc(Resultado)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp inc(p, n)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp final
& nbsp & nbsp funcion AnsiOccurs(const str: string const substr: string): integer
& nbsp & nbsp // Devuelve el numero de veces que una subcadena que se produce en una cadena
& nbsp & nbsp // version ANSI
& nbsp & nbsp var
& nbsp & nbsp & nbsp & nbsp p, q: PChar
& nbsp & nbsp & nbsp & nbsp n: integer
& nbsp & nbsp empezar
& nbsp & nbsp & nbsp & nbsp Resultado := 0
& nbsp & nbsp & nbsp & nbsp n := Largo(substr)
& nbsp & nbsp & nbsp & nbsp si n = 0 entonces salida
& nbsp & nbsp & nbsp & nbsp q := PChar(Puntero(substr))
& nbsp & nbsp & nbsp & nbsp p := PChar(Puntero(str))
& nbsp & nbsp & nbsp & nbsp mientras p <> nil do begin
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp p := AnsiStrPos(p, q)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp si p <> nil then begin
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp inc(Resultado)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp inc(p, n)
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp & nbsp & nbsp final
& nbsp & nbsp final