WordsCount

Counts the words in a string (using spaces)

<%
Function WordsCount(sString)
Dim TheString, ArrayTemp
ArrayTemp = split(sString, " ")
WordsCount= UBound(ArrayTemp) + 1
End Function
%>

Views 2819 Downloads 943


ANmarAmdeen
612
Texts + Strings Classic ASP
Revisions

v1.0