Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/file/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
从文本文件vb.net中删除一行_Vb.net_File_Text_Text Files_Line - Fatal编程技术网

从文本文件vb.net中删除一行

从文本文件vb.net中删除一行,vb.net,file,text,text-files,line,Vb.net,File,Text,Text Files,Line,我正在使用vb.net windows窗体应用程序。我想从行列表中删除行 所以,如果列表中存在“文本框中的行”,则要从列表中删除,并保存文件 我有一个包含数字列表的文件list.txt: 123-123 321-231 312-132 如果我在文本框321-231中写入,并且list.txt包含该行,则将其删除。 因此,结果必须是: 123-123 321-132 我尝试使用以下代码: Dim lines() As String Dim outputlines As New List(

我正在使用vb.net windows窗体应用程序。我想从行列表中删除行

所以,如果列表中存在“文本框中的行”,则要从列表中删除,并保存文件

我有一个包含数字列表的文件list.txt:

123-123
321-231
312-132
如果我在文本框321-231中写入,并且list.txt包含该行,则将其删除。 因此,结果必须是:

123-123
321-132
我尝试使用以下代码:

 Dim lines() As String
  Dim outputlines As New List(Of String)
        Dim searchString As String = Textbox1.Text
         lines = IO.File.ReadAllLines("D:\list.txt")
         For Each line As String In lines
             If line.Contains(searchString) = True Then
                 line = ""  'Remove that line and save text file (here is my problem I think )
                 Exit For
             End If
         Next

在处理每个字符串时将其放入
outputlines
列表,除非它与键入的值匹配,如下所示:

Dim lines() As String
Dim outputlines As New List(Of String)
Dim searchString As String = Textbox1.Text
lines = IO.File.ReadAllLines("D:\list.txt")

For Each line As String In lines
    If line.Contains(searchString) = False Then
        outputlines.Add(line)
    End If
Next

现在,
outputlines
匹配与用户键入内容不匹配的每一行,您可以将
outputlines
列表的内容写入文件。

在处理每个字符串时将其放入
outputlines
列表,除非它与键入的值匹配,如下所示:

Dim lines() As String
Dim outputlines As New List(Of String)
Dim searchString As String = Textbox1.Text
lines = IO.File.ReadAllLines("D:\list.txt")

For Each line As String In lines
    If line.Contains(searchString) = False Then
        outputlines.Add(line)
    End If
Next
现在,
outputlines
匹配与用户键入内容不匹配的每一行,您可以将
outputlines
列表的内容写入文件