1. 程式人生 > >PB替換字串中全部指定字母

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