字符串连接函数

Lisphk

1. (defun _strjoin (lst str / x y)
   
2.   (setq x (car lst))
   
3.   (foreach y (cdr lst)
   
4.     (setq x (strcat x  str y))
   
5.   )
   
6.   x
   
7. )
   
8. 
   

(defun _strjoin (lst str / x y)<br />   (setq x (car lst))<br />   (foreach y (cdr lst)<br />     (setq x (strcat x  str y))<br />   )<br />   x<br /> )<br /> <br />

命令: (_strjoin '("a" "b" "c") "\t")
"a\tb\tc"

HLCAD

这个简单而实用。好

xshrimp

我也来来个. (xzj-str-unparse  '("a" "b" "c")  "\t")
"a\tb\tc"

1. (defun xzj-str-unparse (lst str / s)
   
2.   (substr (apply
   
3.             'strcat
   
4.             (mapcar
   
5.               '(lambda (s)
   
6.                  (strcat str s)
   
7.                )
   
8.               lst
   
9.             )
   
10.           ) (1+ (strlen str))
    
11.   )
    
12. )
    

(defun xzj-str-unparse (lst str / s)<br />   (substr (apply<br />             'strcat<br />             (mapcar<br />               '(lambda (s)<br />                  (strcat str s)<br />                )<br />               lst<br />             )<br />           ) (1+ (strlen str))<br />   )<br /> )<br />

marting

条条大路通我家，我也来一个

1. (defun _strjoin (lst str / l)
   
2.   (setq l (1- (length lst)))
   
3.   (apply
   
4.     'strcat
   
5.     (mapcar
   
6.       '(lambda (x)
   
7.          (if (/= (vl-position x lst) l)
   
8.            (strcat x str)
   
9.            x
   
10.          )
    
11.        )
    
12.       lst
    
13.     )
    
14.   )
    
15. )
    
16. 
    

(defun _strjoin (lst str / l)<br />   (setq l (1- (length lst)))<br />   (apply<br />     'strcat<br />     (mapcar<br />       '(lambda (x)<br />          (if (/= (vl-position x lst) l)<br />            (strcat x str)<br />            x<br />          )<br />        )<br />       lst<br />     )<br />   )<br /> )<br /> <br />

命令: !lst
("a" "b" "c")

命令: (_strjoin lst "\t")
"a\tb\tc"

marting

1. (defun _strjoin (lst str / l i)
   
2.   (setq l (1- (length lst)) i -1)
   
3.   (apply
   
4.     'strcat
   
5.     (mapcar
   
6.       '(lambda (x)
   
7.    (if (/= (setq i (1+ i)) l)
   
8.      (strcat x str)
   
9.      x
   
10.    )
    
11.        )
    
12.       lst
    
13.     )
    
14.   )
    
15. )

(defun _strjoin (lst str / l i)<br />   (setq l (1- (length lst)) i -1)<br />   (apply<br />     'strcat<br />     (mapcar<br />       '(lambda (x)<br />    (if (/= (setq i (1+ i)) l)<br />      (strcat x str)<br />      x<br />    )<br />        )<br />       lst<br />     )<br />   )<br /> )

这个效率能比上面的能高点，循环里面没有用VL-POSITION

newer

xshrimp 发表于 2016-10-17 21:40

虾米版主的可以改成这样：

(defun xzj-str-unparse (lst str / s)
  (apply
    'strcat
    (reverse (cons (last lst) (mapcar
                                '(lambda (s)
                                   (strcat s str)
                                 )
                                (cdr (reverse lst))
                              )
             )
    )
  )
)

yoyoho

感谢诸位高手分享程序！

cable2004

1. (apply  'strcat (cons  (car lst)(mapcar'(lambda (x)(strcat l x)) (cdr lst))))

复制代码

sicky111

简单实用。

sicky111

收藏下，怕以后找不到。

yjch

好好学习天天向上

xvjiex

感谢分享字符串连接函数

qxlonmsn

顶!!!!!!!!!!!!!!!!!!!!!