Thomas Risi Softwareentwicklung

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

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)