vb点虐 删除文本行 vb删除文件代码

VB删除txt文件中的某一行

1、vb无法直接删除文本文件中的某一行。

青河网站制作公司哪家好，找成都创新互联公司！从网页设计、网站建设、微信开发、APP开发、响应式网站建设等网站项目制作，到程序开发，运营维护。成都创新互联公司从2013年开始到现在10年的时间，我们拥有了丰富的建站经验和运维经验，来保证我们的工作的顺利进行。专注于网站建设就选成都创新互联公司。

2、要想做到删除文本文件中的某一行，必须一行行读并进制连接，读要删除的行越过连接，继续连接其它行，直到文件结束。

3、把连接的新串，重新保存为原文件名即可实现所要功能。

求vb点虐 删除文本文件中的第一行和最后一行

方法先按行读取，并进行筛选，然后再写回到文件。

一行一行读取文本文件的例子：

Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim r As New StreamReader(Application.StartupPath "\ABC.txt", System.Text.Encoding.Default) '用StreamReader打开文本文件

Dim s As String

TextBox1.Text = ""

Do While r.Peek -1 '是否到文件尾

s = r.ReadLine '从打开的文件中读取一行内容

TextBox1.Text = TextBox1.Text s vbCrLf '添加到文本框TextBox1.Text的后面并回车

Loop

r.Close() '关闭对象

End Sub

End Class

写文本文件的例子：

Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'创建FileStream对象

Dim w As New FileStream(Application.StartupPath "\ABC.txt", FileMode.Create)

'创建BinaryWriter对象

Dim b_Write As BinaryWriter = New BinaryWriter(w, System.Text.Encoding.UTF8)

b_Write.Write(TextBox1.Text)

b_Write.Close()

w.Close()

End Sub

End Class

vb点虐 中，如何删除指定文本文档中的指定行的内容，文本中每行大约10个字以内，搜遍网络也没找到答案，谢

给你个思路，具体算法自己写吧。

1、打开文件，

2、按行读入文件内容，找到你的指定行

3、对指定行中的内容进行操作；

4、将内容再写回文件。

vb点虐 中，如何删除指定文本文档中的指定行的内容

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开头的文本行。

当前文章：vb点虐 删除文本行 vb删除文件代码
当前网址：http://shouzuofang.com/article/ddjisco.html