论坛 › A/VLISP › ;;表->字符串

/db_自贡黄明儒_ 发表于 2014-9-1 12:18:47

;;表->字符串

觉得把表=》字符串，还是很实用的

;;表->字符串 By 自贡黄明儒 2014年9月1日
;;(lst->str (getpoint) ",")=>"-2112.02,2562.58,0.0"
;;(lst->str (list 2 "3" 4) ",")=>"2,3,4"
**** Hidden Message *****

q3_2006 发表于 2014-9-1 12:33:56

看看和我用的什么区别...

q3_2006 发表于 2014-9-1 12:37:06

q3_2006 发表于 2014-9-1 12:33
看看和我用的什么区别...

就是直接用大师的....{:soso_e120:}

(defun LM:lst->str ( lst del )
    (if (cdr lst)
      (strcat (car lst) del (LM:lst->str (cdr lst) del))
      (car lst)
    )
)

q3_2006 发表于 2014-9-1 12:38:11

我超级懒...能用好用的代码全部直接用...省了自己想.....

Lisphk 发表于 2014-9-1 12:41:44

看看，确实实用。

kwok 发表于 2014-9-1 12:53:19

回复看看,:)

lgx9612 发表于 2014-9-1 18:46:17

顶起顶起顶起

819534890 发表于 2014-9-1 19:31:08

使用的东西就是好

范建威 发表于 2014-9-2 00:00:40

谢谢楼主！！！！

qyming1996 发表于 2014-9-2 14:23:13

学习，学习

yhly555 发表于 2014-9-2 19:01:46

不是很懂，看一下

ynhh 发表于 2014-9-3 13:38:54

黄总高产
支持黄总

yjch 发表于 2014-9-3 14:03:54

多加揣摩，多收益

杜流浪人 发表于 2014-9-3 19:08:42

{:soso_e179:}

viphappy 发表于 2014-9-4 07:58:50

谢谢楼主分享！！！

查看完整版本: ;;表->字符串