Q5/ws_objects/Oa_workremind.pbl.src/f_oa_workremind_splitstr.srf

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

forward prototypes
global subroutine f_oa_workremind_splitstr (string target, string splitflag, ref string result[])
end prototypes

global subroutine f_oa_workremind_splitstr (string target, string splitflag, ref string result[]);Long cnt
String ls_object
Long ll_start,ll_next

ll_start = 1
cnt = 1
target = target+splitflag

ll_next = Pos(target,splitflag)
DO WHILE ll_next <> 0
	If (ll_next - ll_start) > 0 THEN
		ls_object = Mid(target,ll_start,ll_next - ll_start)
		ll_start = ll_next + 1
		ll_next = Pos(target,splitflag,ll_start)
		result[cnt] = ls_object
		cnt++
	ELSE
		ll_start = ll_next + 1
		ll_next = Pos(target,splitflag,ll_start)
	END IF
	
LOOP

end subroutine