Bestimmte Zahlen aus einem String auslesen

[Fridolin Walther]

Delphi-Quellcode:

function GetFirstNumber(s : string) : string;
var
  i : Integer;
begin
  for i := 1 to Length(s) do
    if s[i] in ['0' .. '9']
      then Result := Result + s[i]
      else
        if Result <> '' then Break;
end;

Das wäre meine Lösung . Ist etwas anders als die von Deddy. Ist relativ einfach und etwas kürzer als Deddys Methode .

[DeddyH]

Dafür habe ich break und Stringkonkatenation vermieden

[Fridolin Walther]

Aber die Bedingung bei Deinen IF Statements liest sich grauenhaft .

[EDIT]Uuups ... das war ja gar nicht Deddy. Das war Himitsu mit dem "<= '9'" .[/EDIT]

[himitsu]

Wenn die Hausnummer immer als Erstes steht und sich sonst nix Schlimmes davor befindet,
dann vielleicht so (incl. anhängender Buchstaben)

Delphi-Quellcode:

function GetFirstNumber(s : String) : String;
var
  i : Integer;
begin
  s := Trim(s);
  i := 0;
  while (i < Length(s)) and (s[i + 1] in ['0'..'9', 'a'..'z', 'A'..'Z']) do
    inc(i);
  Result := Copy(s, 1, i);
end;

Falls keine Leerzeichen und Co. davor vorkommen können, dann kann die Zeile mit dem Trim entfallen.

[Sir Rufo]

Wenn das immer in dem Format 15, Hauptstraße / NRW14 kommt, dann würde ich das hier nehmen

Delphi-Quellcode:

function GetHausnummer( Anschrift : string ): string;
var
  PosKomma : integer;
begin
  PosKomma := Pos( ',', Anschrift );
  if PosKomma > 1
  then
    Result := copy( Anschrift, PosKomma - 1 )
  else
    Result := '';
end;

cu

Oliver

[DeddyH]

Das mit dem Format ist ja die große Frage Ich würde den String-Parameter übrigens als const übergeben.

[Apollonius]

Was haltet ihr eigentlich von der alten Pascal-Funktion val?

[himitsu]

Zitat von Apollonius:

Was haltet ihr eigentlich von der alten Pascal-Funktion val?

OK stimmt, wenn man nur die 15 haben möchte, dann würde es so auch gehn (aber bei "15a" würde wieder was fehlen)

[Fridolin Walther]

Zitat von Sir Rufo:

Wenn das immer in dem Format 15, Hauptstraße / NRW14 kommt, dann würde ich das hier nehmen

Delphi-Quellcode:

function GetHausnummer( Anschrift : string ): string;
var
  PosKomma : integer;
begin
  PosKomma := Pos( ',', Anschrift );
  if PosKomma > 1
  then
    Result := copy( Anschrift, PosKomma - 1 )
  else
    Result := '';
end;

Das könnte man auf folgendes komprimieren:

Delphi-Quellcode:

function GetHausnummer(Anschrift : string) : string;
begin
  Result := Copy(Anschrift, 1, Pos(',', Anschrift)-1);
end;

[Fridolin Walther]

Zitat von Apollonius:

Was haltet ihr eigentlich von der alten Pascal-Funktion val?

Funktioniert nur wenn die Ziffer am Anfang steht. Es wurde ja bereits eingeräumt, daß das nicht immer der Fall ist.