寫入文件時保留現有文本

Question

在Tester.txt中，它只是表示「你好」。

我現在運行這個命令：

Sub Main() 
    Dim fileName As String 
    Dim aFileStream As FileStream 
    Dim aWriter As StreamWriter 
    fileName = "...\Tester.txt" 
    Try 
     aFileStream = New FileStream(fileName, FileMode.OpenOrCreate) 
     aWriter = New StreamWriter(aFileStream) 
     aWriter.WriteLine("World") 
    Catch ex As Exception 
     MessageBox.Show("found this {0}", ex.Message) 
    Finally 
     If aWriter IsNot Nothing Then 
      aWriter.Close() 
     End If 
     If aFileStream IsNot Nothing Then 
      aFileStream.Close() 
     End If 
    End Try 

End Sub 

現在「你好」已與「世界」覆蓋。

我想保留在文件中現有的文本，所以我想我可以閱讀的文本到一個變量中，然後再寫入新的東西：

Sub Main() 
    Dim fileName As String 
    Dim aFileStream As FileStream 
    Dim aWriter As StreamWriter 
    Dim aReader As StreamReader 
    fileName = "...\Tester.txt" 
    Try 
     aFileStream = New FileStream(fileName, FileMode.OpenOrCreate) 

     aReader = New StreamReader(aFileStream) 
     Dim myContent As String = aReader.ReadToEnd() 

     aWriter = New StreamWriter(aFileStream) 
     aWriter.WriteLine("World") 

    Catch ex As Exception 
     MessageBox.Show("found this {0}", ex.Message) 
    Finally 
     If aWriter IsNot Nothing Then 
      aWriter.Close() 
     End If 
     If aReader IsNot Nothing Then 
      aReader.Close() 
     End If 
     If aFileStream IsNot Nothing Then 
      aFileStream.Close() 
     End If 
    End Try 

End Sub 

這是保留的標準方法文件已經在文件中？
我可以保留現有信息而不使用StreamReader的實例嗎？

Answer 1

當然 - 你在找什麼叫做Append。例如，如果您更喜歡共享呼叫（不創建任何類的實例），則可以使用AppendAllText。或通過StreamWriter，通過this constructor。對於你的情況，你可以替換這片：與這一個

Dim fileName As String 
Dim aFileStream As FileStream 
Dim aWriter As StreamWriter 
fileName = "...\Tester.txt" 
Try 
    aFileStream = New FileStream(fileName, FileMode.OpenOrCreate) 
    aWriter = New StreamWriter(aFileStream) 
    aWriter.WriteLine("World") 

（請注意，我也壓縮你的代碼行數更少具有相同的結果）：

Dim aWriter As StreamWriter 
Try 
    aWriter = New StreamWriter("...\Tester.txt", True) 
    aWriter.WriteLine("World") 

而且World將被追加到文件的結尾。如果該文件不存在，它將被創建，所以它已經包含幕後的FileMode.OpenOrCreate。

使用AppendAllText，它變得更短：

IO.File.AppendAllText("...\Tester.txt", "World") 

作爲一個側面說明，你可以不用在你Finally塊稱之爲：

If aReader IsNot Nothing Then 
    aReader.Close() 
End If 

如果使用Using clause：

Using aWriter As New StreamWriter("...\Tester.txt", True) 
    aWriter.WriteLine("World") 
End Using 

你仍然可以保留Try/Catch子句，但更好地更改它以捕獲文件特定的異常。例如，您可以使用IOException。

Answer 2

一個正常的方式到達結束將是使用尋找。

aFileStream.Seek(0,SeekOrigin.End) 

Answer 3

爲什麼你需要使用流？你不能使用Io.File函數嗎？ 他們真的很容易使用。 一些例子：

實施例1：

IO.File.WriteAllText("Text.txt", "Hello") 'This overwrite file content 

實施例2：

IO.File.AppendAllText("Text.txt", " World") 'This append file content 

實施例3：

Dim FileContent As String = IO.File.ReadAllText("Test.txt") 
FileContent &= vbNewLine & "Hi!" 
Io.File.WriteAllText("Text2.txt", FileContent) 

你可以事件讀/寫的字節與等效WriteAllBytes， ReadAllBytes ..

所有的功能都可以在這裏找到： File Methods