Anzahl eines Zeichens im String ermitteln

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

[KodeZwerg]

Danke für instant-Antwort! Schade dann bleibts bei der langsamen Version für D2009 da Strings bei mir auch noch keine Eigenen Funktionen besitzen.

[Uwe Raabe]

Hier der Backport von string.CountChar für ältere Delphi-Versionen - sollte bekannt vorkommen (miep)...

Delphi-Quellcode:

function StringCountChar(const S: string; const C: Char): Integer;
var
  I: Integer;
begin
  Result := 0;
  for I:= 1 to Length(S) do
    if S[I] = C then
      Inc(Result);
end;

[KodeZwerg]

Ich nutze etwas ähnliches, hier mein Code um noch eine Variante zu zeigen (oder gabs die hier schon?):

Delphi-Quellcode:

function CountCharInString(const Str: String; const c: Char): Integer;
var
  p: PChar;
begin
  Result := 0;
  p := PChar(Pointer(Str));
  while p <> nil do
    begin
      p := StrScan(p, c);
      if p <> nil then
        begin
          inc(Result);
          inc(p);
        end;
    end;
end;

[p80286]

@KodeZwerg
Ich glaube Du solltest Dich von Deiner Version verabschieden

Zitat:

function StrScan(const Str: PAnsiChar; Chr: AnsiChar): PAnsiChar;
function StrScan(const Str: PWideChar; Chr: WideChar): PWideChar;

Warning: The ANSI version of StrScan is deprecated. Please use the AnsiStrings unit.

Returns a pointer to the first occurrence of a specified character in a string.

StrScan returns a pointer to the first occurrence of Chr in Str. If Chr does not occur in Str, StrScan returns nil (Delphi) or NULL (C++). The null terminator is considered to be part of the string.

Note: If the source string contains international characters, use AnsiStrScan instead.

und
function AnsiStrScan(Str: PAnsiChar; Chr: AnsiChar): PAnsiChar;

Zitat:

Unlike the StrScan function, AnsiStrScan works with multi-byte character systems (MBCS).

Dann aber wohl nicht mit Unicode.


Was auch immer international bedeutet, Uwes Version sollte immer funktionieren.

Gruß
K-H

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