Anzahl eines Zeichens im String ermitteln

[Graf Gustav]

z:=Length(str)-Length(StringReplace(str, c, '', [rfReplaceAll])) @Ydobon:
das ist genial (auch nach 10 Jahren noch)

[himitsu]

Vom Code her ja, aber von der Ausführungsgeschwindigkeit und vom Speichermanagement her ist es schon ein bisschen grausam.

> eine "nur lese"-Funktion, die daber sehr oft schreibend im Speicher rumpfuscht

Es geht aber inzwischen noch kürzer

Delphi-Quellcode:

z := Length(str) - Length(StringReplace(str, c, '', [rfReplaceAll]));

z := Length(str) - Length(ReplaceStr(str, c, ''));

Gut, da ist dann noch ein CALL mehr drin, aber der fällt nun auch nicht mehr auf.

* aus dem Char "c" einen String machen (Speicher reservieren)
* im StringReplace einen neuen String erstellen und in dem uneffektiv rumfummeln (StringReplace ist nicht grade effektiv geschrieben, also alles umkopieren nach jedem einzelnen ersetzten Char)
* im Delphi zählen die Length wenigstens nicht die Chars, sondern lesen nur die Längenangabe der String aus, aber wollen wir das nicht mit StrLen auch noch etwas disoptimieren?
* die Strings wieder freigeben

* und in älternen Delphi (vor D2006) macht es noch mehr Spaß ... kein FastMM (im langsamen alten Delphi-MemoryManager) ... ohne FastCode (wobei hier StringReplace eh nicht das Schnellste bekommen hat)


Aber da RegEx sowieso das Coolste hier, hier auch noch eine Lösung damit

Delphi-Quellcode:

z := TRegEx.Match(str, c).Groups.Count;

// falls C eines der RegEx-Controlzeichen sein könnte, sollte man es vielleicht besser noch escapen
z := TRegEx.Match(str, Format('\x%.2x', [Ord(c)])).Groups.Count;

[Uwe Raabe]

Zitat von himitsu:

Es geht aber inzwischen noch kürzer

Genau:
N := MyString.CountChar(MyChar);

[himitsu]

Du hast zu früh geantwortet und jetzt DIE Megalösung übesehn, welche ich noch nachgetragen hatte.

[KodeZwerg]

Zitat von himitsu:

Delphi-Quellcode:

z := TRegEx.Match(str, c).Groups.Count;

// falls C eines der RegEx-Controlzeichen sein könnte, sollte man es vielleicht besser noch escapen
z := TRegEx.Match(str, Format('\x%.2x', [Ord(c)])).Groups.Count;

Welche Unit muss ich dafür einbinden, in meiner Hilfe finde ich nichts über ein TRegEx.

[Uwe Raabe]

Zitat von KodeZwerg:

Welche Unit muss ich dafür einbinden, in meiner Hilfe finde ich nichts über ein TRegEx.

System.RegularExpressions - gibt's aber noch nicht so lange.

[himitsu]

Zitat von KodeZwerg:

Zitat von himitsu:

Delphi-Quellcode:

z := TRegEx.Match(str, c).Groups.Count;

// falls C eines der RegEx-Controlzeichen sein könnte, sollte man es vielleicht besser noch escapen
z := TRegEx.Match(str, Format('\x%.2x', [Ord(c)])).Groups.Count;

Welche Unit muss ich dafür einbinden, in meiner Hilfe finde ich nichts über ein TRegEx.

Solche Komponenten gibt es auch als Freeware von Fremdanbietern. (Emba hat da auch nur geklaut abgeguckt)

[inherited]

Zitat von mkinzler:

Dann wäre es schlimmstenfalls genauso ineffektiv.

Plus die Zeit die für die Funktionsaufrufe draufgeht plus die Zeit für die Kontrollstruktur drumherum.

[Meflin]

Zitat von inherited:

Plus die Zeit die für die Funktionsaufrufe draufgeht plus die Zeit für die Kontrollstruktur drumherum.

Ja und?!

Jungs, es ist immerwieder unglaublich, wie man krampfhaft eine simple Frage unglaublich aufblähen kann

[marabu]

Moin,

Zitat von inherited:

... ich denke dass PosEx nichts anderes macht als den String durchzugehen. ...

das ist zu allgemein: PosEx() benötigt noch eine zweite Schleife für den String-Vergleich. PosEx() ist also nur sinnvoll, wenn wirklich nach einem String gesucht wird. Ein String mit der Länge 1 ist aber ein getarnter Char - und den findet man billiger mit einer eigenen Zählschleife.

Delphi-Quellcode:

function Occurs(const s: string; c: Char): Cardinal;
var
  n: Cardinal;
begin
  Result := 0;
  for n := 1 to Length(s) do
    Inc(Result, Ord(s[n] = c);
end;

Freundliche Grüße