简约而不简单

jijun12345

agreee

无痕

继续啊

Michael527

支持

王咣生

将输入的数据转换为字符串列表,如:
;Example: (string->list "Hello World") = ("Hello" "World")

(defun string->list (f_string / f_ls f_str f_len f_loop f_cur) ;converts string to a list using spaces as delimitation
(setq f_ls nil
f_str ""
)
(setq f_loop 0)
(repeat (strlen f_string)
(progn
(setq f_loop (1+ f_loop))
(setq f_cur (substr f_string f_loop 1))
(if (= (ascii f_cur) 32)
(if (/= f_str "")
(progn
(setq f_ls (append f_ls (list f_str)))
(setq f_str "")
)
)
(setq f_str (strcat f_str f_cur))
)
)
)
(if (/= f_str "")
(setq f_ls (append f_ls (list f_str)))
)
f_ls
)

f5612140

非常支持,但好東西藏在這不容易發現,建議管理員另闢版塊,置頂不易達到效果

王咣生

恩，说的有道理.

王咣生

有好的程序吗?好的设计思想也可以分享啊?!

无痕

王咣生发表于2004-3-16 17:26:00回复：（王咣生）将输入的数据转换为字符串列表将输入的数据转换为字符串列表,如:;Example:     (string->list \"Hello World\") = (\"Hello\" \"World\")(defun string->list (f_string /

这也算精简？nonono

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

;(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 "")")) )

王咣生

谢谢!


如果不用vlisp函数你会怎么做呢?


简单到不一定,要有思想?严谨的逻辑结构?


我想你要用AutoLISP自己设计程序结构来实现VLISP现成的函数功能,那将收获很多,


就好比用MFC封装好的类和自己设计一个类一样?


当然这不一定对每个人都必要.

无痕

王咣生发表于2004-3-31 10:24:00回复：（王咣生）回复谢谢!如果不用vlisp函数你会怎么做呢?简单到不一定,要有思想?严谨的逻辑结构?我想你要用AutoLISP自己设计程序结构来实现VLISP现成的函数功能,那将收...

2. ;(str2lst str) 将输入的数据转换为字符串列表.---(纯autolspl的写法)--------------------------梁雄啸.2004.3
3. ;测试: (str2lst   "Hello 2World 12 5456.1568") = ("Hello" "2World" "12" "5456.1568")
4. ;版权所有，盗用必究！如在程序中引用，请保留文字信息行.
5. (defun str2lst (str / i strlst str1)
6.    (setq i 0 str1 "")
7.    (while (/= "" (setq s (substr str (setq i (1+ i)) 1)))
8.        (cond ((/= " " s) (setq str1 (strcat str1 s)))
9.                    (T (setq strlst (append strlst (list str1))
10.                        str1 "")))
11.    )(if (/= str1 "") (append strlst (list str1)) strlst)
12. )
13. ;方法2:(defun str2lst (str / i str1)
14.    (setq i 0 str1 "")
15.    (while (/= "" (setq s (substr str (setq i (1+ i)) 1)))
16.        (setq str1 (strcat str1 (if (= " " s) "" "" s)))
17.    )(read (strcat "("" str1 "")"))
18. )

;(str2lst str) 将输入的数据转换为字符串列表.---(纯autolspl的写法)--------------------------梁雄啸.2004.3 ;测试: (str2lst   "Hello 2World 12 5456.1568") = ("Hello" "2World" "12" "5456.1568") ;版权所有，盗用必究！如在程序中引用，请保留文字信息行. (defun str2lst (str / i strlst str1)    (setq i 0 str1 "")    (while (/= "" (setq s (substr str (setq i (1+ i)) 1)))        (cond ((/= " " s) (setq str1 (strcat str1 s)))                    (T (setq strlst (append strlst (list str1))                        str1 "")))    )(if (/= str1 "") (append strlst (list str1)) strlst) ) ;方法2:(defun str2lst (str / i str1)    (setq i 0 str1 "")    (while (/= "" (setq s (substr str (setq i (1+ i)) 1)))        (setq str1 (strcat str1 (if (= " " s) "" "" s)))    )(read (strcat "("" str1 "")")) )