社区 › AutoLISP/Visual LISP 编程技术 › ■短短的读取文本文件内容到表中 就是不成功 哪里错了？■

zhuquanmao 发表于 2012-10-19 00:30:58

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

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

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

yoyoho 发表于 2012-10-19 08:12:59

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

Andyhon 发表于 2012-10-19 08:36:49

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

lijiao 发表于 2012-10-19 09:27:37

(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 发表于 2012-10-21 02:01:39

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

wxytiger 发表于 2013-10-15 23:32:06

(setq datalist '(()))

查看完整版本: ■短短的读取文本文件内容到表中 就是不成功 哪里错了？■