Anzahl eines Zeichens im String ermitteln

[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)

[KodeZwerg]

Danke für diese Information.
BTW Wie findet ihr die Variante mit (Ansi-)StrScan ? Gut oder doof?

[Uwe Raabe]

Zitat von KodeZwerg:

BTW Wie findet ihr die Variante mit (Ansi-)StrScan ? Gut oder doof?

Zwei durch einen Funktionsaufruf geschachtelte Schleifen, das Hin- und Her-Gecaste mit Ansi und Unicode, die mehrfachen, komplexen Abfragen auf MBCS Zeichen - eher suboptimal und potentiell langsamer als die einfache For-Schleife über den string, die vom Compiler auch noch optimiert werden kann.

Zitat von KodeZwerg:

Habs gerade mit normalen Strings getestet, funktioniert immer noch (Sau-)schnell.

Hast du mal konkrete Zeiten verglichen oder ist das nur so gefühlt?

[KodeZwerg]

Ich hatte es nur einmal gebencht (die StrScan nicht AnsiStrScan), Jahrzehnte her, da gewann im Benchmark immer die StrScan vs ForToLength. Je Länger der InputString umso deutlicher wurde das Ergebnis. Ich schau mal ob ich einen Benchmark bastel und stell den dann gerne hier vor, ich werde alle Varianten aus diesem Thread darin antreten lassen, implementieren kann ich allerdings nur Methoden die ich mit D2009 auch umsetzen kann, dann Wissen wirs exakter
Ps: Es ist nur eine Schleife bei mir.

[Uwe Raabe]

Zitat von KodeZwerg:

Ps: Es ist nur eine Schleife bei mir.

Die andere läuft innerhalb StrScan/AnsiStrScan.

Wenn die For-Schleife denn unbedingt vermieden werden soll, kann man es auch so machen:

Delphi-Quellcode:

function CharCount(const S: string; const C: Char): Integer;
var
  N: Integer;
  P: PChar;
begin
  N := 0;
  P := PChar(S[1]);
  while P^ <> #0 do begin
    if P^ = C then Inc(N);
    Inc(P);
  end;
  Result := N;
end;

[KodeZwerg]

Anbei ein Benchmark Source-Only Projekt.
Eindeutiger Gewinner = StrScan()
Eindeutiger Verlierer = Ydobon mit x := Length(Data)-Length(StringReplace(Data, 'X', '', [rfReplaceAll])) .
Am zweitbesten schneidet bei mir alzaimar mit IFCount(Data, 'X'), respekt dafür
Dahinter alles andere, schlusslicht bei den normalen Methoden ist AnsiStrScan().

@Uwe, Dein letzter Code löst bei mir bei Aufruf eine Exception aus, der Code ist bereits enthalten, nur in der Mausklick Procedure rausgeklammert.

[Uwe Raabe]

Zitat von KodeZwerg:

@Uwe, Dein letzter Code löst bei mir bei Aufruf eine Exception aus

Das muss natürlich auch P := PChar(S); heißen.

[KodeZwerg]

Dein letzter Code führt damit die Rangliste an!! Grandioses Ergebnis, schlägt alles um Längen

Tut mir leid, da muss wohl mein Rechner noch an was gewerkelt haben als ich es testete.
StrScan() immer noch #1 aber total dicht dahinter ist Dein Code (@Uwe), im Grunde teilen die sich die Pole-Position.

Im Anhang aktualisiert Fassung, das StringReplace ist rauskommentiert deswegen immer 0 Nanosekunden.
Fenster ist nun sizeable, Memo ist AlignClient.
Ein Kompilat zum sofort Testen ist enthalten.

[gammatester]

Zitat von Uwe Raabe:

Wenn die For-Schleife denn unbedingt vermieden werden soll, kann man es auch so machen:

Delphi-Quellcode:

function CharCount(const S: string; const C: Char): Integer;
var
  N: Integer;
  P: PChar;
begin
  N := 0;
  P := PChar(S[1]);
  while P^ <> #0 do begin
    if P^ = C then Inc(N);
    Inc(P);
  end;
  Result := N;
end;

Der Code (und auch einige andere) bricht aber die Schleife ab, wenn S ein #0 enthält, zB S = '123'#0#1#2'123'. (Habe nicht den ganzen Thread gelesen, und weiß also nicht ob das verboten ist).

[Uwe Raabe]

Zitat von gammatester:

Der Code (und auch einige andere) bricht aber die Schleife ab, wenn S ein #0 enthält, zB S = '123'#0#1#2'123'. (Habe nicht den ganzen Thread gelesen, und weiß also nicht ob das verboten ist).

Ja, das machen alle Lösungen, die auf PChar basieren. Wenn das ein Kriterium ist (z.B. wenn man die Anzahl der #0 im String zählen will), dann muss es halt doch über die For-Schleife gehen.