189 8069 5689
如果只是末尾的空行，直接用Trim方法就可以了
创新互联是一家集网站建设,镇宁企业网站建设,镇宁品牌网站建设,网站定制,镇宁网站建设报价,网络营销,网络优化,镇宁网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
Dim str As String = My.Computer.FileSystem.ReadAllText("d:\text.txt").Trim
'上面的d:\text.txt文件中末尾有很多空行，用了Trim方法后就把后面的空行都去除了
MsgBox(str)'这里可以看到
思路与方法：
1，一行为读取单位，读取并保存到数组。
2，逆序循环，可以获得末尾空白行数。
3，以行为写单位，写入到文件。
为什么非要存成TXT文件呢？最好的办法是将你的这些数据存放在DataSet对象里，然后用DataSet对象的WriteXML方法写入文件。下次读取时，使用该对象的ReadXML方法就可以取回存在文件中的数据了。你想增、删、编辑都可以，很方便的！如果非要生成TXT文件，可以在DataSet对象顺序读取数据，然后再生成想要的TXT文件。你也用不着去追究IO流的操作了。
这么菜的问题，分还挺高啊，循环读文件，每次一行，跟你输入的内容比较一样就记录行号并且终止循环，并且新建个文件写入从开头到第（你记录的行号-1）行的内容和（你记录的行号+1）行以后的内容，把源文件删了，把新文件改名为老文件名，不一样就继续循环读取，到最后读完都没有则提示没有这个内容
就这样，具体程序自己写，如果没耐心那就没办法了 学不来编程了
Dim newfile As New List(Of String)
For Each line As String In System.IO.File.ReadAllLines("TextFile1.txt")
If Not line.StartsWith("3") Then newfile.Add(line)
Next
System.IO.File.WriteAllLines("TextFile1.txt", newfile)
建个集合，用System.IO.File的ReadAllLines读出所有内容，逐个判断，如果是需要的加入集合，如果是要删除的什么都不做，最后用WriteAllLines写入即可。
这里说明一下，上面那个代码是用来删除所有以3开头的文本行。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Computer.FileSystem.WriteAllText(完整路径字符串, 要写入的字符串)
End Sub