[飞马小讨论] 如何实现将一个字符串表，连接成一个带空格连接的字符串

yoyoho

感谢诸位高手分享程序,学习了!

chlh_jd

今天才看到，虽然已有CAOYIN大师的最佳解，兴趣来了满写个通用的；

2. ;;
   
3. ;;(setq strlst '("a" "b" "c" "d" "e"))
   
4. ;;(f strlst " ") 返回其他语言可读列表
   
5. (defun lst->string (l del)(if (cadr l) (strcat (car l) del (lst->string (cdr l) del)) (car l)))
   
6. ;;
   
7. ;;(reallst->string '(0 0 0) ",")
   
8. ;;(sendkeys (reallst->string pt ",")) 向命令行发送点坐标
   
9. (defun reallst->string (l del)(if (cadr l) (strcat (rtos(car l)) del (reallst->string (cdr l) del)) (rtos(car l))))
   
10. ;;
    
11. ;;(intlst->string '(08 11 12 25 27) "-") 打印彩票组合
    
12. (defun intlst->string (l del)(if (cadr l) (strcat (itoa(car l)) del (intlst->string (cdr l) del)) (itoa(car l))))

;;<br /> ;;(setq strlst '("a" "b" "c" "d" "e"))<br /> ;;(f strlst " ") 返回其他语言可读列表<br /> (defun lst->string (l del)(if (cadr l) (strcat (car l) del (lst->string (cdr l) del)) (car l)))<br /> ;;<br /> ;;(reallst->string '(0 0 0) ",")<br /> ;;(sendkeys (reallst->string pt ",")) 向命令行发送点坐标<br /> (defun reallst->string (l del)(if (cadr l) (strcat (rtos(car l)) del (reallst->string (cdr l) del)) (rtos(car l))))<br /> ;;<br /> ;;(intlst->string '(08 11 12 25 27) "-") 打印彩票组合<br /> (defun intlst->string (l del)(if (cadr l) (strcat (itoa(car l)) del (intlst->string (cdr l) del)) (itoa(car l))))

guankuiwu

学习一下！

ziyouwzb

感谢各位高手分享。