Question

Do While Not EOF(1)

Private Sub Form_Load()
Dim Do While Not EOF(1) As String
Text1.Text = ""
Open App.Path & "\in5.txt" For Input As #1
Do While Not EOF(1)
Text1.Text = Text1.Text + str1
Loop
End Sub
这些代码中Do While Not EOF(1)是什么意思？str1是什么呢？
"\in5.txt"中为什么要有“\”? 有的时候为什么就没有呢？

Answer 1

写错了。
eof（n)是用来检查是否读到了代号为n的文件的结尾
如果是则返回true不是返回false
do while not eof(1)的意思是：
一只执行直到读到文件末尾
循环里面没有读文件命令
（get……，Input……，Lineinput）
显而易见
这样会死循环
所以是写错了
我想这个源代码的意思是想读整个文件进text1
这样的话就应该在Text1.Text = Text1.Text + str1 前面加一个读语句
Input #1, str1 '读取数据给str1
然后Text1.Text = Text1.Text + str1 就不难理解了，就是把str1加进text1去
呵呵，明白了吗？

Answer 2

汗! 这代码写错了!
第二行 dim --->这里后跟变量名 定义变量的
如果这个过程是独立的那么 第二行应该是 dim str1 as string
代码中有一处错 而整个过程基本没有实现什么作用!

Do While Not EOF(1) 是开始进入循环读取已经 打开(OPEN..)
的文件 循环的条件是 NOT EOF(1) 文件指针没有指向文件尾
这里没错 !
可下面 循环执行的内容却没有 (GET..) 读取文件的内容
而只是 TEXT1.TEXT=TEXT1.TEXT + STR1单纯的将一个空的变量加倒
TEXT1文本筐中!

"\in5.txt" 带"\" 是为了 程序更强些防治路径后没有 "\"
打比方 APP.PATH 的值可能是 d:\vb6
如果是这样 连接起来就是 d:\vb6\int5.txt 如果不加 "\"
那就是 d:\vb6int5.txt 文件名完全变态!
看具体情况!

Answer 3

Private Sub Form_Load() '你的代码是有些问题的. 循环结构 在这里不知道你想干什么!在你代码里 你的 open语句和do while 结构没关系
Text1.Text = ""
Open App.Path & "\in5.txt" For Input As #1
Do While Not EOF(1)

Text1.Text = Text1.Text + str1
Loop
End Sub

Do While Not EOF(1)是循环结构 eof(1)中的1是open打开的#1文件,指文件结尾.

结构是
Do While Not EOF(1)'一直循环 到到文件结束处
...
loop 'd0 while 的结束标志