; Returns the Nth token of a string with a custom delimiter character.
Function GetToken$( fullstr$, splitchar$, toknum% )
	Local charpos% = 1, curtoken% = 0, tokenend%, tokenlen% = 0

	While( charpos% )

		curtoken% = curtoken% + 1									; New token found, increase index.
		If( curtoken% = toknum% )									; Reached wanted token.
			
			tokenend% = Instr( fullstr$, splitchar$, charpos% + 1 )	; Get end of token.
			If( tokenend% = 0 )
				tokenend% = Len( fullstr$ )					; If last token, end is last char.
				tokenlen% = 1								; Not ending with split char, inc length.
			EndIf
			
			If( curtoken% > 1 ) Then								; Skip split character.
				charpos% = charpos% + 1
			EndIf
			
			tokenlen% = tokenlen% + tokenend% - charpos%			; Calculate length of token.
			Return Mid( fullstr$, charpos%, tokenlen% )				; Return token.
			
		EndIf
		
		charpos% = Instr( fullstr$, splitchar$, charpos% + 1 )
	Wend

	Return \"\"		; Invalid token index/not found, return empty string.

End Function

foobar$ = \"Test-1:2-3\"
a$ = GetToken( foobar$, \"-\", 1 )
b$ = GetToken( foobar$, \"-\", 2 )
c$ = GetToken( foobar$, \":\", 2 )
d$ = GetToken( foobar$, \":\", 3 )