社区 › 源码共享 › 简约而不简单

laoquan 发表于 2023-6-26 08:45:18

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

mojianxing 发表于 2023-9-22 09:46:39

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

atone 发表于 2024-2-3 16:10:57

溜达溜达，帖子不错

yefei812678 发表于 2024-2-26 12:21:24

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

jianxiucai 发表于 2024-3-3 12:04:13

新手上路，安全驾驶

williamhub 发表于 2024-4-17 13:46:15

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

xxyyzzlg 发表于 2024-7-6 07:46:57

新手上路，安全驾驶

yefei812678 发表于 2025-1-24 17:52:54

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

yjwht 发表于 2025-2-20 07:59:00

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

有错误，应改为：

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

查看完整版本: 简约而不简单