//字符串替换函数
//参数：
//as_str1:源字符串
//as_str2:在源字符串中需要被替换的字符串
//as_str3:将第一次出现的as_str2替换成as_str3
//==========================================
//返回：替换后的字符串
//==========================================
long ll_pos,ll_len
string lsz_rtn
lsz_rtn=as_str1
ll_pos=Pos(lsz_rtn,as_str2)
ll_len=len(as_str2)
do while ll_pos>0
lsz_rtn=replace(lsz_rtn,ll_pos,ll_len,as_str3)
ll_pos += ll_len
ll_pos=Pos(lsz_rtn,as_str2,ll_pos)
loop
return lsz_rtn