German String zerlegen

Wolli013

Well-Known Member
Licensed User
Longtime User
Ich stehe irgenwie auf dem Schlauch!
Wie kann ich aus einer Adresszeile nur die Hausnummer auslesen?

Beispiel
Am Bollhof 23 = Ergebniss 23
Spielplatz 123 = Ergebniss 123
Auf der großen Freiheit 56 A = Ergebniss 56 A

usw. usw.
Wer kann helfen?
 

DonManfred

Expert
Licensed User
Longtime User
Das hier als Anreiz

B4X:
    Dim data As String
    data = "Auf der großen Freiheit 56 A"
    Dim matcher1 As Matcher
    matcher1 = Regex.Matcher("\d+|\D+", data)
    Dim st As String = ""
    Dim nr As String = ""
    Dim ad As String = ""   
    If matcher1.Find Then
        st = matcher1.Match.Trim
        If matcher1.Find Then
            nr = matcher1.Match.Trim
            If matcher1.Find Then
                ad = matcher1.Match.Trim
            End If
        End If
    End If
    Log("Strasse: "&st)
    Log("Hausnummer: "&nr)
    Log("Prefix: "&ad)

Strasse: Auf der großen Freiheit
Hausnummer: 56
Prefix: A
 
Top