Putting text file entries into an array

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.

Code:

---

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.

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

Try:

Code:

---

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

---

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

Leon Davis
Damien Adkins
Mark Richardson


etc.

This was what I meant to post:

Code:

---

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

---

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

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

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

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

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

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?

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.

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

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

VB Code:

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