此代码有效，但如何？

Question

我刚刚写了这个函数从linebreak-delimited文本文件中读取一系列电子邮件地址。 它确实工作，但那不是我的问题。

Function GetEmailArray(FileName As String) As String() 
    Dim TempArr() As String 
    Dim i As Integer 

    Open FileName For Input Access Read As #1 
    Do While Not (EOF(1)) 
     i = i + 1 
     ReDim Preserve TempArr(i + 1) 
     Line Input #1, TempArr(i + 1) 
     Debug.Print TempArr(i + 1) 
    Loop 
    Close #1 
    GetEmailArray = TempArr 
End Function 

读这篇文章，我希望它可以：

1. 阅读的第一行，将其存储在TempArr（1）
2. 环
3. 阅读的第一行再次，它存储在TempArr（2）
4. 环路
5. 等

我只是无法弄清楚while循环如何进入文本文件中的下一行。

Answer 1

从您拨打电话Open的位置开始，您正在持有一个手柄（＃1），直到您致电Close。在幕后（O/S级别），句柄将当前文件位置保留为文件描述符的一部分。

Answer 2

我相信魔法发生在Line Input #1, TempArr(i+1)上。它从文件句柄＃1读取到TempArr(i+1)。当它到达文件末尾时，EOF(1)将评估为true并终止while循环。系统如何知道下一行是哪一个？这是在你面前处理的，由Line Input。

Answer 3

线路输入功能正在改变当前线路。相当俗气的东西。

Answer 4

你的第三步应该是：

3.从文件中读取下一行到TempArr第（i + 1）

所以你不要在第1线路读取时，line input语句读取行，并将文件位置放在下一行。