troubleshooting Question

Updating Text File

Avatar of RunToTheHills
RunToTheHills asked on
Visual Basic Classic
1 Comment1 Solution168 ViewsLast Modified:
i have a game that stores the high score in a text file.

i'm adding a "second place" Label on the form but whenever i try to update the text file i keep getting the "input past end of file" error.

can anyone let me know what i am doing wrong?

here is the code:


Private Sub enterscore_Click()

If Val(playerscore) > Val(scorelabel) Then
initials = InputBox("Enter Your Initials", "First Place")
gamer = initials

Open "C:\WINDOWS\score.txt" For Output As #1
Print #1, playerscore
Print #1, gamer
Close #1

ElseIf Val(playerscore) > Val(scorelabel2) Then
initials2 = InputBox("Enter Your Initials", "Second Place")
gamer2 = initials2

Open "C:\WINDOWS\score.txt" For Output As #1
Print #1, playerscore
Print #1, gamer2
Close #1
Else
MsgBox "Try Again"
End If

' to refresh the scores
Dim HighScore, gameplayer, HighScore2, gameplayer2
Open "C:\WINDOWS\score.txt" For Input As #1
Input #1, HighScore
Input #1, gameplayer
Input #1, HighScore2
Input #1, gameplayer2
scorelabel = HighScore
gamer = gameplayer
scorelabel2 = HighScore2
gamer2 = gameplayer2
Close #1
ASKER CERTIFIED SOLUTION
QJohnson

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 1 Comment.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 1 Comment.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros