Zahlen in einem String finden

[ATS3788]

Hallo
Gibt es eine elegante "procedure"
um Zahlen in einen String zu finden

Delphi-Quellcode:

str := 'abc1def6q3uz3sdd8as2';

Mir ist schon klar eine Schleife und dann mit ORD
sehen ob es eine ASCII Zahl ist.

Die Frage war aber ELEGANTE

Danke meine Delphifreunde

[MrSpock]

Man könnte mit der Pos Funktion explizit nach den Ziffern '0' .. '9' suchen, aber das ist nicht wirklich eleganter.

[Bummi]

was meinst Du mit finden?
-Die erste Position (gegf. ab Position) die eine Ziffer ist
-extrahieren der Ziffern in einen String
-extrahieren in eine Liste mit Position/Ziffer
-etc.

[Sir Rufo]

Zitat:

Zitat von ATS3788 (Beitrag 1192323)

Hallo
Gibt es eine elegante "procedure"
um Zahlen in einen String zu finden

Nein, gibt es nicht. In einem String befinden sich nur Ziffern aber keine Zahlen.
Wären es Zahlen, wäre es kein String ;)

Man kann versuchen aus dem String eine Zahl zu interpretieren.
Dabei ist es aber wichtig in welchem Kontext.

Code:

100

Kann als Zahlenwert bedeuten: 4, 64, 100, 256, ... und ich habe jetzt nur mal so Standard-Zahlensysteme zugrunde gelegt.

[himitsu]

Oder sind doch Ziffern gemeint?
Also einfach nur eine Matrix, welche Ziffern (0-9) drin vorkommen.

Wenn es doch um Zahlen geht, dann gibt es dazu auch schon ein paar Threads, mit vielen Lösungen.
"abc123def45xy9" > 123, 45 und 9

[nuclearping]

Zitat:

Zitat von ATS3788 (Beitrag 1192323)

Hallo
Gibt es eine elegante "procedure"
um Zahlen in einen String zu finden

Du kannst dir eine RegEx-Lib für Delphi besorgen und dann mit "/[0-9]{1,}(?:[\,\. ]?[0-9])*/" (oder so ähnlich) alle Zahlen extrahieren.

[himitsu]

Zitat:

Zitat von nuclearping (Beitrag 1192333)

Du kannst dir eine RegEx-Lib für Delphi besorgen

Die ist (ich glaub seit XE) schon im Delphi mit dabei.

[ATS3788]

Danke, Danke

Gut zu wissen das es leider nicht elegant geht.

Manchmal sieht mir hier so geniale Lösungen
wo man sich sagt, Oh das war aber klug.

[Sir Rufo]

Zitat:

Zitat von ATS3788 (Beitrag 1192428)

Danke, Danke

Gut zu wissen das es leider nicht elegant geht.

Manchmal sieht mir hier so geniale Lösungen
wo man sich sagt, Oh das war aber klug.

Wenn du mal ein konkretes Beispiel geben würdest (was geht rein, was soll rauskommen) dann könnten wir dir auch etwas konkretes zeigen. So ist das aber zu schwammig.

[ATS3788]

Delphi-Quellcode:

function CountNumber(const Str: string): tNumArray;
var
i,a       : integer;
begin
   FillChar(Result , SizeOf(tNumArray) , 0);
   a := 0;
   for i := 1 to length(Str) do
   if (ord(Str[i]) >= 48) and (ord(Str[i]) <= 57) then begin
     Result[a] := StrToInt(Str[i]);
     inc(a);
   end;
end;

Also habe das so gemacht, geht echt gut
ist aber nicht "ELEGANT"

Wie komme ich darauf. In C++ geht vieles,
laßt mich sagen anders. Manches dort ist
"ELEGANT" anderes einfach schwer zu lesen,
dedewegen liebe ich Delphi