Delphi: başka bir dizgede bir dizgenin kaç kez oluştuğunu saymak

Question

Delphi 2007 kullanıyorum ve bir dizenin başka bir dizede kaç kez geçtiğini saymanın basit bir yolu olup olmadığını merak ediyorum. Kullanabileceğim yerleşik işlevler var mı?

Örnekler: "? Nasılsın"

• dize kere geçer "Nasıl"
• "Yap", "Nasıl Yaparsınız?" Dizesinde iki kez oluşur. Şimdiye kadar bunun için gördüğüm en zeki yollarından

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

Bir:

{ 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

kendinizi sık metnin bir büyük vücutta tekrarlarını arama bulmak ve performans bir duruma gelirse Sorun, Boyer-Moore search algorithm deneyebilirsiniz.

bir metin yaklaşık 3n karşılaştırmaları

ihtiyacı içinde Delphi An uygulama bizim çok ihtiyacım SO here

sahibi bulunabilir tüm tekrarlamalarını bulmak için en kötü durum üç hızlı geniş-dizeleri fonksiyonları: hızlı arama, hızlı arama ve bir dize alt dizeleri ve hızlı sayısı.

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;