Sync On
Sync Rate 60
Set Window Size 1024, 768
Set Display Mode 1024, 768, 32, 1
myData$ = "Alpha,Beta,Gamma,Delta,Epsilon,Zeta,Eta,Theta,Iota,Kappa,Lambda,Mu,Nu,Xi,Omicron,Pi,Rho,Sigma,Tau,Upsilon,Phi,Chi,Psi,Omega"
Global DIM DataArray$(0)
TokensInString = GetTokenCount( myData$, "," )
CreateDataArray( myData$, "," )
Do
Text 10, 10, Str$(TokensInString) + " Tokens in Data String"
For Index = 0 To Array Count( DataArray$(0) )
Text 10, 10 + ( 10 * (Index + 1) ), DataArray$( Index )
Next
FastSync()
Loop
Function GetTokenCount( In$, Token$ )
Local Char$
Local TokenCount
For Pos = 1 To Len( In$ )
Char$ = Mid$( In$, Pos )
If Char$ = Token$ Then Inc TokenCount
Next
EndFunction TokenCount
Function CreateDataArray( In$, Token$ )
Local Char$, Buffer$
Empty Array DataArray$(0)
For Pos = 1 To Len( In$ )
Char$ = Mid$( In$, Pos )
If Char$ = Token$
Array Insert At Bottom DataArray$(0)
Index = Array Count( DataArray$(0) )
DataArray$(Index) = Buffer$
Buffer$ = ""
Else
Buffer$ = Buffer$ + Char$
EndIf
Next
EndFunction
It's not too difficult... mind there are actually Text Functions specifically for doing this, but I prefer doing things like this myself... gives you a bit more "Control"