vb.net文件删除行,vbs删除文件

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

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

相关问答

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

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

1、打开文件，

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

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

4、将内容再写回文件。

Q2: 求vb.net删除文本文件中的第一行和最后一行

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

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

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