添加新行并保存在VB.Net中

Question

按照下面的示例，我要相应地添加新行，以及我在四个“文本框”框中写的内容（用于答案）。

在文本文件（答案）中，第一个单词将始终为空白，并且只有在我们开始编写单词之后。

     

按照下面的示例，我要相应地添加新行，以及我在四个“文本框”框中写的内容（用于答案）。

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = System.IO.File.ReadAllText(My.Application.Info.DirectoryPath + ("\Data\Question.dat"))
        TextBox2.Text = System.IO.File.ReadAllText(My.Application.Info.DirectoryPath + ("\Data\Answer.dat"))
    End Sub
End Class

Answer 1

您的问题尚不清楚，但是如果您需要在输入文件的内容之前添加一个空白行，则可以使用以下内容：

textbox1.text=vbcrlf & System.IO.File.ReadAllText(My.Application.Info.DirectoryPath + ("\Data\Question.dat")) 

Answer 2

在这种情况下，有两种不同的实现方式：

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Output As String = TextBox1.Text
        My.Computer.FileSystem.WriteAllText("c:/Junk/Textfile1.txt", vbCrLf & Output, False)
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim OutputFile2 As System.IO.StreamWriter
        OutputFile2 = My.Computer.FileSystem.OpenTextFileWriter("c:/Junk/Textfile2.txt", True)
        OutputFile2.WriteLine()
        OutputFile2.WriteLine(TextBox1.Text)
        OutputFile2.Close()
    End Sub

如果您不想先将

Textbox1.text替换为文本框，则可以将其替换为文件位置/名称。我只是这样做，因为这看起来像您当前正在做的事情。