String Filtern

[philiph]

Wie kann ich aus den Daten eiens Strings(Zahlen und Buchstaben vorhanden) alle Zahlen herausfiltern und in einem anderen String speichern?

[Ultimator]

Wenn du nachher einfach nur alle Ziffern nacheinander in nem anderen String stehen haben willst, dann mach das so (ungetestet, müsste aber funzen):

Delphi-Quellcode:

for i := 1 to length(Originalstring) do
  if OriginalString[i] in ['0'..'9'] then
    begin
      ZahlenString := ZahlenString + OriginalString[i];
      delete(OriginalString, i, 1); //Markierte Zeile
    end;

Wenn die Zahlen im OriginalString drinbeleiben sollen, dann kommentier einfahc die markierte Zeile und somit den delete-Aufruf aus ;)

//edit i von 1 anfangen lassen zu zählen (vorher wars 0, gibt aber keinen Sinn, weil in String[0] die Längenangabe steht)

[philiph]

Der Filter an sich funktioniert zwar aber er macht aus 123456789 13579

[Totti]

nach der deleteaktion soltle net erhöht werden ... da erledigt das delete ja schon gewissermaßen.

[Ultimator]

Hm, stimmt, das hab ich nicht bedacht.
Eventuell müsste es mit einer for-downto-Schleife klappen.

[Totti]

oder einfach ne whileschleife, wo man die int-variable manuell erhöht bzw. eben nicht erhöht, wenn man delete nutzt ;)

[mumu]

warum nicht einfach das delete weglassen?!

Delphi-Quellcode:

ZahlenString := '';
for i := 1 to length(Originalstring) do 
if OriginalString[i] in ['0'..'9'] then 
begin 
  ZahlenString := ZahlenString + OriginalString[i]; 
end;

[Angel4585]

Mein Vorschlag:

Delphi-Quellcode:

ZahlenString := ''; 
for i := length(Originalstring) downto 1 do 
 if OriginalString[i] in ['0'..'9'] then 
  Insert(OriginalString[i],Zahlenstring,0);

[Totti]

Zitat:

Zitat von Ultimator

Wenn die Zahlen im OriginalString drinbeleiben sollen, dann kommentier einfahc die markierte Zeile und somit den delete-Aufruf aus ;)

Das ist klar ... wenn das net rausgelöscht werden soll, so dass man eine Kette ohne Zahlen und eine nur mit Zahlen ,
dann brauchts das delete net und das ganze Problem ist hinfällig ;)

[Daniel B]

http://www.delphipraxis.net/internal...ghlight=daniel