vba - 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"具有更高的抽象性。流可能是文件、网络连接或任何符​​合接口(interface)的东西。因此，我不相信它会获得真正的文件句柄 ID，因此 EOF 函数不相关。