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是一个流，它比“文件”更高抽象。流可以是文件，网络连接，也可以是符合接口的任何内容。因此我不相信它会获得真正的文件句柄ID，因此EOF功能不相关。