Question

我想用StreamReader和StreamWriter读取和写入相同的文件。我知道在我的代码中我试图打开文件两次，这就是问题所在。谁能给我另一种方法呢？我有点困惑。

至于程序，我想创建一个程序，如果它不存在我创建一个文本。如果它存在，则它将每一行与一个列表框进行比较，并查看列表框中的值是否出现在那里。如果它没有，那么它将添加到文本。

    Dim SR As System.IO.StreamReader
    Dim SW As System.IO.StreamWriter


    SR = New System.IO.StreamReader("D:\temp\" & Cerberus.TextBox1.Text & "_deleted.txt", True)
    SW = New System.IO.StreamWriter("D:\temp\" & Cerberus.TextBox1.Text & "_deleted.txt", True)

    Dim strLine As String


    Do While SR.Peek <> -1
        strLine = SR.ReadLine()
        For i = 0 To Cerberus.ListBox2.Items.Count - 1
            If Cerberus.ListBox2.Items.Item(i).Contains(strLine) = False Then
                SW.WriteLine(Cerberus.ListBox2.Items.Item(i))
            End If
        Next
    Loop

    SR.Close()
    SW.Close()
    SR.Dispose()
    SW.Dispose()
    MsgBox("Duplicates Removed!")

Answer 1

如果您的文件不是很大，请考虑使用File.ReadAllLines和File.WriteAllLines。

Dim path = "D:\temp\" & Cerberus.TextBox1.Text & "_deleted.txt"

Dim lines = File.ReadAllLines(path) 'String() -- holds all the lines in memory
Dim linesToWrite = Cerberus.ListBox2.Items.Cast(Of String).Except(lines)
File.AppendAllLines(path, linesToWrite)

如果文件很大，但您只需要写几行，那么您可以使用File.ReadLines：

Dim lines = File.ReadLines(path) 'IEnumerable(Of String)\
    'holds only a single line in memory at a time
    'but the file remains open until the iteration is finished

Dim linesToWrite = Cerberus.ListBox2.Items.Cast(Of String).Except(lines).ToList
File.AppendAllLines(path, linesToWrite)

如果要写入大量行，请使用this question中的答案。

搜索文本文件以获取范围值

1 个答案: