डेल्फी: किसी अन्य स्ट्रिंग

Question

में एक स्ट्रिंग होने की संख्या की गिनती संख्या मैं डेल्फी 2007 का उपयोग कर रहा हूं और सोच रहा हूं कि किसी अन्य स्ट्रिंग में स्ट्रिंग की संख्या कितनी बार गिनती है। कोई भी बिल्टिन फ़ंक्शन जिसका मैं उपयोग कर सकता हूं?

उदाहरण: "? आप कैसे हैं"

• "कैसे" स्ट्रिंग में एक बार होता है
• "डू" स्ट्रिंग में दो बार होता है "आप कैसे करते हैं?"

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 आज़मा सकते हैं।

बुरी से बुरी हालत डेल्फी में एक कार्यान्वयन पाया जा सकता है पर हमारे बहुत ही एसओ here

मैं की जरूरत है सभी घटनाओं खोजने के लिए एक पाठ लगभग 3n तुलना

की जरूरत है तीन फास्ट-ऑन-लार्ज-स्ट्रिंग्स फ़ंक्शंस: फास्ट सर्च, फास्ट सर्च और स्ट्रिंग में सबस्ट्रिंग्स की तेज़ गिनती और तेज़ गिनती।

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;