Function

f_string_array

public subroutine f_string_array (string arg_string, ref string arg_arr[], string arg_separator);String str 
Long pos
Long i = 0

str = arg_string

pos = Pos(str, arg_separator)
if pos > 0 THEN
do while ( pos  > 0)
	i++
	arg_arr[i] = left(str, pos -1)
	str = Right(str, Len(str) - pos)
	pos = Pos(str, arg_separator)
loop
arg_arr[i +1 ] = Trim(str)
else
	arg_arr[1]= Trim(str)
end if
end subroutine