20 lines
368 B
Plaintext
20 lines
368 B
Plaintext
t$ = "a!===b=!=c"
|
|
s$ = "==,!=,="
|
|
|
|
dim n$(1)
|
|
|
|
n = token(s$, n$(), ",")
|
|
dim p(n)
|
|
|
|
do
|
|
l = len(t$)
|
|
j = 0
|
|
for i = 1 to n
|
|
p(i) = instr(t$, n$(i))
|
|
if p(i) and p(i) < l then l = p(i) : j = i end if
|
|
next
|
|
if not j print t$ : break
|
|
print left$(t$, l - 1), " with separator ", n$(j)
|
|
t$ = right$(t$, len(t$) - (l + len(n$(j))) + 1)
|
|
loop
|