如何读取TXT文件的第一行以后的内容

李义东

如何读取TXT文件的第一行以后的内容请帮忙

alin

Start from the second (read-line)

spring

从键盘或已打开文件中读取行结束符前的字符串
(read-line [file-desc]) 参数 file-desc 文件描述符（来自 open），代表打开的文件。如果未指定 file-desc，则 read-line 从键盘输入缓冲区中获取输入。 返回值 read-line 读取的字符串（不包含行结束符）。如果 read-line 遇到了文件结束标志，则返回 nil。 样例 以读方式打开文件： 命令：(setq f (open "c:\\my documents\\new.tst" "r")) #<file "c:\\my documents\\new.tst"> 使用 read-line 从文件中读取一行： 命令：(read-line f) "To boldly go where nomad has gone before." 从用户输入中读取一行： 命令：(read-line)
To boldly go "To boldly go" ------------------------------------------------ 返回去掉了第一个元素的表
(cdr list) 参数 list 表。 返回值 list 去掉第一个元素后所得的表（例外情况请见下面的“注意”栏）。如果表为空，函数返回 nil。
注意 当 list 参数是点对表时，cdr 返回点对表的第二个元素，而不是以表的形式返回它。 样例 命令：(cdr '(a b c)) (B C) 命令：(cdr '((a b) c)) (C) 命令：(cdr '()) nil 命令：(cdr '(a . b)) B 命令：(cdr '(1 . "Text")) "Text" 请参见 Visual LISP 开发人员手册中的点表。

yuncai11

可以用reapt进行循环读你想要的任意行

李义东

1、感谢各位回复,但到目前仍不明白要如何做3楼的方法仍只能读取到第一行,是我没有表达太清楚,我指的不是第一行的几个字符,而是第一行以外的.


2、4楼的请讲清楚一些安吗？

spring

;;;取得文本文件的内容
;;;调用格式 (GET_FILE_NR fi)
;;;2004/04/14
;;;By-Spring
(defun GET_FILE_NR (fi / fil pe fel)
(setq screw_list nil)
(if (findfile fi)
(progn
(setq fil (findfile fi))
(setq pe (open fil "r"))
(setq fel T)
(while (/= fel nil)
(setq fel (read-line pe))
(setq screw_list (cons fel screw_list))
)
(close pe)
(setq screw_list (cdr (reverse (cdr screw_list))))
)
)
)

CADghost

太详细了

meflying

李义东发表于2004-6-11 15:55:001、感谢各位回复,但到目前仍不明白要如何做3楼的方法仍只能读取到第一行,是我没有表达太清楚,我指的不是第一行的几个字符,而是第一行以外的. 2、4楼的请讲清楚...

在(close f)之前，第一次使用read-line读的是文件的第一行，第二次使用read-line，读的就已经是第二行了，这样一直下去，如果一直读下去，就将一直读到文件尾。。。但(close f)之后，再打开文件，用read-line读的又是文件的第一行了。。。

李义东

感谢回复,明白了!