0

2 人のプレーヤーのスコアをテキスト ファイルに保存する必要があります。次に、サイコロを振ってシミュレートし、サイコロを振った結果を計算して、テキスト ファイル内のプレーヤーのスコアを修正する必要があります。これまでのところ、テキストファイルを作成するために、以下のコードがあります。サイコロを振った後にスコアを更新する方法についての助けをいただければ幸いです。

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim filepath As String = "H:\SomeFileName.txt"
        If Not System.IO.File.Exists(filepath) Then
            System.IO.File.Create(filepath).Dispose()
        End If

        Dim ObjFso
        Dim StrFileName
        Dim ObjFile
        StrFileName = "H:\SomeFileName.txt"
        ObjFso = CreateObject("Scripting.FileSystemObject")
        'Creating a file for writing data
        ObjFile = ObjFso.CreateTextFile(StrFileName)
        'Writing a string into the file
        ObjFile.WriteLine("Player 1")
        ObjFile.WriteLine("Player 2.")
        'Closing the file
        ObjFile.Close()


    End Sub
End Class
4

1 に答える 1

1

これは、VB.NETでStreamWriterオブジェクトを使用してファイルを書き込むVBAの方法です（この質問にVB.NETとしてタグを付けましたよね？）

    Dim filepath As String = "H:\SomeFileName.txt"
    Using sw = new StreamWriter(filepath , false)
       sw.WriteLine("Player 1")
       sw.WriteLine("Player 2.")
    End Using

StreamWriter は、ファイルが存在しない場合はファイルを作成し、最後のAppendフラグに応じてファイル内のコンテンツを上書きまたは追加します

于 2013-03-19T11:19:25.983 に答える