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 ;)

Answer 1

[regex9]

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.

Comments

[igern]

Das Problem ist dass der Text auf einem Blatt Papier ist und nicht digital :/

[regex9]

@igern

Achso, na dann brauchst du deinem Vorhaben folgend auch nur die Länge der Eingabe ermitteln: https://www.w3schools.com/asp/func_len.asp

[igern]

@regex9

Danke! :)

[igern]

@regex9

du benutzt die Seite gerne was? :D

[regex9]

@igern

Nein. Ihre Seiten sind bei Google im Ranking einfach nur weit oben.

[Erzesel]

@regex9

...und auch noch prima mit Beispielen zum selber probieren bestückt ;)
Was besseres gibt's kaum um jemandem etwas zu lehren...

Answer 2

[KnorxyThieus]

Wenn du nicht zwangsläufig programmieren möchtest, kannst du den Text auch einfach nach Word kopieren und links unten auf das Statistikfeld klicken.

Woher ich das weiß: Studium / Ausbildung – Studiere Informatik und programmiere aus Leidenschaft

Comments

[igern]

War immer klar aber der Text ist immer noch nicht digital sondern auf einem Blatt Papier :|

Answer 3

[Erzesel]

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.

Woher ich das weiß: eigene Erfahrung – Ich mach das seit 30 Jahren

Comments

[Erzesel]

Ps Papier zu digital: https://www.netzwelt.de/news/121551-google-docs-ocr-texterkennung-browser.html