Q5/ws_objects/longjoe_report_uo.pbl.src/f_rsx2.srf

$PBExportHeader$f_rsx2.srf
$PBExportComments$读一个属性--函数
global type f_rsx2 from function_object
end type

forward prototypes
global function string f_rsx2 (string s1, string sb, string se)
end prototypes

global function string f_rsx2 (string s1, string sb, string se);string ls
int li,lj
li=pos(s1,sb)
if li>0 then
	lj=pos(s1,se,li+1)
	ls=mid(s1,li+len(sb),lj -(li+len(sb)))
end if
return ls

end function