2014-09-18 152 views
-2

我有一个包含项目列表的txt文件,每个项目都有自己的行。我有这个循环遍历文本文件的每一行。但是,一旦找到它,我该如何删除该行?如何从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 
+3

可能重复(http://stackoverflow.com/questions/20222681/remove-a-line-from-text-file-vb-net) – Plutonix 2014-09-18 20:17:32

+0

我无法看到该答案中的哪一行被删除。 – OmnivorousOctopus 2014-09-18 20:19:11

+2

@ user3671863 - 然后仔细阅读它,直到你理解它。它完全符合你的需求。 – 2014-09-18 20:20:57

回答

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) 
的[取下文本文件vb.net一行]