Anzahl eines Substrings ermitteln, schnellste Methode

[Gambit]

Hallo,
welches wäre wohl die schnellste Methode, um zu ermitteln wie oft ein bestimmtes Wort in einem Text vorkommt? Geht da wohl was recursives? Hat jemand 'ne Idee?

Gruß

Gambit

[stoxx]

schau Dir mal JEDI an, die haben sowas drin in ihrer String Unit.
StrReplace ist zumindest 3 mal so schnell wie das von Delphi.
StrStrCount dürfte daher auch schnell sein.
Selber Gedanken machen würde ich mir daher nur in wichtigen Fällen und bei entsprechenden Fähigkeiten

[Binärbaum]

Zitat von Gambit:

Hallo,
welches wäre wohl die schnellste Methode, um zu ermitteln wie oft ein bestimmtes Wort in einem Text vorkommt? Geht da wohl was recursives? Hat jemand 'ne Idee?

Gruß

Gambit

Rekursiv geht garantiert, aber dabei wird auf Dauer der Stack zugemüllt.
Deswegen würde ich was iteratives nehmen (ggf. auch selbstgeschrieben).

MfG
Binärbaum

[shmia]

Zitat von Gambit:

welches wäre wohl die schnellste Methode, um zu ermitteln wie oft ein bestimmtes Wort in einem Text vorkommt? Geht da wohl was recursives? Hat jemand 'ne Idee?

"was recursives" wäre hier ganz fehl am Platz.
Man kann z.B. den String linear mit der Funktion Pos durchsuchen und bei einem Treffer ab dieser Position weitersuchen:

Delphi-Quellcode:

 sw := 'DP';  // suchword
 s := 'hier in der DP wird alles DP-like erledigt';  // suchstring
 found := 0;
repeat
   p := Pos(sw, s);
   if p > 0 then
   begin
      inc(found);
      Delete(s, 1,p+Length(sw));  // alles bis einschlieslich zum Treffer löschen
   end;
until p<=0;

Wenn es richtig schnell werden soll, dann sollte man einen Boyer-Moore Algorithmus einsetzen.
http://www-igm.univ-mlv.fr/~lecroq/string/node14.html