$PBExportHeader$f_replace.srf
$PBExportComments$字符串替换处理--函数
global type f_replace from function_object
end type

forward prototypes
global function string f_replace (string ls_source, string ls_old, string ls_new)
end prototypes

global function string f_replace (string ls_source, string ls_old, string ls_new);string ls_tran
int li_pos
do while 1=1
	li_pos=pos(ls_source,ls_old)
	if li_pos=0 then exit
	ls_tran=ls_tran+left(ls_source,li_pos - 1)+ls_new
	ls_source=mid(ls_source,li_pos+len(ls_old))
loop
return ls_tran+ls_source
end function