Zahlen aus String extrahieren

[youuu]

Hi,

wie kann ich z.B bei "asj231k1-.21oa=" alle Zahlen extrahieren, existietr dafür schon eine Methode oder muss ich mich ran setzen und eine selber dafür schreiben?

[scrat1979]

Mal schnell zusammengeflickt....

Delphi-Quellcode:

function ExtractNumbers(s : String) : String;
var i : Integer;
begin
 Result := '';
 for i := 1 to length(s) do
  if s[i] in ['0'..'9'] then Result := Result + s[i]
end;

Könntest auch zuerst alle Nicht-Zahlen aus dem String löschen und dann den "Reststring" dem Result zuordnen.

[himitsu]

Was meinst du mit alle Zahlen extrahieren?
- einen String ohne Fremdzeichen "231121"
- alle Zahlen(gruppen) einzeln "231", "1" und "21"
- ...

[Daniela.S]

Hatten wir da nicht unlängst was...?

http://www.delphipraxis.net/153869-s...ml#post1043095

[youuu]

Sorry für die späte antwort.
Himitsu alle Zahlen meinte ich nicht gruppiert oder sonstiges.

Ich versuch nachher gleich einmal scrat1979 Code.

[xZise]

Moin,

Zitat von youuu:

[...]Himitsu alle Zahlen meinte ich nicht gruppiert oder sonstiges.[...]

Das sollte dann funktionieren. Der Code von scrat ergibt Himitsus erste Variante (231121). Den musst du nur noch in einen Integer umwandeln.

Zitat von Daniela.S:

Hatten wir da nicht unlängst was...?

http://www.delphipraxis.net/153869-s...ml#post1043095

Das ist ein andere Level (allgemein die Funktionen die da stehen). Die hier genannte Funktion geht jedes Zeichen durch, guckt ob es valid ist und fügt es zusammen.

Nichts gegen dich youuu.

MfG
Fabian

[scrat1979]

Zitat von xZise:

Das ist ein andere Level (allgemein die Funktionen die da stehen). Die hier genannte Funktion geht jedes Zeichen durch, guckt ob es valid ist und fügt es zusammen.

Nichts gegen dich youuu.

MfG
Fabian

Ich persönlich halte die dort genannte Funktion für etwas Overkill, um "nur" z.B. bei einer Eingabe die ungültigen Zahlen herauszufilter. Ich denke, da merkt man den Geschwindigkeitsunterschied bestimmt nicht. Warum einfach wenn's auch kompliziert geht. Auch wenn ich sagen muss, dass die dort genannte Funktion "schon was hat" Aber ich denke, meine Funktion ist übersichtlich, leicht verständlich und tut ihren Zweck...