Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
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
© 2001 -
by Thomas Risi