VBS: Zählen wie oft ein Zeichen in einem String vorkommt

[Schnitz]

Hi All!



Dim text
text = "Hello World!"


Gibt es einen Befehl der mir zurückgibt wie oft "o" in text enthalten ist? Ich wär euch echt dankbar, da ich kein VBS Buch zur Hand hab, sondern nur die Manual von MS und in der find ich so nichts...

mfg
schnitz

[Trillian]

kA, ob's da einen eigenen Befehl für gibt, aber so gehts auf jeden Fall:

Dim i as Integer
Dim zeichen as String
Dim count as Integer

zeichen ="o"

for i = 1 to len(text)
if Mid(text, i, 1) = zeichen then
count = count + 1
endif
next

Wenn du bei Dim keinen Datentyp angibst, wird die Variable automatisch als Variant deklariert... Sollte man normalerweise nicht machen.

[Schnitz]

also in der Dokumentation von Microsoft steht, dass es so üblich sei ohne Datentyp zu deklarieren, also immer als Variant, da sich ein Variant ja automatisch anpasst, egal..

danke für die antwort :D