PureBasic Forums - English

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

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 () )