AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Anzahl eines Zeichens im String ermitteln
Thema durchsuchen
Ansicht
Themen-Optionen

Anzahl eines Zeichens im String ermitteln

Ein Thema von DevidEspenschied · begonnen am 27. Jun 2008 · letzter Beitrag vom 17. Jul 2018
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.393 Beiträge
 
Delphi 12 Athens
 
#1

AW: Anzahl eines Zeichens im String ermitteln

  Alt 11. Jul 2018, 16:12
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 Delphi-Referenz durchsuchenStrLen 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;
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (11. Jul 2018 um 16:33 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.675 Beiträge
 
Delphi 12 Athens
 
#2

AW: Anzahl eines Zeichens im String ermitteln

  Alt 11. Jul 2018, 16:28
Es geht aber inzwischen noch kürzer
Genau:
N := MyString.CountChar(MyChar);
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.393 Beiträge
 
Delphi 12 Athens
 
#3

AW: Anzahl eines Zeichens im String ermitteln

  Alt 11. Jul 2018, 16:36
Du hast zu früh geantwortet und jetzt DIE Megalösung übesehn, welche ich noch nachgetragen hatte.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Anzahl eines Zeichens im String ermitteln

  Alt 11. Jul 2018, 20:01
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.
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.675 Beiträge
 
Delphi 12 Athens
 
#5

AW: Anzahl eines Zeichens im String ermitteln

  Alt 11. Jul 2018, 20:02
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.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: Anzahl eines Zeichens im String ermitteln

  Alt 11. Jul 2018, 20:05
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.
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.675 Beiträge
 
Delphi 12 Athens
 
#7

AW: Anzahl eines Zeichens im String ermitteln

  Alt 11. Jul 2018, 20:09
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;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#8

AW: Anzahl eines Zeichens im String ermitteln

  Alt 11. Jul 2018, 20:31
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;
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#9

AW: Anzahl eines Zeichens im String ermitteln

  Alt 11. Jul 2018, 21:00
@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
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.393 Beiträge
 
Delphi 12 Athens
 
#10

AW: Anzahl eines Zeichens im String ermitteln

  Alt 12. Jul 2018, 10:47
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)
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:26 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz