[求助]：求lsp，关于字符串的修改.

JQKA

求lsp，关于字符串的修改.
在一字符串中等间距的插入一字符串，
l例如：有一字符串“43543gfdg345657h34tggerg5544dt65897908”
要隔4个字符插入另一字符“aa，”
变为：“4354aa，3gfdaa，g345aa，657haa，34tgaa，gergaa，5544aa，dt65aa，8979aa，08”

Underway

2. (defun c:test ( / str InsTxt idx strss)
   
3.    (setq str    "43543gfdg345657h34tggerg5544dt65897908"
   
4.       InsTxt "aa, "
   
5.          idx 1
   
6.    )
   
7.    (setq strss nil)
   
8.    (repeat (fix (/ (strlen str) 4))
   
9.      (setq strss (cons (substr str idx 4) strss)
   
10.              idx (+ idx 4)
    
11.    ) )
    
12.    (setq strss
    
13.      (apply
    
14.        'strcat
    
15.          (mapcar
    
16.            (function
    
17.              (lambda (x) (strcat x InsTxt))
    
18.            )
    
19.            (reverse strss)
    
20.      )  )
    
21.    )
    
22.    (setq strss (strcat strss (substr str idx)))
    
23. )

(defun c:test ( / str InsTxt idx strss)<br />    (setq str    "43543gfdg345657h34tggerg5544dt65897908"<br />       InsTxt "aa, "<br />          idx 1<br />    )<br />    (setq strss nil)<br />    (repeat (fix (/ (strlen str) 4))<br />      (setq strss (cons (substr str idx 4) strss)<br />              idx (+ idx 4)<br />    ) )<br />    (setq strss<br />      (apply<br />        'strcat<br />          (mapcar<br />            (function<br />              (lambda (x) (strcat x InsTxt))<br />            )<br />            (reverse strss)<br />      )  )<br />    )<br />    (setq strss (strcat strss (substr str idx)))<br /> )

JQKA

如：有一字符串“43543gfdg345657h34tggerg5544dt65897908”
要隔4个字符插入字符“aa”，“，”
变为：“aa4354，aa3gfd，aag345，aa657h，aa34tg，aagerg，aa5544，aadt65，aa8979，08”  
如何？？

wuzz

仔细研究一下字符串函数，你自己就可以写了，很简单