how reset token of strtok ?

[bingo]

Code: Select all

ImportC "msvcrt.lib" 
strtok(string.l,deli.l)
EndImport

;or:
;ImportC "crtdll.lib" 
;strtok(string.l,deli.l)
;EndImport

list.s = "test1,test2,test3"

part.l = strtok(@list,@",")

While part
Debug PeekS(part)
part = strtok(#Null,@",") 
Wend

; how reset token of strtok ????

part = strtok(@list,@",")

While part
Debug PeekS(part)
part = strtok(#Null,@",") 
Wend

reset the strtok-token - it is possible ? :roll:

[ABBKlaus]

the stringbuffer is altered by strtok. Simply set it to a new value or use temporary buffer instead