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 1482 Downloads 529

''

ANmarAmdeen
448
Texts + Strings Classic ASP
Revisions

v1.0