0

そのコードを手伝ってもらえますか?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x As String = "C:\Users\Andy\Documents\Visual Studio 2008\Projects\minecraft srv\"

    For Each app As Process In Process.GetProcesses
        If app.ProcessName = "notepad" Then
            app.Kill()
        End If
    Next

    Dim result As String
    Dim servprop() As String
    servprop = System.IO.Directory.GetFiles(x, "server.*")

    For Each file In servprop
        result = Path.GetFileName(file)
    Next

    Dim z As String = "C:\Users\Andy\Documents\Visual Studio 2008\Projects\minecraft srv\" & result.ToString
    Dim t As StreamWriter = New StreamWriter(z)
    t.WriteLine(TextBox1.Text.ToString)
    t.Close()
End Sub

だから...メモ帳が開いているかどうかを見つけて殺すボタン（button1）を手に入れました。次に、server.properties が見つかった場合、「x」の場所で「server.Properties」を検索し、「結果」が彼の名前 (サーバー) を取得します。「z」は、ストリームライターが textbox1 からテキストを書き込む必要があるファイルの場所です。

そして、それは機能しません... streamwirter は server.properties に書き込みません...なぜですか? 言及：私はただの子供です：Dと私は自分でビジュアルベーシックを学ぼうとしています.

4

1 に答える 1

0

「server.properties」というファイルが 1 つしかない場合は、このファイルを検索するすべてのコードを削除して、直接記述することができます。

Dim z As String
z = System.IO.Path.Combine(x, "server.properties")

Using t = New StreamWriter(z)
    t.WriteLine(TextBox1.Text.ToString)
    t.Flush()
End Using

エラーに関しては、書き込みコードを適切な using ステートメントでカプセル化すると、完全なクリーンアップが保証されます。また、 Flush()への呼び出しを追加することはおそらく必要ありませんが、問題はありません。

于 2013-07-07T14:25:25.880 に答える