2014-09-18 112 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一行]