String formatieren (nur Zahlen)

[bennle]

Hallo,
Ich habe einen String, um genauer zu sein einen Timestamp
Nun möchte ich einfach alles löschen, was keine Zahl ist. Also Buchstaben/Sonderzeichen sollen entfernt werden.

Ich denke ich kann Stringreplace verwenden, aber wie sage ich a-z + Sonderzeichen?

MfG
Benny

[DeddyH]

Ich weiß nicht, ob es da schon etwas vorgefertigtes gibt, also versuch es mal so.

Delphi-Quellcode:

function NurZahlen(const 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;

[_frank_]

mal fix aus dem Kopf...

Delphi-Quellcode:

var s:string;
    p:integer;

s:='2007-06-10 20:05';
p:=length(s);
while p>0 do
begin
  if s[p] in ['a'..'z',' '] then 
    delete(s,p,1);
  else
    dec(p);
end;

//roter kasten - egal, lösung ist anders

HTH Frank

[DeddyH]

Zitat von _frank_:

egal, lösung ist anders

Jepp, ich finde es immer gut, wenn mehrere Lösungswege aufgezeigt werden.

[bennle]

Supi, vielen Dank.
Das ging ja warnsinnig schnell

Hätte gedacht das es wie in PHP einen Definitionsrahmen gibt

Gruß
Benny

[DeddyH]

Was meinst Du mit "Definitionsrahmen"?

[marabu]

Hier habt ihr noch was zum drüber meditieren:

Delphi-Quellcode:

function ExtractDigits(const s: string): string;
var
  i, iLength: Integer;
begin
  SetLength(Result, Length(s));
  iLength := 0;
  for i := 1 to Length(s) do
    if s[i] in ['0'..'9'] then
    begin
      Inc(iLength);
      Result[iLength] := s[i];
    end;
  SetLength(Result, iLength);
end;

Freundliche Grüße

[bennle]

Zitat von DeddyH:

Was meinst Du mit "Definitionsrahmen"?

Dazu hab ich leider momentan nur eine Prüfrutine gefunden

Code:

preg_match("=^[0-9]+$=i",$var)

aber nun gut so lange es funktioniert

[DeddyH]

Zu Regular Expressions gibt es AFAIK irgendwo 'ne Library als OpenSource. Aber ob sich das für eine Funktion lohnt...

[bennle]

Hallo,
Naja nicht notwendig!

Nur noch eine kurze Frage. Besteht die Möglichkeit eine Funktion zu globalisieren? Also das ich eine Unit mit nur Funktionen erstelle und diese einbinde?

Ich hab das schon versucht, habe aber kein Erfolg