从文本文件vb.net中删除一行
我正在使用vb.net windows窗体应用程序。我想从行列表中删除行 所以,如果列表中存在“文本框中的行”,则要从列表中删除,并保存文件 我有一个包含数字列表的文件list.txt:从文本文件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(
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
列表的内容写入文件