Delphi: cuenta el número de veces que se produce una cadena en otra cadena

Question

Estoy usando Delphi 2007 y me pregunto si existe una manera simple de contar la cantidad de veces que una cadena se encuentra en otra cadena. ¿Alguna función integrada que pueda usar?

Ejemplos: "¿Cómo está usted"

• "Cómo" se produce una vez en la cadena
• "do" aparece dos veces en la cadena "¿Cómo estás?"

Answer 1

function Occurrences(const Substring, Text: string): integer; 
var 
    offset: integer; 
begin 
    result := 0; 
    offset := PosEx(Substring, Text, 1); 
    while offset <> 0 do 
    begin 
    inc(result); 
    offset := PosEx(Substring, Text, offset + length(Substring)); 
    end; 
end; 

Answer 2

Una de las maneras más inteligentes que he visto hacer esto:

{ Returns a count of the number of occurences of SubText in Text } 
function CountOccurences(const SubText: string; 
          const Text: string): Integer; 
begin 
    if (SubText = '') OR (Text = '') OR (Pos(SubText, Text) = 0) then 
    Result := 0 
    else 
    Result := (Length(Text) - Length(StringReplace(Text, SubText, '', [rfReplaceAll]))) div Length(subtext); 
end; { CountOccurences } 

Answer 3

Si usted se encuentra con frecuencia en busca ocurrencias en un gran cuerpo de textoy el rendimiento se convierte en una problema, puede probar el Boyer-Moore search algorithm.

el peor de los casos para encontrar todas las ocurrencias en un texto necesita alrededor de 3 N comparaciones

Una aplicación en Delphi se puede encontrar en nuestro propio SO here

Necesito tres funciones fast-on-large-strings : búsqueda rápida, búsqueda rápida y reemplazar, y conteo rápido de subcadenas en una cadena.

Answer 4

uses 
    StrUtils;  

function Occurrences(const Substring, Text: string; 
    const ignoreUppercase: Boolean = false): Integer; 
var 
    inSubstring, inText: string; 
    inPos: Integer; 
begin 
    Result:= 0; 

    if (Substring = '') or (Text = '') then 
    Exit; 

    if ignoreUppercase then 
    begin 
    inSubstring:= AnsiLowerCase(Substring); 
    inText:= AnsiLowerCase(Text); 
    end 
    else 
    begin 
    inSubstring:= Substring; 
    inText:= Text; 
    end; 

    inPos:= 1; 

    repeat 
    inPos:= posEx(inSubstring, inText, inPos); 
    if inPos > 0 then 
    begin 
     Inc(Result); 
     inPos:= inPos + Length(inSubstring); 
    end; 
    until inPos = 0; 
end;