7 lines
283 B
Text
7 lines
283 B
Text
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 SFLATTER$ = SFLATTER$+SCOMMA$+MID$(SSTRING$,SICOUNT,1): SCOMMA$ = ", "
|
|
50 NEXT SICOUNT
|
|
60 PRINT "[";SFLATTER$;"]"
|
|
70 END
|