0

At my school we use Visual Basic 6.0 and I wanted to try something that we learned about arrays and using notepad as a cheap database.

We would use thinks like:
Open "Filename.txt" For Input As #1
Input #1, strVARIABLE
lblVARIABLE = str VARIABLE

So basically it'd take the first line from the notepade, read it, and set strVARIABLEs name as that and then the form would display whatever was written there.

I got back home and tried to make a sort of quiz game but I have Visual basic 5.0 and whenever I try to put in Input it says "Input past end of file" but I don't know what that means :l
Any help would be great thanks

3
Contributors
3
Replies
4
Views
7 Years
Discussion Span
Last Post by rm_daniweb
0

It might be good if I actually linked the code :l
I just used google and all the forums are using something different or aren't answered

This is the VB 5.0 project that I'm doing at home [so far]

Private Sub Form_Load()
Dim I As Integer
intLives = 3
intPoints = 0
Open "QuestionOne.txt" For Input As #1
Input #1, strQuestion
For I = 1 To 5
Input #1, strAnswers(I)
Next
End Sub


And this is the VB 6.0 project at school:

Private Sub Form_Load()
cmdReset.Visible = False
cmdPrev.Visible = False
cmdSubmit.Visible = False
Dim I As Integer
Open "BoatrightSurveyData.txt" For Input As #1
Input #1, strTitle
Input #1, strQuestion, intNoofAns
For I = 1 To intNoofAns
Input #1, strAnswer(I)
Next
lblTitle = strTitle
lblQstn = strQuestion
For I = 1 To intNoofAns
optAnswer(I).Visible = True
Next
For I = 1 To 10
optAnswer(I).Caption = strAnswer(I)
Next
End Sub

0

Input past end of file means that you are trying to read more than the file contains. In help, on the index tab, type in input keyword and select Input # Statement.

Good Luck

0

use the EOF function
you have an empty line inside your file.

Do While Not EOF(1) -->your file number

your code here...

Loop

This article has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.