永发信息网

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

答案:2  悬赏:10  手机版
解决时间 2021-01-04 05:18
如上
最佳答案
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
全部回答
我学会了
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
市场出清是什么意思
单选题7、2和9的最小公倍数是A.165B.126C.60D
不用谢用英语怎么说读音
急 急!!大哥大姐们来帮帮忙!!
. I like getting up very early in summer.
美的热水器F50一15A2说明书
青年文摘(绿版)阅读答案
房产经纪人需要去发传单吗?
北及桥村委会地址在哪?我要去那里办事
单选题消防官兵在扑灭黑龙江、内蒙古三起特大
去角质霜的正确使用方法?
单选题现阶段我国社会的主要矛盾是人民日益增
微信寻人启事怎么写
单选题文化的发展受多种因素的影响。决定文化
英语翻译of后面是一个专有符号,在这里打不出
推荐资讯
久保田六行手扶插秧机起不着火咋修理
The child enjoyed up the wooden bricks th
碳元素大约占生物体干重的49%,没有碳就没有
国土资源部华北矿产资源监督检测中心宝石检测
房产中介公司名字大全
在探究“凸透镜成像规律”的实验中,当蜡烛在
如何写好一份创业计划书
全国人民都在________地期盼着举行2008年奥运
下列语句中标点符号使用正确的一项是A.周作人
宁波到花鸟岛怎么去
山不转水转的意思
光波通信有什么特点,应用于哪些方面
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?