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 584 Downloads 237

''

ANmarAmdeen
326
Texts + Strings Classic ASP
Revisions

v1.0