// string of_ReplaceAll
// string as_source : 目標字串
// string as_old_str : 要取代的字串
// string as_new_str : 取代為
// 用 as_old_str 於 as_source 裏找尋，如符合，改為 as_new_str
long ll_pos, ll_start, ll_get_len
string ls_retval
//Pos ( string1, string2 {, start } )
ll_start=1
ll_pos = pos( as_source, as_old_str, ll_start)
ls_retval=''
do while ll_pos>0
ll_get_len = ll_pos - ll_start
ls_retval += Mid(as_source, ll_start, ll_get_len)
ls_retval += as_new_str
ll_start = ll_pos + Len(as_old_str)
ll_pos = pos( as_source, as_old_str, ll_start)
loop
ls_retval += Mid(as_source, ll_start)
Return ls_retval
PB_ReplaceAll
2星 需积分: 50 14 浏览量
2012-12-28
09:06:43
上传
评论
收藏 60KB RAR 举报 
ReplaceAll.rar （2个子文件） 
ReplaceAll.txt 1KB
ReplaceAll.jpg 88KB资源评论
the7thsense2022-06-20就这！你也好意思收50分，穷疯了吧 long ll_pos, ll_start, ll_get_len string ls_retval //Pos ( string1, string2 {, start } ) ll_start=1 ll_pos = pos( as_source, as_old_str, ll_start) ls_retval='' do while ll_pos>0 ll_get_len = ll_pos - ll_start ls_retval += Mid(as_source, ll_start, ll_get_len) ls_retval += as_new_str ll_start = ll_pos + Len(as_old_str) ll_pos = pos( as_source, as_old_str, ll_start) loop ls_retval += Mid(as_source, ll_start) Return ls_retval
dgzys07692013-01-02没什么特别的啊，这代码早就写过了
