Question

I just wrote this function to read a series of email addresses from a linebreak-delimited text file. And it does work, but that’s not my question.

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

Reading this, I would expect this to:

1. Read the first line, store it in TempArr(1)
2. Loop
3. Read the first line AGAIN, store it in TempArr(2)
4. Loop
5. Etc

I just can’t figure out how the while loop goes to the next line in the text file.

Answer 1

You’re holding a handle (#1) to the file from the point you call Open, until you call Close. Behind the scenes (on the O/S level), the handle retains a current file position as part of the file descriptor.