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

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

forward prototypes
global function string f_rsx (string s1, string s2)
end prototypes

global function string f_rsx (string s1, string s2);string ls
int li,lj
li=pos(s1,'{'+s2+'=')
if li>0 then
	lj=pos(s1,'}',li)
	ls=mid(s1,li+len(s2)+2,lj -(li+len(s2)+2))
end if
return ls

end function