| 1234567891011121314151617181920 |
- $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
|
