Hi,
Wenn bei der Eingabe ein Leerzeichen vergessen wurde, ist es nicht trivial m�glich
dies zu erkennen. Dazu m�sste der Rechner zu viel vom Text 'verstehen'.
Ansonsten w�rde ich per Schleife durch den Text gehen und die getrennten Bl�cke z�hlen:
function WoerterZaehlen(Text)
Dim i
Dim zuletztTrennzeichen
Dim Woerter
Trennzeichen = true
Woerter = 0
For i = 1 to len(Text)
select case mid(text,i,1)
case " ", vbTab, vbCr, vbLf
zuletztTrennzeichen = true
case else
if zuletztTrennzeichen then
zuletztTrennzeichen = false
Woerter = Woerter + 1
end if
end select
Next
WoerterZaehlen = Woerter
end function
Response.Write WoerterZaehlen("hjgh hj ghjg hjg hjg hjk" & vbNewLine & "gjk jkfghj
j")
Keine gew�hr! Trocken�bung ...
Gru�
Heiko Richler
Systemingenieur
Georg-Simon-Ohm-Fachhochschule N�rnberg
Fachbereich Informatik
http://web1.informatik.fh-nuernberg.de/heiko.richler/
> -----Urspr�ngliche Nachricht-----
> Von: Arkor Randor [mailto:[EMAIL PROTECTED]]
> Gesendet: Dienstag, 16. April 2002 18:18
> An: ASP Diskussionsliste fuer Anfaenger
> Betreff: [aspdebeginners] W�rter z�hlen?
>
>
> Hallo Leute,
>
> wie man Zeichen z�hlen kann, wei� ich ja, aber wie z�hlt man
> W�rter in einem
> String? Nach Leerzeichen wollte ich nicht spliten, da es
> immer Heinis gibt,
> die mitten im Text mehrere hintereinander machen. Und wie
> verh�lt sich das,
> wenn man zwischen zwei W�rtern ein Leerzeichen vergessen wurde?
>
> Hat jemand einen Tip, wie ich das machen kann? Irgendwie bei�
> ich mir daran
> die Z�hne aus...
>
> Gru�,
>
> Arkor, http://www.drhirn.com/20
>
>
> | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
> | [aspdebeginners] als
> [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
> | Sie knnen sich unter folgender URL an- und abmelden:
> |
> http://www.aspgerman.com/aspgerman/listen/anme> lden/aspdebeginners.asp
>
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
