给你举个例子
dim alltxt as string,linetxt as string,filenum as long
filenum=freefile()
open "abc.txt"for input as #filenum
do while not eof(#filenum)
line input #filenum,linetxt
alltxt=alltxt & linetxt & vbcrlf
loop
close #filenum
这段程序的作用是给文件abc.txt分配一个空文件号，用这个文件号打开它，然后判断是否到文件结尾，如果没有到文件结尾，就读取一行文本，并储存到变量linetxt中，然后把linetxt保存到alltxt中，并加一个换行符；当检测到文件结尾时就退出循环，并用close语句关闭文件
do while not eof(#filenum)并不是一个固定语法，do while语句是用来循环的，eof函数是判断文件结尾的。
not eof意思就是没有到文件结尾，这一句作为do while的条件
就是如果没有到文件尾的语就运行。到了文件尾就跳出循环！！！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024