opening a file

[floydimf]

i am opening a file with 5 lines
layed out in theis format
"string", "string", number, number
"string", "string", number, number
"string", "string", number, number
"string", "string", number, number
"string", "string", number, number

i only get the last line when i open it
so it says this
"string", "string", number number



this is my code any problems with this?
i have to rewrite to it also


Open "a:\THRFILE.DAT" For Input As #1


Do While Not EOF(1)
Input #1, name
Input #1, sex
Input #1, dba
Input #1, rest

Loop

Close #1

txtView.Text = name + " " + sex + " " + dba + " " + rest

[mendhak]

Do While Not EOF(1)
Input #1, name
Input #1, sex
Input #1, dba
Input #1, rest

Loop

Close #1



From above, it's apparent that you're assigning the variables with the proper values, but you're not doing anything with them. So, once the file reaches it's EOF... it's the final values that you're presented with.

What are you trying to do with all 5 lines? 5 different textboxes? Plz elaborate

[Bruce Fox]

For one thing, you need to 'add' to the TextBox, like:

'Set txtView.MultiLine = True (at build)
txtView.Text = [b]txtView.Text[/b] + name + " " + sex + " " + dba + " " + rest + [b]vbCrLf[/b]

Place it in the Loop.

[Lord_Rat]

When you dim the name, sex, dba and rest
Instead of this:

Dim name ...
use this
Dim name() ...


Also, changer 'name' to something else like 'theName'

When you app starts, Dim all the vars with zero elements like this:
ReDim theName(0)
ReDim sex(0)
ReDim dba(0)
reDim rest(0)

Finally, Change this:

Do While Not EOF(1)
Input #1, name
Input #1, sex
Input #1, dba
Input #1, rest

Loop

To This:

Do While Not EOF(1)
reDim preserve thename(0 to UBound(name) + 1)
reDim preserve sex(0 to UBound(name) + 1)
reDim preserve dba(0 to UBound(name) + 1)
reDim preserve rest(0 to UBound(name) + 1)
Input #1, name(ubound(name))
Input #1, sex(ubound(sex))
Input #1, dba(ubound(dba))
Input #1, rest(ubound(rest))

Loop

[Lord_Rat]

Then, to show in a text box:


txtView.text = ""

For LoopVar = LBound(name)+1 to UBound(name)

txtView.Text = textview.text & name(loopvar) & " " & sex(loopvar) & " " & dba(loopvar) & " " & rest(loopvar) & vbcrlf

Next

[Lord_Rat]

Hey Bruce, what app is that in your sig?

[Bruce Fox]

Also, u can load multi-variables on the one line like:

Do While Not EOF(1)
      Input #1, name, sex, dba, rest
      txtView.Text = txtView.Text + name + " " + sex + " " + dba + " " + rest + vbCrLf
   Loop
 
   Close #1

Lord_Rat: Thats my Intel(R) Active Monitor app that came on the CD
for the MotherBoard. Nice little app too - monitors Temps, Power etc


Bruce.

[Lord_Rat]

Looked it up and it's specific to Intel boards. Oh well.

[Bruce Fox]

Theres probably heaps of freeware stuff like that out there.

Anyways, I guess u could knock something similar up in VB

[floydimf]

ok i have it all in a subprocedure and it opens now thanks
but i have to perform a calculation on dba and rest
it s giving me a type mismatch error

txtView.Text = txtView.Text + name + " " + sex + " " + dba + " " + rest + vbCrLf


I dimmed it the same where it is called so Im a little lost
Private Sub Spot(name As String, sex As String, dba As Integer, rest As Integer)

txtView.Text = ""
txtView.Enabled = True


Open "a:\THRFILE.DAT" For Input As #1


Do While Not EOF(1)
Input #1, name
Input #1, sex
Input #1, dba
Input #1, rest

txtView.Text = txtView.Text + name + " " + sex + " " + dba + " " + rest + vbCrLf
Loop

Close #1