Visual studio Visual Basic-在.txt文件中保存和加载一位或多位数字
在我的作业中,我用visual basic制作了一个球类游戏,玩家击球得分。我在保存数字/最高分数并将其加载到.txt文件时遇到问题。到目前为止,我已经成功地将玩家的名字和高分保存到一个.txt文件中,但是它只保存/加载0-9之间的数字,不允许2位以上的数字。提前谢谢。以下是我的代码: 保存到文本文件Visual studio Visual Basic-在.txt文件中保存和加载一位或多位数字,visual-studio,Visual Studio,在我的作业中,我用visual basic制作了一个球类游戏,玩家击球得分。我在保存数字/最高分数并将其加载到.txt文件时遇到问题。到目前为止,我已经成功地将玩家的名字和高分保存到一个.txt文件中,但是它只保存/加载0-9之间的数字,不允许2位以上的数字。提前谢谢。以下是我的代码: 保存到文本文件 Dim FileNum As Integer 'if the player's score (lblpoints) is greater than the high score (lb
Dim FileNum As Integer
'if the player's score (lblpoints) is greater than the high score (lblhighscore)
If lblpoints.Text > lblhighscore.Text Then
lblnewhigh.Visible = True
lblhighscore.Text = lblpoints.Text
lblbestname.Text = lblplyrname.Text
'to save highscore to txt file
FileNum = FreeFile()
FileOpen(FileNum, "score.txt", OpenMode.Output)
PrintLine(FileNum, lblbestname.Text)
PrintLine(FileNum, lblhighscore.Text)
FileClose(FileNum)
End If
Dim FileNum As Integer
'to fetch the highscore from txt file
FileNum = FreeFile()
FileOpen(FileNum, "score.txt", OpenMode.Input)
lblbestname.Text = LineInput(FileNum)
lblhighscore.Text = LineInput(FileNum)
FileClose(FileNum)
从文本文件加载
Dim FileNum As Integer
'if the player's score (lblpoints) is greater than the high score (lblhighscore)
If lblpoints.Text > lblhighscore.Text Then
lblnewhigh.Visible = True
lblhighscore.Text = lblpoints.Text
lblbestname.Text = lblplyrname.Text
'to save highscore to txt file
FileNum = FreeFile()
FileOpen(FileNum, "score.txt", OpenMode.Output)
PrintLine(FileNum, lblbestname.Text)
PrintLine(FileNum, lblhighscore.Text)
FileClose(FileNum)
End If
Dim FileNum As Integer
'to fetch the highscore from txt file
FileNum = FreeFile()
FileOpen(FileNum, "score.txt", OpenMode.Input)
lblbestname.Text = LineInput(FileNum)
lblhighscore.Text = LineInput(FileNum)
FileClose(FileNum)
那么,在保存或加载时会出现什么错误呢?在记事本中打开文件,查看保存的内容。如果它是错误的,请在记事本中编辑它,然后将其与代码一起加载,看看是否有效。隔离问题。为什么不使用.net来执行此操作。这是规则的一部分吗?我认为这在拯救中是错误的。我播放了它,我使用了“eddie”这个名字,它保存在.txt文件的第一行,我得到了“11”的分数,它将数字“9”保存在文本文件的第二行。然后我进入文本文件,将数字“9”改为“11”,并加载了数字“11”。然而,当我的分数超过11分时,它又回到了9分。我必须使用visual basic进行项目调试,只要使用调试器就可以看到这个错误。“11”小于“9”,因为“1”按字母顺序排列在“9”之前。因此没有输入If()语句体,也没有保存文件。比较数字,而不是字符串。