vb.net清楚文件内容的简单介绍

vb.net怎么强制删除文件

先杀进程再删除文件

成都创新互联-专业网站定制、快速模板网站建设、高性价比市中网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式市中网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖市中地区。费用合理售后完善，10余年实体公司更值得信赖。

Visual Basic code

//杀进程代码

Private Sub KillProcess(ByVal processName As String)

Dim myproc As System.Diagnostics.Process = New System.Diagnostics.Process

Try

For Each thisproc As Process In Process.GetProcessesByName(processName)

If (Not thisproc.CloseMainWindow()) Then

thisproc.Kill()

End If

Next

Catch

End Try

End Sub

vb.net删除文件

Private Sub btnRemovePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovePath.Click

Try

' 先建立目录以便用于后续的删除示范。

If Not Directory.Exists("D:\网易") Then

Directory.CreateDirectory(" D:\网易 \Test1")

Directory.CreateDirectory(" D:\网易 \Test2")

Directory.CreateDirectory(" D:\网易 \Test3")

End If

' 删除子目录 Test1。

Directory.Delete(" D:\网易 \Test1", True)

' 删除子目录 Test2。

Dim myDirectoryInfo As New DirectoryInfo(" D:\网易 \Test2")

myDirectoryInfo.Delete(True)

' 将目录 C:\AlexDirDemo 及其以下的文件和子目录全数删除。

Directory.Delete(" D:\网易 ", True)

Catch ex As Exception

MessageBox.Show(ex.Message)

Exit Sub

End Try

' 启动 Windows 资源管理器。

Process.Start("explorer.exe", "D:\")

End Sub

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

VB.NET里的文件操作

我想你可以这样考虑...

插入\删除\修改都可以基于读,写实现

比较简单的是删除操作(我理解你想要清空内容),直接写入空字符即可

接下来是修改

首先你需要修改的文件以文本形式读到界面(Web)的文本框或者DIV(加入属性 contenteditable="true" )中

修改完成后,再将内容提交保存到刚才打开的文本文件即可

实现了修改,普通插入不再是难事.

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

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

1、打开文件，

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

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

4、将内容再写回文件。

求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