(XD::String:SubstNth)替换指定位置字串

st788796

1. (defun XD::String:SubstNth (new old str n / pos sl pl np l)
   
2.   (if (vl-string-search old str)
   
3.     (progn
   
4.       (setq pos        0)
   
5.       (while (setq np (vl-string-search old str pos))
   
6.         (setq pos (1+ pos)
   
7.               pl  (cons np pl)
   
8.         )
   
9.       )
   
10.       (setq l (vl-sort pl '<))
    
11.       (if (listp n)
    
12.         (last
    
13.           (mapcar
    
14.             '(lambda (x)
    
15.                (setq str (vl-string-subst new old str (nth (1- x) l)))
    
16.              )
    
17.             n
    
18.           )
    
19.         )
    
20.         (vl-string-subst new old str (nth (1- n) l))
    
21.       )
    
22.     )
    
23.     str
    
24.   )
    
25. )
    

(defun XD::String:SubstNth (new old str n / pos sl pl np l)<br />   (if (vl-string-search old str)<br />     (progn<br />       (setq pos        0)<br />       (while (setq np (vl-string-search old str pos))<br />         (setq pos (1+ pos)<br />               pl  (cons np pl)<br />         )<br />       )<br />       (setq l (vl-sort pl '<))<br />       (if (listp n)<br />         (last<br />           (mapcar<br />             '(lambda (x)<br />                (setq str (vl-string-subst new old str (nth (1- x) l)))<br />              )<br />             n<br />           )<br />         )<br />         (vl-string-subst new old str (nth (1- n) l))<br />       )<br />     )<br />     str<br />   )<br /> )<br />

示例:
_$ (XD::String:SubstNth "@$$$" "1" "33211a112111" '(4 5))
"33211a1@$$$2@$$$11"
_$ (XD::String:SubstNth "@$$$" "1" "33211a112111" 4)
"33211a1@$$$2111"
_$

st788796

API

1. (defun XD::String:SubstNth (new old str n / strl i)
   
2.   (if (= (length (setq strl (XD::String:RegexpS
   
3.                               (strcat "[^" old "]+|" old)
   
4.                               str
   
5.                               ""
   
6.                             )
   
7.                  )
   
8.          )
   
9.          1
   
10.       )
    
11.     str
    
12.     (progn
    
13.       (setq i 0)
    
14.       (if (numberp n)
    
15.         (setq n (list n))
    
16.       )
    
17.       (xdrx_string_join
    
18.         (mapcar        '(lambda (x)
    
19.                    (if (and (= x old)
    
20.                             (member (setq i (1+ i)) n)
    
21.                        )
    
22.                      new
    
23.                      x
    
24.                    )
    
25.                  )
    
26.                 strl
    
27.         )
    
28.         ""
    
29.       )
    
30.     )
    
31.   )
    
32. )
    

(defun XD::String:SubstNth (new old str n / strl i)<br />   (if (= (length (setq strl (XD::String:RegexpS<br />                               (strcat "[^" old "]+|" old)<br />                               str<br />                               ""<br />                             )<br />                  )<br />          )<br />          1<br />       )<br />     str<br />     (progn<br />       (setq i 0)<br />       (if (numberp n)<br />         (setq n (list n))<br />       )<br />       (xdrx_string_join<br />         (mapcar        '(lambda (x)<br />                    (if (and (= x old)<br />                             (member (setq i (1+ i)) n)<br />                        )<br />                      new<br />                      x<br />                    )<br />                  )<br />                 strl<br />         )<br />         ""<br />       )<br />     )<br />   )<br /> )<br />

/db_自贡黄明儒_

这个很实用，示例中OLd参数只有一位，可以多位吗。？

st788796

/db_自贡黄明儒_ 发表于 2013-12-1 17:24
这个很实用，示例中OLd参数只有一位，可以多位吗。？

函数名测试用的
_$ (rrr "@$$$" "11" "33211a112111" 1)
"332@$$$a11211"
_$ (rrr "@$$$" "11" "33211a112111" 2)
"33211a@$$$211"
_$ (rrr "@$$$" "11" "33211a112111" '(1 2))
"332@$$$a@$$$211"
_$