0

我有这个代码：

      Dim FILE_NAME As String = "C:\filename.txt"

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

            objWriter.Write(TextBox1.Text)
            objWriter.Close()

但我想做这样的事情（注意下面文本中的objWriter.Write(TextBox.Text)）：

      Dim FILE_NAME As String = "C:\filename.txt"

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

            objWriter.Write("Lorem ipsum dolor sit amet, consectetur adipiscing objWriter.Write(TextBox1.Text). 
                             Duis dignissim, lacus vel tincidunt pellentesque, lacus ipsum venenatis libero, 
                             faucibus iaculis lectus diam id libero. Mauris interdum augue id lacus
                             commodo consequat. objWriter.Write(TextBox2.Text) et ligula sed sapien")

            objWriter.Close()

更新：

实际输出：

Lorem ipsum dolor sit amet，consectetur adipiscing objWriter.Write(TextBox1.Text)。Duis dignissim, lacus vel tincidunt pellentesque, lacus ipsum venenatis libero, commodo consequat。TEST et ligula sed sapien

想要的输出（我会先走）：

Lorem ipsum dolor sit amet, 
consectetur adipiscing objWriter.
Write(TextBox1.Text). 
Duis dignissim, lacus 
vel tincidunt pellentesque,
 lacus ipsum venenatis libero, 
commodo consequat. TEST et ligula sed sapien
4

1 回答 1

2

在您当前的代码中，最简单（但不一定理想）的方法是：

' UPDATED: Use Environment.NewLine to insert new line breaks:

Dim output As String = "" & _
        "Lorem ipsum dolor sit amet, consectetur adipiscing " & _
        Environment.NewLine & _
        TextBox1.Text & " " & _
        Environment.NewLine & _
        "Duis dignissim, lacus vel tincidunt pellentesque, lacus ipsum venenatis libero, " & _
        "commodo consequat. " & _
        Environment.NewLine & _
        TextBox2.Text + " " & _
        Environment.NewLine & _
        "et ligula sed sapien"

'You are trying to write to root of C here. May require elevated privileges.
' Try writing to your user directory, or documents folder. 
Dim FILE_NAME As String = "C:\filename.txt"
Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
objWriter.Write(output)
objWriter.Close()

请注意，尝试将文件直接写入 C 驱动器的根目录时可能会遇到权限问题。在我将目录路径更改为我的主文件夹之前，我在这段代码中遇到了类似的问题，除非我以管理员身份运行 VS（您的用户不太可能这样做）。

也就是说，您实际上可能会问如何将文本框的内容插入到从流写入器读取的内容中，在这种情况下，您必须想出一些方法来确定正确的插入点。但这就是您如何具体完成您在上面的代码中描述的内容。

更新：

您可能希望使用 THIS 之类的东西来指定输出目录和文件名。或者，当然，使用 SaveFileDialog，并允许用户指定。

Dim path As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
Dim FILE_NAME As String = Path & "\MyNextNewFile.txt"
于 2012-10-28T14:24:25.897 回答