[VB6] String zerlegen

[nicok]

Hi,

ich habe einen langen String (Bsp.

aufzaehlung = "Buch!-!Heft!-!Stift!-!Auto!-!"

Als Trennzeichen der einzelnen Wörter habe ich "!-!"
(Leerzeichen geht nicht, da die Wörter selber auch ein Leerzeichen haben könnten)

Das wichtige ist das ich nicht weiß wieviele Wörter ich habe.

Nun soll mit einer Schleife jedes einzelne Wort in einer Listbox (List1) eingetragen werden.

Hoffe mir kann jemand helfen!

 

[DrSoong]

In VB gibt es die Funktion Split(), würde bei dir so aussehen:

Dim sTeile() As String
aufzaehlung = "Buch!-!Heft!-!Stift!-!Auto!-!"
'ein "!-!" am Anfang entfernen
If Left(aufzaehlung, 3) = "!-!" then aufzaehlung = Right(aufzaehlung, Len(aufzaehlung) - 3)
'ein "!-!" am Ende entfernen
If Right(aufzaehlung, 3) = "!-!" then aufzaehlung = Left(aufzaehlung, Len(aufzaehlung) - 3)
'den Text am Trennzeichen teilen, ergibt ein Array
sTeile = Split(aufzaehlung, "!-!")
'Schleife mit der Anzahl der Arrayelemente (UBound = Obergrenze)
For cnt = 0 To UBound(sTeile())
 'in die Listbox das jeweilige Element hinzufügen
 List1.AddItem sTeile(cnt)
Next cnt

Der Doc!