$PBExportHeader$gf_getfirstinfo.srf
global type gf_getfirstinfo from function_object
end type
forward prototypes
global function string gf_getfirstinfo (string as_source, string as_bef, string as_aft)
end prototypes
global function string gf_getfirstinfo (string as_source, string as_bef, string as_aft);//算法描述从字符串中获取两个字符串间的内容
string ls_rtn
string ls_bef
string ls_aft
string ls_bef_after//DT = '后面的字符串
long ll_pos1,ll_pos2
ls_bef=lower(as_bef)
ls_aft=lower(as_aft)
as_source=lower(as_source)
ll_pos1=pos(as_source,ls_bef)
if ll_pos1>0 then
ls_bef_after=mid(as_source,ll_pos1 + len(ls_bef),len(as_source) - ll_pos1 - len(ls_bef))
ll_pos2=pos(ls_bef_after,ls_aft)
ls_rtn=mid(ls_bef_after,1,ll_pos2 - 1)
end if
return ls_rtn
return ls_rtn
end function