RSS
StartseiteKnowledge LibraryTop 10Impressum

2.9 Wie kann ich eine Zeichenfolge aufteilen?

VB4-VB5

Von:  [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.

Links zum Thema