VBScript: Zeichen zählen?
Wenn ich Wörter zählen möchte mache ich das in Kopf was ein bisschen doof wird wenn man so um die 300 - 400 Wörter zählen muss. Dann kam mir die Idee: Wenn ich ein Wort gezählt habe haue ich einmal auf die Leertaste/eine Taste. Am Schluss drücke ich Enter und mein Programm soll zählen wie viele Zeichen ich eingegeben hab. Wie würde das gehen?
Worte = InputBox("Gib einfach Buchstaben und leerstellen ein und diese Werden dann gezählt!","Wörter zählen")
'Hier Wörter zählen
'_____________________________________________
'_____________________________________________
msgbox ""&Anzahl&" Wörter",0+64,"Wörter gezählt"
'Ende
î hier eine kleine Vorgabe ;)
3 Antworten
![](https://images.gutefrage.net/media/user/regex9/1455660989427_nmmslarge__0_13_270_270_615d5a3bc6888f4c1486ce2b4d9d8f60.png?v=1455660989000)
Wieso so kompliziert? Gib deinen Text ein, splitte diesen anhand von Whitespaces (Leerzeichen, Zeilenumbruch) auf und zähle dann die Elemente.
https://www.w3schools.com/asp/func_split.asp
Da du hierbei ein Array zurückbekommst, musst du nicht einmal explizit zählen.
![](https://images.gutefrage.net/media/user/regex9/1455660989427_nmmslarge__0_13_270_270_615d5a3bc6888f4c1486ce2b4d9d8f60.png?v=1455660989000)
Achso, na dann brauchst du deinem Vorhaben folgend auch nur die Länge der Eingabe ermitteln: https://www.w3schools.com/asp/func_len.asp
![](https://images.gutefrage.net/media/user/KnorxyThieus/1444749268_nmmslarge.jpg?v=1444749268000)
Wenn du nicht zwangsläufig programmieren möchtest, kannst du den Text auch einfach nach Word kopieren und links unten auf das Statistikfeld klicken.
![](https://images.gutefrage.net/media/user/igern/1522571186003_nmmslarge__0_0_676_676_4f41e67d802d6c8d88cd2a0c51fbeef5.jpg?v=1522571186000)
War immer klar aber der Text ist immer noch nicht digital sondern auf einem Blatt Papier :|
![](https://images.gutefrage.net/media/user/Erzesel/1497339133085_nmmslarge__0_524_1080_1080_4b38ff31970de3b94deb6a27ca8a8f01.jpg?v=1497339133000)
Aber warum selbst Zählen, wenn der Computer das besser kann ;)
Wörter werden durch Leerzeichen getrennt, also sagen wir ihm genau dies
strText="ich will Spass"
'Wörter werden durch Leerzeichen getrennt, also sagen wir ihm genau dies
arrWords = Split(strText, " ")
'jetzt geben wir nur noch die Anzahl der Elemente im Array aus
msgbox Ubound(arrWords) + 1
...gut das ist etwas spartanisch und wertet auch einzelnstehende Satzzeichen als Wort, aber auch das kann man dem Progrämmchen mit mäßigem Aufwand "abgewöhnen"
zb. mit mit replace.
![](https://images.gutefrage.net/media/user/Erzesel/1497339133085_nmmslarge__0_524_1080_1080_4b38ff31970de3b94deb6a27ca8a8f01.jpg?v=1497339133000)
Ps Papier zu digital: https://www.netzwelt.de/news/121551-google-docs-ocr-texterkennung-browser.html
Das Problem ist dass der Text auf einem Blatt Papier ist und nicht digital :/