关于文字替换【已解决】

543628024

字符串:ABABAAB
要求A替换成B,B替换成A
结果:BABABBA
要能替换汉字,求一个通用函数
类似(vl-string-translate source-set dest-set str)
求大神伸出援手,向您致敬

st788796

2. 
   
3. (defun sub (str a b / f r al bl)
   
4.   (defun f (str a / i lst pos)
   
5.     (setq i 0)
   
6.     (while (setq pos (vl-string-search a str i))
   
7.       (setq lst        (cons pos lst)
   
8.             i        (1+ pos)
   
9.       )
   
10.     )
    
11.     (reverse lst)
    
12.   )
    
13.   (defun r (str l a b)
    
14.     (foreach x l
    
15.       (setq str (vl-string-subst a b str x))
    
16.     )
    
17.     str
    
18.   )
    
19.   (setq al (f str a)
    
20.         bl (f str b)
    
21.         str (r str al b a)
    
22.         str (r str bl a b)
    
23.   )
    
24.   str
    
25. )

<br /> (defun sub (str a b / f r al bl)<br />   (defun f (str a / i lst pos)<br />     (setq i 0)<br />     (while (setq pos (vl-string-search a str i))<br />       (setq lst        (cons pos lst)<br />             i        (1+ pos)<br />       )<br />     )<br />     (reverse lst)<br />   )<br />   (defun r (str l a b)<br />     (foreach x l<br />       (setq str (vl-string-subst a b str x))<br />     )<br />     str<br />   )<br />   (setq al (f str a)<br />         bl (f str b)<br />         str (r str al b a)<br />         str (r str bl a b)<br />   )<br />   str<br /> )

newer

知道固定位置，那就用几个字符交换就行了

longer88

用来干什么的哦

sdf_1234

学习了，很不错！

王鹏_pBZlo

也来试试,先把a替换成c,然后把b替换成a,最后把c替换成b,关键是找好这个c以免替换了不需要替换的文字,比如用"\t\n\t"不太可能出现的组合
(defun tt(str a b c / num)
        (setq num (strlen str))
        (repeat num (setq str (vl-string-subst c a str)))
        (repeat num (setq str (vl-string-subst  a b str)))
        (repeat num (setq str (vl-string-subst  b c str)))
        str)