wie Adresse auseinandernehmen

[khh]

hallo zusammen
ich habe in einem Feld Adressdaten wie folgt:

Auf dem Eifelturm 1
Schlossberg 12
Hauptstr. 62-64

ich möchte die Hausnummern separat speichern.

Jemand ne Idee, wie ich das hinbekomme?
Mein Ansatz wäre per stringreplace ein sonderzeichen einzufügen und dann dort zu trennen.
Aber weiter stehe ich grad auf dem Schlauch

Ich danke euch
khh

[mkinzler]

Oder den letzten Block abtrennen

[khh]

Zitat von mkinzler:

Oder den letzten Block abtrennen

ja, aber wie ?

[Grolle]

Mit pos und copy?

[Bummi]

Per Delphi?

Durchlaufen bis zum ersten ['0'..'9'] , ab da als Hausnummer behandeln ?

[Nersgatt]

Zitat von Bummi:

Durchlaufen bis zum ersten ['0'..'9'] , ab da als Hausnummer behandeln ?

Und hoffen, dass niemand an der "Straße des 17. Juni" wohnt....

[mkinzler]

Oder per TStringList.

Delphi-Quellcode:

var
  sl: TStrings;
  ...
  sl := TStringList.Create;
  sl.Delimiter := ' ';
  sl.DelimitedText := <Str mit Hausnummer>;
  <hausnummer> := sl[sl.Count-1];
  sl.Delete( sl.Count-1); 
  <str> := sl.Text;
  ..
  sl.Free;

[khh]

Zitat von Bummi:

Per Delphi?

Durchlaufen bis zum ersten ['0'..'9'] , ab da als Hausnummer behandeln ?

warum kommt man auf die einfachsten Dinge nicht selbst
EDIT : mh die Straße des 17. Juni sollte manuell zu finden sein

ich danke dir / euch

[uligerhardt]

Grobe Idee:

1. Den String rückwärts nach dem ersten Whitespace (Leerzeichen, Tab etc.) durchsuchen.
2. Alles dahinter (also 1, 12 bzw. 62-64 in deinen Beispielen) in eine StringList mit Delimiter '-' stecken.
3. Bei allen Elementen der StringList prüfen, ob sie eine Hausnummer sind, also z.B. nur aus Ziffern und evtl. hintendran einem Buchstaben ("Schlossberg 12a") bestehen.
4. Falls ja, den Kandidaten aus Schritt 1 akzeptieren.

False positives und negatives wirst du nicht vermeiden können. Und ob du jetzt "Schlossberg 12 1/2" behandeln willst oder "Schlossberg 12, 3. Stock"...

[khh]

Zitat von mkinzler:

Oder per TStringList.

Delphi-Quellcode:

var
  sl: TStrings;
  ...
  sl := TStringList.Create;
  sl.Delimiter := ' ';
  sl.DelimitedText := <Str mit Hausnummer>;
  <hausnummer> := sl[sl.Count-1];
  sl.Delete( sl.Count-1); 
  <str> := sl.Text;
  ..
  sl.Free;

ich probiers erst mal so
EDIT: funktioniert (fast)einwandfrei.
die Leerzeichen zwischen den Strassennahmen die aus mehreren Wörtern bestehen werden eliminiert
ich danke euch