Question

您好我有以下代码，它将文本库文件作为.pgp文件添加;所有工作都很好，除了每次我启动这个应用程序时，我将文本附加在一个连续的行中，我需要将文本应用到新的eveytime使用它。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    Dim FILE_NAME As String = "C:\test.pgp"

    If System.IO.File.Exists(FILE_NAME) = True Then
        Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)
        objWriter.Write("saywhat " + (TextBox1.Text) + " case idont know what that means" + (TextBox2.Text))
        objWriter.Close()
        MsgBox("CUSTOM.pgp file successfully appended")
    Else
        MsgBox("File Does Not Exist")
    End If


End Sub

其次在下一行中，如果我添加False vale而不是true，它应该（根据http://www.homeandlearn.co.uk/net/nets8p5.html）创建一个文件，如果dosnt存在，POPY COCK，任何人都可以解释我在这里做错了吗？

Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)

Answer 1

如果 VB.NET ，您可以使用

objWriter.WriteLine()

如果 VBA 在内容之前或之后在文件中插入一行......

objWriter.Write("" & Chr(10) & Chr(13) )

在Windows中，行中的\ r \ n模式会产生换行符......以便其他操作系统正确使用。

附加到新行

1 个答案: