简约而不简单

laoquan

工作二十年，深感程式带来的便捷，同样非常感谢前辈高人的无私奉献。每天进步一点点，坚持下去，终有所获。

mojianxing

深感程式带来的便捷，同样非常感谢前辈高人的无私奉献。

atone

溜达溜达，帖子不错

yefei812678

非常简洁！！！支持。。。

jianxiucai

新手上路，安全驾驶

williamhub

深感程式带来的便捷，同样非常感谢前辈高人的无私奉献。

xxyyzzlg

新手上路，安全驾驶

yefei812678

谢谢分享谢谢分享谢谢分享

yjwht

无痕 发表于 2004-3-31 00:26
这也算精简？nonono

有错误，应改为：

1. ;(str2lst str) 将输入的数据转换为字符串列表.---------------------------梁雄啸.2004.3
   
2. ;测试: (str2lst   "Hello 2World 12 5456.1568") = ("Hello" "2World" "12" "5456.1568")
   
3. ;版权所有，盗用必究！如在程序中引用，请保留文字信息行.
   
4. (defun str2lst (str / i)
   
5.   (while (setq i (vl-string-search " " str
   
6.            (if i (+ 2 i) 0)
   
7.          )
   
8.      )
   
9.   (setq str (vl-string-subst "\" \"" " " str i))
   
10.   )
    
11.   (read (strcat "(" str ")"))
    
12. )

;(str2lst str) 将输入的数据转换为字符串列表.---------------------------梁雄啸.2004.3<br /> ;测试: (str2lst   "Hello 2World 12 5456.1568") = ("Hello" "2World" "12" "5456.1568")<br /> ;版权所有，盗用必究！如在程序中引用，请保留文字信息行.<br /> (defun str2lst (str / i)<br />   (while (setq i (vl-string-search " " str<br />            (if i (+ 2 i) 0)<br />          )<br />      )<br />   (setq str (vl-string-subst "\" \"" " " str i))<br />   )<br />   (read (strcat "(" str ")"))<br /> )