split count

[klausc127]

Guten Tag,
ich möchte mit der Funktion split einen Text in seine Bestandteile zerlegen.
Anschließend muß ich wissen, wieviele Bestandteile der Text hat.
Ich benutze:
Dim Splitvar
Splitvar = split( "........",",",-1)
und erhalte richtig
Splitvar(0)
Splitvar(1)
Wie kann ich die aktuelle Anzahl der Textergebnisse ermitteln.
Anschließend muß mit einem anderen Text dasselbe machen.

( Ich könnte natürlich in einer Schleife die Anzahl der Kommata zählen, kommt mir aber sehr primitiv vor)
Ich bräuchte nur die aktuelle Größe von Splitvar zu wissen ( size of array oder so)

Danke
Klaus

[Twigeater]

Hallo Klaus!

Dafür gibt es den VBS Standardbefehl UBound. UBound liefert die Obergrenze des Array und ist da VBS ab 0 zählt um 1 kleiner als die Anzahl.

Eine Schleife sieht dann so aus:

Dim i

for i=0 to UBound(Splitvar)

Matthias

[Ingo_Schumacher]

Hallo Klaus,

hier gibt es zwei Möglichkeiten. Am einfachsten können sie die VBS Funktion ubound() einsetzen, die liefert die Anzahl der Felder eines Arrays zurück. Wenn Sie die Zahl nur brauchen, um eine For-Schleife zu indizieren kann alternativ auch das VBS-Konstrukt for each Splitpart in Splitvar .... next genutzt werden.

[klausc127]

Danke für die schnellen Antworten.
Ubound hatte ich in der Hilfe übersehen 😉

Grüße
Klaus