明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3315|回复: 8

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

[复制链接]
发表于 2004-6-11 12:33:00 | 显示全部楼层 |阅读模式
如何读取TXT文件的第一行以后的内容请帮忙
发表于 2004-6-11 12:37:00 | 显示全部楼层
Start from the second (read-line)
发表于 2004-6-11 12:45:00 | 显示全部楼层
从键盘或已打开文件中读取行结束符前的字符串
(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 开发人员手册中的点表。
发表于 2004-6-11 14:34:00 | 显示全部楼层
可以用reapt进行循环读你想要的任意行
 楼主| 发表于 2004-6-11 15:55:00 | 显示全部楼层
1、感谢各位回复,但到目前仍不明白要如何做3楼的方法仍只能读取到第一行,是我没有表达太清楚,我指的不是第一行的几个字符,而是第一行以外的.


2、4楼的请讲清楚一些安吗?
发表于 2004-6-11 16:06:00 | 显示全部楼层
;;;取得文本文件的内容
;;;调用格式 (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))))
)
)
)
发表于 2004-6-11 17:58:00 | 显示全部楼层
太详细了
发表于 2004-6-11 19:23:00 | 显示全部楼层
李义东发表于2004-6-11 15:55:001、感谢各位回复,但到目前仍不明白要如何做3楼的方法仍只能读取到第一行,是我没有表达太清楚,我指的不是第一行的几个字符,而是第一行以外的. 2、4楼的请讲清楚...

在(close f)之前,第一次使用read-line读的是文件的第一行,第二次使用read-line,读的就已经是第二行了,这样一直下去,如果一直读下去,就将一直读到文件尾。。。但(close f)之后,再打开文件,用read-line读的又是文件的第一行了。。。
 楼主| 发表于 2004-6-12 08:40:00 | 显示全部楼层
感谢回复,明白了!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-6 09:47 , Processed in 0.188786 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表