2.9 Wie kann ich eine Zeichenfolge aufteilen?

VB4-VB5

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.

2.9 Wie kann ich eine Zeichenfolge aufteilen?

Links zum Thema