vb中如何将一个文本文件里面的部分内容进行删除？
必须再详细说清楚你dat文件的内部具体格式：
如文件中存储的行数、每行存储几个数据、数据间怎么间隔的、行数是否固定还是行数不定等等，甚至还要做一个数据的样式表并一并贴出来。
否则光靠你自己自以为说的很清楚的几句话（如“记录号总共为5”、“长度也为5”等等、到底是什么东东？）可能让想帮你的人仍然不懂你在说什么。
-----------------------------------------------------------
【给你个建议】
要做你这个事一般采用这样的方法思路：从dat文件中读出所有的数据并存入一个变量中、然后再将这个变量中的数据逐行处理成你需要的格式、同时存入另一个变量中、最后将处理好的这个变量中的数据重新写入你那个dat文件中（是重写而不是添加或修改）。
怎么删除文件中的部分内容?VB实现.
因为每条记录长度不一，故建议先把文本内容读取到内存数组，然后在程序中对内存数组进行修改、删除及增加操作，单击保存后再一次性保存数组至文件。
这样的好处是：减少频繁读取文件的时间，降低程序设计时在不规则的文本中定位的工作量。
VB里面通过文件名删除指定文件
在窗体上添加一个FILELISTBOX控件，设置为不可见
Private Sub Form_Load()
On Error GoTo MyError '设置错误陷阱
Dim MyPath As String '定义要删除文件目录路径
Dim MyPattern As String '定义要删除文件类型
Dim YesterdayName, TodayName As String '定义昨天及今天的文件名
MyPath = '"D:\TempPath"
MyPattern = "*.TXT" '含日期的文件名，比方说YYYY-MM-DD.TXT
File1.Path = MyPath
File1.Pattern = MyPattern
YesterdayName = Format(DateAdd("d", -1, Date), "YYYY-MM-DD") + ".TXT" '含昨天日期的文件名
TodayName = Format(Date$, "YYYY-MM-DD") + ".TXT" '含今天日期的文件名
If File1.ListCount > 0 Then
For i% = 0 To File1.ListCount - 1
File1.ListIndex = i%
If File1.FileName <> CurrentName And File1.FileName <> CurrentName Then '如果文件名不等于今天或者昨天的文件名，则删除
Kill File1.Path + "\" + File1.FileName
End If
Next i%
End If
MyError:
File1.Refresh '全部删除完毕以后，刷新列表
End Sub
求批处理命令去掉文件名中的一部分？
@echo off
setlocal enabledelayedexpansion
for %%a in (*.rmvb) do (
set name=%%a
set name_=!name:[电影天堂dy2018]=!
ren !name! !name_!
)
pause