读取字典的时候怎样才能知道，读到最后一行了？

Question

？

Answer 1

EOF 函数
      返回一个 Integer，它包含 Boolean 值 True，表明已经到达为 Random 或顺序 Input 打开的文件的结尾。语法EOF(filenumber)必要的 filenumber 参数是一个 Integer，包含任何有效的文件号。说明使用 EOF 是为了避免因试图在文件结尾处进行输入而产生的错误。直到到达文件的结尾，EOF 函数都返回 False。对于为访问 Random 或 Binary 而打开的文件，直到最后一次执行的 Get 语句无法读出完整的记录时，EOF 都返回 False。对于为访问 Binary 而打开的文件，在 EOF 函数返回 True 之前，试图使用 Input 函数读出整个文件的任何尝试都会导致错误发生。在用 Input 函数读出二进制文件时，要用 LOF 和 Loc 函数来替换 EOF 函数，或者将 Get 函数与 EOF 函数配合使用。对于为 Output 打开的文件，EOF 总是返回 True。

Answer 2

EOF 函数示例
本示例使用 EOF 函数来检测文件尾。示例中假设 MYFILE 为有数个文本行的文本文件。Dim InputData
Open "MYFILE" For Input As #1   ' 为输入打开文件。
Do While Not EOF(1)   ' 检查文件尾。
   Line Input #1, InputData   ' 读入一行数据。
   Debug.Print InputData   ' 在立即窗口中显示。
Loop
Close #1   ' 关闭文件。

Answer 3

//我用的是FSO啊AtEndOfStream 属性
         描述只读属性，如果文件指针在 TextStream 文件末尾，则该属性值返回 True；否则返回 False。语法object.AtEndOfStreamobject 总是一个 TextStream 对象的名称。说明AtEndOfStream 属性仅应用于已打开供读取的 TextStream 文件；否则就会出错。下面的代码举例说明了 AtEndOfStream 属性的用法：Dim fs, a, retstring
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("c:\testfile.txt", ForReading, False)
Do While a.AtEndOfStream <> True
    retstring = a.ReadLine
    ...
Loop
a.Close