字条串列表=>字符串

XD0001

字条串列表=>字符串
[pcode=lisp,true](defun lst->str (lst del)
(if (cdr lst)
(strcat (car lst) del (st->str (cdr lst) del))
(car lst)
)
)[/pcode]

ScmTools

欢迎大家来这个板块一起分享一些LISP函数

牢固

另一种写法:
[pcode=lisp,true](defun lst2str  (lst del)
  (if lst
    (strcat
      (car lst)
      (apply
        'strcat
        (apply
          'mapcar
          (cons
            'strcat
            (list
              (mapcar
                '(lambda (x) del)
                (cdr lst)
                )
              (cdr lst)
              )
            )
          )
        )
      )
    ""
    )
  )[/pcode]

ScmTools

牢固 发表于 2013-5-4 20:50 static/image/common/back.gif
另一种写法:
(defun lst2str  (lst del)
  (if lst

欢迎固版过来此板块引导讨论

牢固

ScmTools 发表于 2013-5-4 21:13 static/image/common/back.gif
欢迎固版过来此板块引导讨论

呵呵，打酱油路过！:lol

ScmTools

牢固 发表于 2013-5-4 21:16 static/image/common/back.gif
呵呵，打酱油路过！

呵呵,欢迎有空常来溜溜

Free-Lancer

学习了，以前这样写，不够通用，对字串内含空格或者括号的就出错了
[pcode=lisp,true]
(defun l2str (lst del / str)
  (setq str (vl-string-trim "(,)" (vl-princ-to-string lst)))
  (while (vl-string-search str " ")
    (setq str (vl-string-subst del " " str)
    )
  )
  str
)[/pcode]

ll_j

1. (defun lst2str (lst del)
   
2.   (apply 'strcat
   
3.          (cons (car lst)
   
4.                (mapcar '(lambda (x) (strcat del x)) (cdr lst))
   
5.          )
   
6.   )
   
7. )

(defun lst2str (lst del)<br />   (apply 'strcat<br />          (cons (car lst)<br />                (mapcar '(lambda (x) (strcat del x)) (cdr lst))<br />          )<br />   )<br /> )