Thomas Risi Softwareentwicklung

SplitAddress

Eine beliebte Frage in den Foren ...

Straßenname und Hausnummer sollen getrennt werden. Hier eine Lösung als Arrayfunktion.

Option Explicit Public Function SplitAddress(s As String) Dim a(1), i& For i = 1 To Len(s) If IsNumeric(Mid$(s, i, 1)) Then _ Exit For Next i a(0) = Trim$(Left$(s, i - 1)) a(1) = Trim$(Right$(s, Len(s) - i + 1)) SplitAddress = a End Function

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)