VB4-VB5
Von: Tobias Schikora [Home]
Ab VB6 gibt es zum aufteilen eines Strings die Split-Funktion, die das Ergebnis in einem Array zurückgibt und sich recht komfortabel anwenden lässt. Was machen aber Benutzer, die Versionen < 6 von Visual Basic haben? Die bauen sich diese Möglichkeit nach:
Dim strQuelle As String Dim strPfad As String Dim i As Integer strQuelle = "Theodor;Hans;Kevin;Jürgen;Manuel;Marianne" ' Quellstring definieren Do While CBool(Len(strQuelle)) i = InStr(1, strQuelle, ";") ' Trennzeichen definieren, also hier das Semikolon If CBool(i) Then strPfad = Left$(strQuelle, i - 1) strQuelle = Right$(strQuelle, Len(strQuelle) - i) Else strPfad = strQuelle strQuelle = "" End If List1.AddItem strPfad ' Die Liste mit den einzelnen Elementen füllen Loop
In diesem Beispiel ist der aufzusplittende String strQuelle welcher 6 verschiedene Namen beinhaltet, jeweils durch ein Semikolon getrennt. Die einzelnen aufgesplitteten Elemente des QuellStrings werden in die Liste "List1" übernommen und angezeigt.