我有一个包含名单列表的文件:
比尔
杰克
山姆
莎拉
我希望能够删除特定的行,所以如果我要求删除" Jack"那么新的名单就会变成:
比尔
山姆
萨拉
到目前为止我得到了什么:
Imports System.IO
Dim filename As String = "C:\names.txt"
Dim StreamReader As New StreamReader(filename)
Dim LineCount As Integer = File.ReadAllLines(filename).Length
For i = 0 to LineCount - 1
If StreamReader.ReadLine() = "Jack" Then
'Remove This Line
End If
Next
答案 0 :(得分:0)
你可以把它归结为一个真正的代码行(不计算声明文件名变量,因为我可以很容易地对其进行硬编码):
Dim filename As String = "C:\names.txt"
File.WriteAllLines(filename, File.ReadAllLines(filename).Where(Function(l) l <> "Jack"))