Script der tæller antal ord, antal ord over syv bogstaver og ...

Antal ord:

arrOrd = split(Request.Form("dit_felt"), " ")
antalord = Ubound(arrOrd)

Antal ord over 7 bogstaver:

antalover7 = 0
arrOrd = split(Request.Form("dit_felt"), " ")
For i = LBound(arrOrd) to UBound(arrOrd)

  If Len(arrOrd(i)) > 7 Then
    antalover7 = antalover7 + 1
  End If

Next

Du kan state med noget i stil med dette:

strTekst = "Hej test om den kan tælle lange ord som nyhedssystem og havehus."

tempArr = Split(strTekst," ")
antalOrd = ubound(tempArr) + 1
antal_7_tegn = 0
for i = lbound(tempArr) to ubound(tempArr)
  if len(tempArr(i)) >= 7 then antal_7_tegn = antal_7_tegn + 1
next


Response.Write strTekst & "<br><br>"
Response.write "Antal ord = " & antalOrd & "<br>"
Response.write "Antal ord længere end 7 tegn = " & antal_7_tegn

Antal punktummer:

arrPunktummer = split(Request.Form("dit_felt"), ".")
antalpunktummer = Ubound(arrPunktummer) - 1

Response.Write "Antal ord: " & antalOrd & "<br>"
Response.Write "Antal ord over 7 tegn: " & antalover7 & "<br>"
Response.Write "Antal punktummer: " & antalpunktummer

Jeres svar har løst mit problem :)
Jeg fik svar på spørgsmålet fra oasen først, men fordi eagleeye også svarede får han 10 point :)
Takker for hjælpen