Some more reading from a file help please

[FlamingAl]

Grr.. this is really starting to annoy me. I'm trying to read the first thing from each line, but the code I've got is now only reading the first thing on the last line.

Private Sub Form_Load()
Dim name As String
Dim i As Integer

'to make sure that it starts at i=0
i = -1

Open filename For Input As #1
    While Not EOF(1)
    Input #1, name
    i = i + 1
    Wend
Close #1


lblName(i).Caption = name

Any ideas? Please?

Thanks.

[crptcblade]

Well, you actually are reading the first thing from each line, but you are not doing anything with any of the data you pull in, except for the last line try this :

Private Sub Form_Load()
Dim name As String
Dim i As Integer
 
'to make sure that it starts at i=0
i = -1
 
Open filename For Input As #1
    While Not EOF(1)
      Input #1, name
      lblName(i).Caption = name
      i = i + 1
    Wend
Close #1
 
 
 
End Sub

see if that works...

[FlamingAl]

Thanks for that, but there's still a problem. Instead of reading one thing from each line, its reading the first, second, third, fourth thing etc. on each line before going to the next line. Is there a way to JUST read the last line?

And yes, I *did* put commas between all the entries in the text file

[crptcblade]

try using Line Input, and trim off what you don't need :

Private Sub Form_Load()
Dim name As String
Dim i As Integer
 
'to make sure that it starts at i=0
i = -1
 
Open filename For Input As #1
    While Not EOF(1)
      Line Input #1, name
      lblName(i).Caption = Left(name, Instr(1,name",")-1)
      i = i + 1
    Wend
Close #1
 
End Sub

see if that works

[HeSaidJoe]

Private Sub Command1_Click()
'if it's comma delimited you can do this.
'assuming there are four fields per line.
Dim one, two, three, four

Open "C:\my documents\myfile.txt" For Input As #1
 Do While Not EOF(1)
   Input #1, one, two, three, four
   List1.AddItem one  'list only the 1st variable
 Loop
   Close
End Sub