此代碼有效，但如何？

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語句讀取行，並將文件位置放在下一行。