Q5/ws_objects/ljerp1_pricecmp.pbl.src/f_str_replace.srf

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

forward prototypes
global subroutine f_str_replace (ref string arg_str, string arg_parm, string arg_value)
end prototypes

global subroutine f_str_replace (ref string arg_str, string arg_parm, string arg_value);long ll_pos = 1, ll_find
ll_find = pos(arg_str, arg_parm, ll_pos)
do while ll_find > 0
	arg_str = Replace(arg_str, ll_find, len(arg_parm), arg_value)
	ll_pos = ll_find + len(arg_value)
	ll_find = pos(arg_str, arg_parm, ll_pos)
loop

end subroutine