主题:如何查找某行?
kikvtfrg
[专家分:0] 发布于 2005-06-08 17:21:00
如何找到TXT文件的倒数第四行?
回复列表 (共3个回复)
沙发
moz [专家分:37620] 发布于 2005-06-08 17:45:00
按顺序输入文件打开用line input来读,
读完以后利用倒数第四串字符串,
但要注意识别空行。
又或者另一个方法,大文件比较好,小文件用比较烦琐:
二进制方式打开文件,
计算文件长度,lof()
用input$(,) 倒数读入字符串,
检测字符串中倒数第五个回车换行符与第四个回车换行符之间的字符串。
板凳
kikvtfrg [专家分:0] 发布于 2005-06-08 21:39:00
不是很明白,请讲详细一点
3 楼
moz [专家分:37620] 发布于 2005-06-08 22:20:00
我的老师老骂我们:画公仔难道还要画出肠来吗?
用第一种方法举例
dim s$(4)
f$="1.txt"
f%=freefile
open f$ for input as #f%
do until eof(f%)
line input #f%,a$
a$=rtrim$(a$)
if a$<>"" then
for i%=1 to 3
s$(i%)=s$(i%+1)
next
s$(i%)=a$
end if
loop
close
print "你要的倒数第四行字符串是:";s$(1)
我来回复