'
' WordCount - Count the number of words in a string

' Author: Joe Strazzere

'

a$="This is a test of the early warning system, here.  How well does it work?"

a$=Trim$(a)
i=1

pos=instr(a$," ")

While pos > 0
    i=i+1
    a$=Ltrim$(Mid$(a$,pos,Len(a$)))
    pos=instr(a$," ")
Wend

msgbox(str$(i))

'
' Compare WordCount and SplitIntoArray
'
DIM testarray$(100)

a$=InputBox$("Enter a string", "Compare WordCount and SplitIntoArray", " This is just-a-test     ")
'a$="This  is      a test of the early warning system, here.   How well does it work?"
i=1
b$=a$

a$=Trim$(a$)
pos=instr(a$," ")

While pos > 0
   i=i+1
   a$=Ltrim$(Mid$(a$,pos,Len(a$)))
   pos=instr(a$," ")
Wend

valu=SplitIntoArray(b$,testarray$())

msgbox("["+b$+"]"+CRLF+CRLF+"WordCount sees "+str$(i)+" words."+CRLF+CRLF+"SplitIntoArry sees "+str$(valu)+" words.")