Question

用lisp语言读取文件内容，只能读取整行么，我要第一行的第三个数据可以做到么，文件中都是数据

或者说用
read-line读完一行数据后，怎么把这个字符串拆称多个数据

Answer 1

(defun List_FromFile (fn / f l ll)
 (if (setq f (open (findfile fn) "r"))
   (progn
     (while (setq l (read-line f))
       (setq ll (cons  l ll))
     )
     (close f)
   )
 )
 (reverse ll)
) 
(setq data_file_patch (strcat "e:\\test\\DataFile\\" "data.txt"));;设文件路径
(setq lst (List_FromFile data_file_patch));;get list

(car lst);;获取文件中的第一个数据
(cadr lst);;获取文件中的第二个数据
(caddr lst);;获取文件中的第三个数据
(nth 3);;获取文件中的第四个数据

追问

能把注释删除了吗，不知道哪里是正文哪里是注释，还有就是get list(car lst)这句对么？谢谢回答

追答

;;符号后面的是注释，get list是注释，其它所有中文都是注释

追问

显示说参数类型错误:stringp nil，应该是if那里的问题，但是不知道是什么问题

追答

你不会调试么? 从defun开始,这是一个自定义函数,是经过验证的,没有任何问题,
你的文件路径设置正确么? 程序中e:\\test\\DataFile\\这个路径要换成你自己的路径,
文件名data.txt要换成你自己的文件名

追问

路径和文件都改了，应该是没问题吧，我再看看吧，无论如何还是非常感谢你