Question

我有一个包含项目列表的txt文件，每个项目都有自己的行。我有这个循环遍历文本文件的每一行。但是一旦找到它，我该如何删除该线？

Dim item As String = lbxPrimary.SelectedItem
    For Each Line As String In File.ReadAllLines(storepath & "Primary Items.txt")
        If Line.Contains(item) = True Then
                'Delete line here
            Exit For
        End If
    Next

Answer 1

您可以将content()转换为List(Of String)，以使用其方法List(Of T).Remove删除与指定参数匹配的第一个匹配项。

Dim content() As String = File.ReadAllLines(storepath & "Primary Items.txt")
Dim list As List(Of String) = content.ToList
list.Remove(lbxPrimary.SelectedItem)
File.WriteAllLines(storepath & "Primary Items.txt", list)

如何从txt文件中删除一行文本

1 个答案: