Token's [Word Count] Simplified --

[TimeSurfer]

I saw a few posts about this and played around with it till I got the result's needed. Enjoy

Code: Select all

NewList Token.s()
  
a.l = 0
b.s = " "
Repeat
  a = a + 1
  c.s = StringField("This is how many tokens are in this string.", a, b)
  AddElement(Token())
  Token() = c
Until c = ""

DeleteElement(Token(), LastElement(Token()))

ForEach Token()
   Debug Token()
Next

Tokens = CountList(Token())
Debug Tokens

[Hroudtwolf]

Hi,

Take a look at this.

Code: Select all

NewList Token.s()

Define.s sText   = "This is how many tokens are in this string."
Define.l lCount  = 0
Define.l lAmount = CountString ( sText , " " ) 

While lCount <= lAmount
  AddElement( Token() ) 
  Token () = StringField( sText , lCount + 1 , " " )
  lCount + 1
Wend

ForEach Token ()
   Debug Token ()
Next

Debug CountList ( Token () )

Regards

Wolf