23 lines
598 B
Plaintext
23 lines
598 B
Plaintext
sub tokenize( instring as string, tokens() as string, sep as string )
|
|
redim tokens(0 to 0) as string
|
|
dim as string*1 ch
|
|
dim as uinteger t=0
|
|
for i as uinteger = 1 to len(instring)
|
|
ch = mid(instring,i,1)
|
|
if ch = sep then
|
|
t = t + 1
|
|
redim preserve tokens(0 to t)
|
|
else
|
|
tokens(t) = tokens(t) + ch
|
|
end if
|
|
next i
|
|
return
|
|
end sub
|
|
|
|
dim as string instring = "Hello,How,Are,You,Today"
|
|
redim as string tokens(-1)
|
|
tokenize( instring, tokens(), "," )
|
|
for i as uinteger = 0 to ubound(tokens)
|
|
print tokens(i);".";
|
|
next i
|