德爾福：計數一個字符串發生在另一個字符串的次數

Question

我正在使用德爾福2007年，並想知道是否有一個簡單的方法來計算一個字符串發生在另一個字符串中的次數。我可以使用哪些內置函數？

例子：「你好嗎」

• 「如何」在字符串中出現一次
• 「do」在字符串「你好嗎？」中出現兩次。

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

一個我見過這樣做的最聰明的方法：

{ 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

如果你發現自己經常在大正文文本的搜索出現次數和性能成爲問題，你可以試試Boyer-Moore search algorithm。

最壞情況下找到所有出現 文本大約需要3N 比較

在Delphi中的實現可以發現在我們自己的SO here

我需要三個快速大字符串 功能：快速搜索，快速搜索 並替換，並快速計數 字符串中的子串。

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;