[LISP函数]：读取字符串中逗号分隔的数据的函数

起子

(defun rdl (rd)
  (setq i 0 j 1 )
  (while (vl-string-search "," rd i) ;while1
    (set (read (strcat "n" (itoa j) )) (vl-string-search "," rd i))
    (setq i (1+ (vl-string-search "," rd i)))
    (setq j (1+ j))
    );while1
  (setq n0 -1)
  (set (read (strcat "n" (itoa j) )) (strlen rd))
  (setq k j)
  (while (>= k 1) ;while2
    (set (read (strcat "rd" (itoa k)))
         ;(read
           (substr rd (+ 2 (eval (read (strcat "n" (itoa (1- k)) ))))
                       (- (eval (read (strcat "n" (itoa k ))))
                          (eval (read (strcat "n" (itoa (1- k) ))) ) 1)));)
    (setq k (1- k))
    );while2
  
  
  );defun


这个函数读取一个字符串，我做的时候是以逗号为分隔的，如果以别的符号分隔的话自己可以改下了用
例：
(setq a1 "111,256,236,55566")
(rdl a1)

则RD1为111，RD2为256，RD3为236，RD4为55566，RDN为第N个数据
这个函数的好处是事先不指定N就可以读取，需要第几个数据调用RDN就是了
读文件的时候特别有用。

1365252869

果然山外有山，人外有人。高手

guizhicheng

在CAD14下怎么出现下面错误？

Command: (rdl a1)
error: null function
(VL-STRING-SEARCH "," RD I)
(WHILE (VL-STRING-SEARCH "," RD I) (SET (READ (STRCAT "n" (ITOA J)))
(VL-STRING-SEARCH "," RD I)) (SETQ I (1+ (VL-STRING-SEARCH "," RD I))) (SETQ J
(1+ J)))
(RDL A1)
*Cancel*

起子

VL函数在R14里面是没有的。

jinsong-liao

解决了我在论坛中提出的如何取得不含空格的字符串问题！

陌生人

更短的程序
测试:
(setq str "2131,33,22")
(tt "2131,33,22") -> (2131 33 22)
(mapcar 'print (list dl1 dl2 dl3))
[php]
(defun tt (str / i)
  (while (vl-string-search "," (setq str (vl-string-subst " " "," str))))
  (setq i 0)
  (mapcar '(lambda(x)(set (read(strcat "dl" (itoa(setq i (1+ i))))) x)) (read(strcat "(" str ")"))
)[/php]

wkai

陌生人 好久不见了。
：）

jyzas

终于找到了我要的程序，谢谢分享:)