String zerlegen
02.09.2004 08:40:07
Tobias
ich habe ein problem bei dem ich einfach nicht vom fleck komme:
ein habe einen String und den möchte ich in mehrere Teile zerlegen. Dazwischen steht entweder ein " " oder ein ";". Wie kann ich jetzt prüfen ob da noch ein Delemiter kommt oder nicht, bzw wann weiß ich ob überhaupt noch was nach einer bestimmten stelle kommt.
Ich habe das ganze mit der Splitfunktion versucht aber da gibt es immer einen Fehler.
hier mal ein Auszug von meinem versuch:
Diese funktion soll mir die Semikolons in einem übergebenen String zählen.
Private Function count_semi(text As Variant) As Variant
Dim Part As Variant
Dim lauf As Integer
Dim Ende As Boolean
Dim counter As Integer
counter = 0
While Ende = False
Part = Split(text, ";")
If Part(0) <> "" Then
count_semi = counter
Ende = True
End If
If Part(1) Is Not Empty Then
counter = counter + 1
text = Part(1)
End If
Wend
End Function
Das mit dem einfachen Fragen nach ist Part(1) not empty hat den nachteil, das split wenn ich das richtig verstehe sobald mal die länge überschreitet bei der kein Delimiter mehr kommt einen Fehler zurückgibt.
mfg
Tobias