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

求助高手如何实现循环读取dat文件里面的数据
www.dimcax.com
求助高手如何实现循环读取dat文件里面的数据用(while (setq xrec (read-line fp))
读取之后，需要继续（setq e1 xrec）
（setq e2 xrec）
以此类推，现在大概有100多个e，太费劲儿了，有没有简单的赋值方法？？
d
放在表里面啊！！
(setq lst nil)
(while (setq xrec (read-line fp))
(setq lst (cons xrec lst))
)
d
(setq xrec_list nil)
(while (setq xrec (read-line fp))
(setq xrec_list (append xrec_list (list xrec)))
)
xrec_list 是你要的表
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
我是想把e1到e100多赋值，然后读取其中的数，因为要根据下拉菜单来选择读取e多少，而且在dcl还要实现参数选择菜单，也就是参数要提前显示在dcl中，那要的话，数据必须全部保存在e1到e100多中，要不然就没法实现了，上面的程序只能读取一次啊，还是不能循环读取并保存
d
(setq i 0)
(while (set (read (strcat "e" (itoa (setq i (1+ i))))) (read-line fp)))
d
这样比较浪费内存，程序结束加上以下代码
(repeat i
(set (read (strcat "e" (itoa (setq i (1- i))))) nil)
)