Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
SplitString
Aus einer Frage in einem Forum ...
Es liegt ein zusammengesetzter Text (String) vor, der in seine Bestandteile
zerlegt werden soll. Der Beginn der einzelnen Textkomponenten wird durch einen
Großbuchstaben markiert.
z.B. soll der Text AllesWirdGut in Alles Wird Gut
aufgeteilt werden. Dazu bietet sich natürlich eine Array-Funktion an ...
Option Explicit
Sub Test()
Dim i%: For i = 0 To UBound(SplitString("AllesWirdGut"))
MsgBox SplitString("AllesWirdGut")(i)
Next i
End Sub
Public Function SplitString(s As String) As String()
Dim myArray() As String
Dim i&: i = 1
Dim j&: j = -1
Do While Len(s) > i - 1&
If Asc(Mid$(s, i, 1&)) < 91 Then
j = j + 1&: ReDim Preserve myArray(j)
End If
myArray(j) = myArray(j) & Mid$(s, i, 1&)
i = i + 1&
Loop
SplitString = myArray
End Function
© 2001 -
by Thomas Risi