Question

我的VB.net应用程序ID中的

喜欢覆盖和添加文本文件的新内容我需要使用什么代码？谢谢

Answer 1

将TXT文件中的所有内容读取（即：加载）到您的程序中。

Dim sFullPathToFile As String = Application.StartupPath & "\Sample.txt"

Dim sAllText As String = ""
Using xStreamReader As StreamReader = New StreamReader(sFullPathToFile)
    sAllText = xStreamReader.ReadToEnd
End Using
Dim arNames As String() = Split(sAllText, vbCrLf)

'Just for fun, display the found entries in a ListBox
For iNum As Integer = 0 To UBound(arNames)
    If arNames(iNum) > "" Then lstPeople.Items.Add(arNames(iNum))
Next iNum

由于您想覆盖文件中的所有内容，因此我们现在使用StreamWriter（而不是像以前的StreamReader）。

'Use the True to indicate it is to be appended to existing file
'Or use False to open the file in Overwrite mode
Dim xStreamWRITER As StreamWriter = New StreamWriter(sFullPathToFile, False)

'Use the carriage return character or else each entry is on the same line
xStreamWRITER.Write("I have overwritten everything!" & vbCrLf)
xStreamWRITER.Close()

VB.net：覆盖文本文件中的所有内容

1 个答案: