XProfan

Declare String streets[]
Declare String nr, amendment, street
streets[0] = "Domplatz 45"
streets[1] = "Von Grafen street 45 A"
streets[2] = "Marktplatz 45A - C"
streets[3] = "Hauptstrasse 12B"
streets[4] = "Hinter whom gardens 50 D"
Set("RegEx", 1)

WhileLoop 0, SizeOf(streets[]) - 1

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

EndWhile

WaitKey
Set("RegEx", 0)
End