我想用vb.net对文本文件的第一行和最后一行进行删除，该如何写

网友回答

Public Class Form1
Dim lst As New List(Of String)
REM 从文本读取内容
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim s As New StreamReader("D:\123.txt")
Dim arrs As String() = s.ReadToEnd.Split(vbCrLf)
lst = arrs.ToList
s.Close()
End Sub
REM 将内容添加至List(of String),修改时直接先修改list
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For Each x As String In lst
If x = TextBox1.Text Then lst.Remove(x) : Exit Sub
Next
MsgBox("没有这个内容")
End Sub
REM 修改完成后写入文本
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim r As New StreamWriter("D:\123.txt")
r.AutoFlush = True
For Each x As String In lst
r.WriteLine(x)
Next
r.Close()
End Sub
End Class