标题:如何判断打开的TXT文档内容为空
取消只看楼主
sedff
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2006-12-11
 问题点数:0 回复次数:3 
如何判断打开的TXT文档内容为空
我想在打开一个文本文件后首先判断它的内容是否为空,请问应怎样做?我的程序中可以使用EOF来将文本文档的内容写到数组中,但我想用BOF的时候老是报“函数未定义”的错误,不知是怎么回事。
搜索更多相关主题的帖子: 文档 TXT 判断 文本文件 定义 
2007-08-02 09:50
sedff
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2006-12-11
得分:0 
回复:(sedff)如何判断打开的TXT文档内容为空


Dim s As String, fnr As Integer
fnr=freefile
Open "C:\semcitpgrouporiginal\button" & buttonnumber & "list.txt" For Input As #fnr
Do Until EOF(fnr)
Line Input #fnr, s
List1.AddItem s
Loop
Close #fnr
上面是我将文本文件的内容逐行写入数组的程序,
如果我用BOF来判断文本文件内容是否为空时,就会报“函数未定义”的错误。具体程序如下:
dim i as integer
i=0
Open "C:\semcitpgrouporiginal\button" & buttonnumber & "list.txt" For Input As #fnr
do until BOF(fnr)
i=i+1

loop
close #fnr
if i=1 then
text1.text=" there's no item"
end if

2007-08-02 10:04
sedff
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2006-12-11
得分:0 
回复:(sedff)如何判断打开的TXT文档内容为空
非常感谢楼上!
2007-08-02 10:23
sedff
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2006-12-11
得分:0 
回复:(缘吇弹)LZ说的是EOF函数吧[em03]Dim Input...
也是一个好方法,不过我的文本文件有可能第一行为空。还是非常感谢回复。
2007-08-02 10:36



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-159833-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.307066 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved