请教下对表的赋值问题。

zhelindaxues

          例如首先建立个表（a b c d e f...)然后从读取的记事本里面把读取到得值（按行读取）按顺序逐一给表里的a b c d    。 。。

 也就是相当于把记事本里面的数值按行的顺序建成一个表。

求教下这样的程序该怎么写？

caoyin

;;依次赋值给 a b c d e f g 不妥，假如行数超过26怎么办?
;;下面的方法是依次赋值给 *LINE_1* *LINE_2* *LINE_3* ... *LINE_N*
(defun ttt (/ file i)
(setq file "c:\\TXTFILE.txt")
(setq file (open file "r"))
(setq i 1)
(while (setq line (read-line file))
  (set (read (strcat "*LINE_" (itoa i) "*")) line)
  (setq i (1+ i))
)
(close file)
i
)

灰太狠

(set (read (strcat "*LINE_" (itoa i) "*")) line)
再请教下版主，上面这句为什么用set 不能用setq。

(defun c:rea()
(setq file(getfiled "选择文件" "" "" 2))
  (setq ff(open datefile "r"))
  (setq i 1)
(while (setq line (read-line ff)))
  (set (read (strcat "x" (itoa i)))  line)
  (setq i (+ 1 i))
  (close file)
  )

附上我的程序帮我看下哪里有问题。

caoyin

(setq a 1)

=

(set 'a 1)

----------------------------------------------------

(setq a 1 b 2 c 3)

=

(mapcar 'set '(a b c) '(1 2 3))

比较一下就能看出区别