7,763
社区成员
发帖
与我相关
我的任务
分享关于ReadLine的简单问题
下面的代码读取文本文件，运行至ReadLine时出错“输入超出文件尾”。
如何解决？
Sub a()
Const ForReading = 1
Dim fs, f
Dim sLine As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\CharCode.dat", ForReading, 0)
sLine = f.readline
f.Close
End Sub
如何解决？
Sub a()
Const ForReading = 1
Dim fs, f
Dim sLine As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\CharCode.dat", ForReading, 0)
sLine = f.readline
f.Close
End Sub
...全文
请发表友善的回复…
发表回复
DotNet灵魂 2003-07-19
- 打赏
- 举报
do while not f.eof
.................
loop
或者你的文件中没数据
.................
loop
或者你的文件中没数据
