reading from a file

[gdspeare]

I'm trying to read from a simple text file and then print a calculation to a label. Does anyone have a link for a question similar to this that has been asked?

Thanks,

 

[gdspeare]

For some obvious reason that I can't figure out the below code is only displaying the last record from my .txt file in the label1 object.

Private Sub CommandButton1_Click()

Dim name As String
Dim wage As Single
Dim hours As Single
Dim pay As Single

lable1 = ""

Open "C:\Documents and Settings\speared\Desktop\staff.txt" For Input As #1

For i = 1 To EOF(1)
Input #1, name, wage, hours
pay = wage * hours
Next i
Label1 = name & pay
Close #1
End Sub

 

[Zack Barresse]

Hi there,

See if this helps you any..

http://www.cpearson.com/excel/imptext.htm

 

[Norie]

gdspeare

What is it you are actually trying to do?

That code loops through the text file extracting it line by line to name, wage and hours.

It then does the calculation, but nothing else.

So the last calculation will be based on the last line from the text file.

 

[gdspeare]

exactly, it is only displaying the last record in the label box. I want to have every record displayed, but my code is replacing one line with the very next line.

 

[Norie]

You want to display all the data in 1 label?