PB替换字符串中全部指定字母

//字符串替换函数  
//参数：  
//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