如果想批处理文件，就是一次打开好多文件，都是一样格式的，把他们都一行一个文件显示出来，然后进行批处理操作
比如打开好多TXT文档，然后删除他们中的某一字符串，请知道的给出一段核心代码！！！

批处理无非是用循环一个一个处理。

支持griefforyou

这个用批处理不好实现但用VB就简单了

呵呵，看看，可能是你不想要的

123

Private Sub Command1_Click()
Dim caseIndex%, i%
If Text1 <> "" Then caseIndex = 1
If Text2 <> "" Then caseIndex = 2
If Text3 <> "" Then caseIndex = 3

'保存File1中的内容到List1中
List1.Clear
For i = 0 To File1.ListCount - 1
List1.AddItem File1.List(i)
Next i

'准备改名
ChDrive Drive1.Drive
ChDir Dir1.Path
Select Case caseIndex
Case 1
For i = 0 To File1.ListCount - 1
Name File1.List(i) As Text1 & File1.List(i)
Next i
File1.Refresh
Case 2
For i = 0 To File1.ListCount - 1
Name File1.List(i) As Right(File1.List(i), Len(File1.List(i)) - Val(Text2))
Next i
File1.Refresh
Case 3
For i = 0 To File1.ListCount - 1
Name File1.List(i) As Format(i + 1, String(Val(Text3), "0")) & File1.List(i)
Next i
File1.Refresh
End Select

End Sub

Private Sub Command2_Click()
For i = 0 To File1.ListCount - 1
Name File1.List(i) As List1.List(i)
Next i
File1.Refresh
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

上传的程序不知跑道那了，看代码吧

哦，谢谢，我看看啊