■短短的读取文本文件内容到表中 就是不成功 哪里错了？■

zhuquanmao

1. (defun xmmc (/ data datalist ff file)
   
2.   (setq file (findfile "XMMC.TXT"))
   
3.   (setq ff (open file "R"))
   
4.   (setq data (read-line ff))
   
5.   (setq datalist '())
   
6.   (while data
   
7.     (setq datalist (cons data datalist))
   
8.     (setq data (read-line ff))
   
9.   )
   
10.   (close ff)
    
11.   (setq datalist (reverse datalist))
    
12.   (prin1)
    
13. )
    

(defun xmmc (/ data datalist ff file)<br />   (setq file (findfile "XMMC.TXT"))<br />   (setq ff (open file "R"))<br />   (setq data (read-line ff))<br />   (setq datalist '())<br />   (while data<br />     (setq datalist (cons data datalist))<br />     (setq data (read-line ff))<br />   )<br />   (close ff)<br />   (setq datalist (reverse datalist))<br />   (prin1)<br /> )<br />

执行完毕总显示“错误: 参数类型错误: consp nil”  哪里错了啊？！

yoyoho

(setq file (findfile "XMMC.TXT"))
改
(setq file (findfile "c:\\XMMC.TXT"))

Andyhon

(defun xmmc (/ data datalist ff file)
==>
(defun xmmc (/ data ff file)
======================
Command: (xmmc)
Command: !datalist

lijiao

(defun xmmc (/ data datalist ff file)
(if (and (setq file (findfile "XMMC.TXT"))
            (setq ff (open file "R"))
     )
(progn
(setq datalist '())
(while (setq data (read-line ff))
         (setq datalist (cons data datalist))
)
(close ff)
(reverse datalist)
)
)
)

zhuquanmao

非常感谢各位的意见，非常受用！

wxytiger

(setq datalist '(()))