メモ帳への保存について (ID:145630)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ゲームの得点をテキストファイルに保存する処理を行っています。 H_ScoreにはベストスコアのテキストファイルをW_Scoreにはワーストスコアのテキストファイルを読み込んでいます。 ScoreLabelにゲームのスコアが入り、それをベストスコアとワーストスコアで比較し、当てはまるほうの処理を行いたいのですが、上手くいきません。 ベストスコアとワーストスコアの初期値は０です。 ゲームをクリアして、スコアが１００や２００でもワーストスコアに書き込みされます。 どうしてでしょうか？？ 教えてください。 よろしくお願いします。 Const H_Score As String = "HiScore.txt" Const W_Score As String = "WorstScore.txt" Dim filenum As Integer Dim readline As String If H_Score < ScoreLabel.Text Then MsgBox("Best Score!!") filenum = FreeFile() FileOpen(filenum, H_Score, OpenMode.Output) Print(filenum, ScoreLabel.Text) FileClose(filenum) End If If W_Score > ScoreLabel.Text Then MsgBox("Worst Score!!") filenum = FreeFile() FileOpen(filenum, W_Score, OpenMode.Output) Print(filenum, ScoreLabel.Text) FileClose(filenum) End If