lisp 中如何逐行读取文件

ddfeilong

对文件的格式有什么要求

Gu_xl

3. ;|功能
4. 读取文件并按行将文件转换为表
5. 参数
6. files：文本文件名，如未指定路径则自动在搜索路径中查找文件
7. 返回值
8. 返回一个表，文件中一行被转换为表中的一个项，如果文件不存在，则返回nil
9. 示例
10. (gxl-file-mc_getfile "tyl.ini" )
11. |;
12. ;;; (gxl-file->List files Delimiter) 参数：文件名 分隔符字串 ，文件按行以分隔符字串分隔为表,分隔字串为nil 则按行成表
13. (defun gxl-file->List (files Delimiter / tmplst x fn)
14.   (setq files(findfile files))
15.   (if files
16.     (progn
17.       (setq fn (open  files "r"))
18.       (while (setq x (read-line fn))
19. (if Delimiter (setq x (gxl-StrParse x Delimiter)))
20.         (setq tmplst(append tmplst(list x)))
21.       )
22.       (close fn)
23.       tmplst
24.     )
25.      nil
26.   )
27. )

;|功能 读取文件并按行将文件转换为表 参数 files：文本文件名，如未指定路径则自动在搜索路径中查找文件 返回值 返回一个表，文件中一行被转换为表中的一个项，如果文件不存在，则返回nil 示例 (gxl-file-mc_getfile "tyl.ini" ) |; ;;; (gxl-file->List files Delimiter) 参数：文件名 分隔符字串 ，文件按行以分隔符字串分隔为表,分隔字串为nil 则按行成表 (defun gxl-file->List (files Delimiter / tmplst x fn)   (setq files(findfile files))   (if files     (progn       (setq fn (open  files "r"))       (while (setq x (read-line fn)) (if Delimiter (setq x (gxl-StrParse x Delimiter)))         (setq tmplst(append tmplst(list x)))       )       (close fn)       tmplst     )      nil   ) )

santalin

 read-line

就这么简单

usercoolbo

(if Delimiter (setq x (gxl-StrParse x Delimiter)))

 

这句中的GXL-STRPARSE未定义吧

 

READ－LINE太简单了，实现不了我需要的要求

danxingpen

哎,Autocad太简单了,实现不了我需要的要求!!!!!

jerryandrex

那就是用字符串行读取