11 lines
308 B
Plaintext
11 lines
308 B
Plaintext
10 cls
|
|
20 sstring$ = "[[1], 2, [[3,4], 5], [[[]]], [[[6]]], 7, 8 []]"
|
|
30 for sicount = 1 to len(sstring$)
|
|
40 if instr("[] ,",mid$(sstring$,sicount,1)) = 0 then
|
|
50 sflatter$ = sflatter$+scomma$+mid$(sstring$,sicount,1)
|
|
60 scomma$ = ", "
|
|
70 endif
|
|
80 next sicount
|
|
90 print "[";sflatter$;"]"
|
|
100 end
|