寫一些嵌套文本到文本文件VB

Question

我有這樣的代碼：

 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）文本belowe ）：

 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() 

更新：

實際輸出：

螺rem ipsum dolor sit amet，consectetur adipiscing objWriter.Write（TextBox1.Text）。 Duis dignissim，lacus vel tincidunt pellentesque，lacus ipsum venenatis libero，commodo consequat。 TEST等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 

Answer 1

最簡單的（但不一定是理想的）的方式來做到這一點，在當前的代碼：

' 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驅動器根目錄的權限問題。直到我將目錄路徑更改到我的home文件夾之前，我有類似的問題，除非我以管理員身份運行VS（您的用戶不太可能這樣做）。這就是說，實際上你可能會問如何從streamwriter中讀取文本框的內容，在這種情況下，你將不得不想出一些方法來確定正確的插入點。但這就是你如何完成你在上面的代碼中描述的具體內容。

UPDATE：

您可能需要使用像這樣指定輸出目錄和文件名。或者，當然，使用SaveFileDialog，並允許用戶指定。

Dim path As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) 
Dim FILE_NAME As String = Path & "\MyNextNewFile.txt"