[其他]：替换字符串中的单个字符

eachy

今天看一个网友的程序，其中有个字符串替换函数，觉得有必要写个效率相对高些的，信手记了下来

原函数

2. 
   
3. (defun replstr (old new str)
   
4.   (setq nstr "")
   
5.   (repeat (strlen str)
   
6.     (if        (= (substr str 1 1) old)
   
7.       (setq nstr (strcat nstr new))
   
8.       (setq nstr (strcat nstr (substr str 1 1)))
   
9.     )
   
10.     (setq str (substr str 2))
    
11.   )
    
12.   nstr
    
13. )

<br /> (defun replstr (old new str)<br />   (setq nstr "")<br />   (repeat (strlen str)<br />     (if        (= (substr str 1 1) old)<br />       (setq nstr (strcat nstr new))<br />       (setq nstr (strcat nstr (substr str 1 1)))<br />     )<br />     (setq str (substr str 2))<br />   )<br />   nstr<br /> )

我写的，当然你使用R14的话就不好用下面的了

2. 
   
3. (defun ea:repstr (new old str)
   
4.   (vl-list->string
   
5.     (subst (ascii new) (ascii old) (vl-string->list str))
   
6.   )
   
7. )

<br /> (defun ea:repstr (new old str)<br />   (vl-list->string<br />     (subst (ascii new) (ascii old) (vl-string->list str))<br />   )<br /> )

该函数不是通用字串替换，仅适于用西文字串一次替换旧字串中的单个西文字符，贴出来对比下作为学习的一个参考。

f5612140

不是現有vl-string-subst 可用 ?