gbqjhf 发表于 2016-1-6 23:52:13

819534890 发表于 2016-1-7 01:15:33

本帖最后由 819534890 于 2016-1-7 01:34 编辑

(defun list-to-string(lst / x l)
(foreach x lst
(setq l (cons (vl-string-left-trim "(" (vl-string-right-trim ")" (vl-princ-to-string x))) l)))
(reverse l)
)

; _$ (setq aaa '((王超军 26) (张云 13) (李四 35) (赵富贵 72) (张伟 36)) )
; ((王超军 26) (张云 13) (李四 35) (赵富贵 72) (张伟 36))
; _$ (LIST-TO-STRING aaa)
; ("王超军 26" "张云 13" "李四 35" "赵富贵 72" "张伟 36")

ZZXXQQ 发表于 2016-1-7 08:00:43

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

xyp1964 发表于 2016-1-7 08:09:23

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

gbqjhf 发表于 2016-1-7 13:15:55

skg123 发表于 2016-10-15 12:47:40

vl-princ-to-string

vladimirputin 发表于 2016-10-23 13:54:21

不错的资料，谢谢分享。
页: [1]
查看完整版本: 列表怎样转换为字符串？