$PBExportHeader$f_split.srf
global type f_split from function_object
end type

forward prototypes
global subroutine f_split (string arg_source, string arg_spliter, ref string arg_return[])
end prototypes

global subroutine f_split (string arg_source, string arg_spliter, ref string arg_return[]);string arg_rslt[]
long ll_cnt = 0
long ll_pos = 0

do while len(arg_source) > 0
	ll_pos = pos(arg_source, arg_spliter)
	if ll_pos > 0 then
		ll_cnt++
		arg_rslt[ll_cnt] = mid(arg_source, 1, ll_pos - 1)
		arg_source = mid(arg_source, ll_pos + len(arg_spliter))
	else
		ll_cnt++
		arg_rslt[ll_cnt] = arg_source
		arg_source = ''
	end if
loop

arg_return = arg_rslt
end subroutine

