永发信息网

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

答案:2  悬赏:10  手机版
解决时间 2021-01-04 05:18
  • 提问者网友:眉目添风霜
  • 2021-01-03 17:31
如上
最佳答案
  • 五星知识达人网友:你可爱的野爹
  • 2021-01-03 18:28
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
全部回答
  • 1楼网友:轻熟杀无赦
  • 2021-01-03 18:58
我学会了
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯