求助高手如何实现循环读取dat文件里面的数据

sefiroth

用(while (setq xRec (read-line fp))
读取之后，需要继续（setq e1 xRec）
（setq e2 xRec）
以此类推，现在大概有100多个e，太费劲儿了，有没有简单的赋值方法？？

caoyin

放在表里面啊！！

(setq lst nil)
(while (setq xRec (read-line fp))
    (setq lst (cons xRec lst))
)

nonsmall

(setq xRec_list nil)

(while (setq xRec (read-line fp))

(setq xRec_list (append xRec_list (list xRec)))

)

xRec_list 是你要的表

sefiroth

我是想把e1到e100多赋值，然后读取其中的数，因为要根据下拉菜单来选择读取e多少，而且在dcl还要实现参数选择菜单，也就是参数要提前显示在dcl中，那要的话，数据必须全部保存在e1到e100多中，要不然就没法实现了，上面的程序只能读取一次啊，还是不能循环读取并保存

caoyin

(setq i 0)
(while (set (read (strcat "e" (itoa (setq i (1+ i))))) (read-line fp)))

caoyin

这样比较浪费内存，程序结束加上以下代码

(repeat i

  (set (read (strcat "e" (itoa (setq i (1- i))))) nil)

)

lajjs

都是高手哟!!!