9 lines
196 B
Text
9 lines
196 B
Text
str$ = "a!===b=!=c"
|
|
sep$ = "=== != =! b =!="
|
|
|
|
while word$(sep$,i+1," ") <> ""
|
|
i = i + 1
|
|
theSep$ = word$(sep$,i," ")
|
|
split$ = word$(str$,1,theSep$)
|
|
print i;" ";split$;" Sep By: ";theSep$
|
|
wend
|