BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"A function to get a token of a string", by kameleon

I made this function similar to the javascript split function.
Lets you get a particular token (section) of a string by providing String,Deliminator,Token #

Code

;Usage: Token$(String,Deliminator,Token #)

thestring$ = "Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,Sunday"

Print "Number of tokens: " + token$(thestring$,",",0)
Print "--------------------"

For i = 1 To token$(thestring$,",",0)
     Print token$(thestring$,",",i)
Next

;Here's the function
Function token$(strInput$,Delim$,tokID)
;Sorry about the lack of comments....
     
     ;If you enter "" as the deliminator, return a particular character
     ;In the string
     ;Yeah, I know you can just use MID, but I wanted to make this func
     ;Similar to the javascript one
     
     If delim$ = "" Then
          If tokID > 0 Then
               output$ = Mid(strInput$,tokID,1)
          ElseIf tokID = 0
               output$ = Len(strInput$)
          End If
     Else

;Otherwise do the 'deliminator' stuff
          
          For i = 1 To Len(strInput$)
               StrBuffer$ = StrBuffer$ + Mid(strInput$,i,1)
               If Mid(strInput$,i,1) = delim$ Then     toknum = toknum + 1
          
               If tokID > 0 Then
                    If toknum = tokID - 1 And Mid(strInput$,i,1) <> delim$ Then output$ = output$ + Mid(strInput$,i,1)     
               ElseIf tokID = 0
                    output$ = toknum + 1
               End If
          Next
     
     End If
     
     ;And return. Weee
     Return output$
End Function

Code software created by Krylar's Kreations