列表怎样转换为字符串？

819534890

2. (defun list-to-string(lst / x l)
   
3. (foreach x lst
   
4. (setq l (cons (vl-string-left-trim "(" (vl-string-right-trim ")" (vl-princ-to-string x))) l)))
   
5. (reverse l)
   
6. )
   
7. 
   
8. ; _$ (setq aaa '((王超军 26) (张云 13) (李四 35) (赵富贵 72) (张伟 36)) )
   
9. ; ((王超军 26) (张云 13) (李四 35) (赵富贵 72) (张伟 36))
   
10. ; _$ (LIST-TO-STRING aaa)
    
11. ; ("王超军 26" "张云 13" "李四 35" "赵富贵 72" "张伟 36")

(defun list-to-string(lst / x l)<br /> (foreach x lst <br /> (setq l (cons (vl-string-left-trim "(" (vl-string-right-trim ")" (vl-princ-to-string x))) l)))<br /> (reverse l)<br /> )<br /> <br /> ; _$ (setq aaa '((王超军 26) (张云 13) (李四 35) (赵富贵 72) (张伟 36)) )<br /> ; ((王超军 26) (张云 13) (李四 35) (赵富贵 72) (张伟 36))<br /> ; _$ (LIST-TO-STRING aaa)<br /> ; ("王超军 26" "张云 13" "李四 35" "赵富贵 72" "张伟 36")

ZZXXQQ

(mapcar '(lambda (x) (substr (setq str (vl-princ-to-string x)) 2 (1- (strlen str)))) l)

xyp1964

2. (defun abc (lst / a) (mapcar '(lambda (x) (setq a (vl-princ-to-string x))(substr a 2 (- (strlen a) 2))) lst))

(defun abc (lst / a) (mapcar '(lambda (x) (setq a (vl-princ-to-string x))(substr a 2 (- (strlen a) 2))) lst))

skg123

vl-princ-to-string

vladimirputin

不错的资料，谢谢分享。