Reading info from a file

[tzachari]

I have a txt(say text1.txt) file that has information in the following format:


How are you
Hello
What a beautiful day
1/25/00

I would like to input each line into an array. How can I do this?
This is not working:

Dim A As String
Open "text1" For input As #1
Line input #1, A$
myarray(0) = A


I am getting the first word in the first line stored in the array instead of the entire line. Also how can I process all the lines into each array? I would like to have it as follows:

myarray(0) = "How are you"
myarray(1) = "Hello"
myarray(2) = "What a beautiful day"
myarray(3) = "1/25/00"

Any help greatly appreciated
Zack

[OneSource]

Hi tzachari,

Here's how to do it.

In order to use this code, put a command button and a list box on a form. Also, note that the path to the text file is: "c:\windows\desktop\text1.txt".

Option Explicit

Private Sub Command1_Click()
    Dim myArray() As String
    Dim iCounter  As Integer
    Open "c:\windows\desktop\text1.txt" For Input As #1
    
    'Load the information into an Array
    Do Until iCounter = 4
        ReDim Preserve myArray(iCounter)
        Line Input #1, myArray(iCounter)
        iCounter = iCounter + 1
    Loop
    
    'Display the results
    For iCounter = 0 To 3
        List1.AddItem myArray(iCounter)
    Next
    
    MsgBox "All Done"
    
    Close #1
End Sub

All the best.