关于read-line的用法！

superxzg

关于read-line的用法！
我想按行读取文件的内容，可是每次read－line只能读取第一行，
用了（while（setq str（read－line fn））****）也不行，请高手指点，如何实现全文件的按行读取！

fly_902

用循环去读应该可以的,

(setq file-dec (open "文件" r))

(setq text-content (read-line file-dec))

(while (/= text-content nil)

 (setq text-content (read-line file-dec))

)

如果你想得到全部内容, 最好建立一个存储内容的表!

tcsl9621

（defun redfile (filename / str fileobj outlist)

    (setq fileobj (open filename  "r")

    outlist nil )

(while (setq str (realine fileobj ))

    (setq outlist (append outlist (list str)))

)

(close fileobj )

outlist

）

将文件中的内容读入表中。

killer9806

谢二三楼的代码。