Putting text file entries into an array

[FlamingAl]

Hey all!

OK, what I want to do is put a whole bunch of names into an array from a text file. The names are already in correct order, all I want to do is get entry #1 into label #1, entry #2 into label #2 etc. How do I do this?

This is what I've got, but I know it doesn't work.

Private Sub Form_Load()
Dim Name as String, i as String

Open "c:\lenny\collingwood\files\Players.txt" For Output As #1
    For i = 1 To 52
        Input #1, Name
        lblPlayer(i).Caption = Name
        Name = ""
    Next i

End Sub

Thanks in advance for any help you can offer.

[Edneeis]

How is the text file set up? Comma delimited, each player has a line?

[AIS_DK]

Try:

Private Sub Form_Load()
Dim Name as String
dim i as byte

Open "c:\lenny\collingwood\files\Players.txt" For Output As #1
    For i = 1 To 52
        Input #1, Name
        lblPlayer(i).Caption = Name
    Next i
close #1
End Sub

[FlamingAl]

Only player's names are in the text file, and there is one per line, like this:

Leon Davis
Damien Adkins
Mark Richardson


etc.

[AIS_DK]

This was what I meant to post:

Private Sub Form_Load()
Dim Name as String
dim i as byte

Open "c:\lenny\collingwood\files\Players.txt" For Output As #1
    For i = 1 To 52
        Line Input #1, Name
        lblPlayer(i).Caption = Name
    Next i
close #1
End Sub

[FlamingAl]

No good... 'Run Time Error 54, Bad File Mode'

[FlamingAl]

No good... 'Run Time Error 54, Bad File Mode'

And, it is completely clearing all text from the Players.txt file every time.

[AIS_DK]

Sorry I hadn't seen that, you should be using

Open "c:\lenny\collingwood\files\Players.txt" For Input As #1

[FlamingAl]

No, I need the text file to stay the same, and the program to read from the text file and put the text file information into an array.

Therefore, I know that this is right:
Open "c:\lenny\collingwood\files\Players.txt" For Output As #1

But, what should I use here:
For i = 1 To 52
Line Input #1, Name
lblPlayer(i).Caption = Name
Next i

instead of Line Input, in order to READ the file, not WRITE to it?

[AIS_DK]

Well thats why you need to use "INPUT" instead of "OUTPUT"

INPUT allows you to read from a file, while OUTPUT allows you to write to the file.

[FlamingAl]

Oh... okay then. I was certain it was the other way around. Thanks

[plenderj]

The best way, in my humble opinion, to load an entire file, line by line, into an array :

Dim myArray() As String
    Open "c:\autoexec.bat" For Binary As #1
        myArray = Split(Input(LOF(1), 1), vbCrLf)
    Close #1