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

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

forward prototypes
global subroutine f_wsx (ref string s1, string s2, string s3)
end prototypes

global subroutine f_wsx (ref string s1, string s2, string s3);int li,lj
li=pos(s1,'{'+s2+'=')
if li>0 then
	lj=pos(s1,'}',li)
	s1=left(s1,li -1)+mid(s1,lj+1)
end if
if s3>'' then s1=s1+'{'+s2+'='+s3+'}'

end subroutine