EOF()函数的参数是什么?

Question

Set File_Object = CreateObject("Scripting.FileSystemObject")
Set File_Xml = File_Object.OpenTextFile(Str_Xml_File)
a = File_Xml.readline

我想读取每一行直到文件的末尾。我试过了

while EOF() 'says argument not optional 
while EOF(File_Xml) ' says that Type mismatch it must be an integer

EOF的参数是什么?请告诉我如何使用Vba中的EOF条件读取文件内容。由于

Answer 1

File_Xml是TextStream对象。您可以使用AtEndOfStream属性来测试您是否遇到了文件的末尾，例如File_Xml.AtEndOfStream。

EOF来自只处理"真实"文件的时代，每个进程的文件句柄数量有限。它的参数是一个文件句柄id。这在今天仍然是正确的，但是我们也有流要处理。

TextStream是一个流，它比'file'抽象得更高。流可以是一个文件，一个网络连接，或者任何符合接口的东西。因此，我不相信它得到一个真正的文件句柄id，因此EOF函数是不相关的。