函数定义：
f_replace_string(String ls_old value ,String ls_replace readonly,String ls_with readonly)

程序源码如下：
String ls_new
Integer li_find
li_find = Pos(ls_old, ls_replace)
If li_find > 0 Then
ls_new = Left(ls_old, li_find -1) + ls_with + Mid(ls_old, li_find + Len(ls_replace))
Return(f_replace_string(ls_new,ls_replace,ls_with))
Else
Return(ls_old)
End If

在函数中如要删除子串，第三个参数可为空串（""）