6 lines
545 B
Text
6 lines
545 B
Text
list = translate (list, ' ', '[]' ); /*Produces " 1 , 2, 3,4 , 5 , , 6 , 7, 8, " */
|
|
list = Replace(list,'',' '); /*Converts spaces to nothing. Same parameter order as Translate.*/
|
|
do while index(list,',,') > 0; /*Is there a double comma anywhere?
|
|
list = Replace(list,',',',,'); /*Yes. Convert double commas to single, nullifying empty lists*/
|
|
end; /*And search afresh, in case of multiple commas in a row.*/
|
|
list = '[' || list || ']'; /*Repackage the list.*/
|