XProfan

Declare String Strassen[]
Declare String nr, zusatz, strasse
Strassen[0] = "Domplatz 45"
Strassen[1] = "Von Grafen Straße 45 A"
Strassen[2] = "Marktplatz 45A - C"
Strassen[3] = "Hauptstrasse 12B"
Strassen[4] = "Hinter den Gärten 50 D"
Set("RegEx", 1)

WhileLoop 0, SizeOf(Strassen[]) - 1

    Strasse = Match$("[a-zA-Z äÄöÖüÜß]{1,}", Strassen[&LOOP])
    Nr = Match$("[0-9]{1,3}", Strassen[&LOOP])
    zusatz = Mid$(Strassen[&LOOP], (%MatchPos + %MatchLen), 6)' 6 Stellen dürften reichen
    Print "Straße : ", Strasse
    Print "Nummer : ", Nr
    Print "Zusatz : ", Trim$(zusatz)

EndWhile

WaitKey
Set("RegEx", 0)
End