All pastes #125975 Raw Edit

brianMan

public text v1 · immutable
·published 2006-08-11 02:33 UTC
rendered paste body
Sub Explode(string Input, string Output, string Separator)
    /if (!${Defined[Input]} || !${Defined[Output]}) /return FALSE
    /if (!${Defined[Separator]}) /declare Separator string ,
    /declare c int local ${Math.Calc[${Input.Count[${Separator}]}+1]}
    /if (!${Defined[${Output}]}) /declare ${Output}[${c}] string outer
    /declare i int local
    /for i 1 to ${c}
        /varset ${Output}[${i}] ${Input.Arg[${i},${Separator}]}
    /next i
/return TRUE