1个回答
2011-03-25
展开全部
VBS好处理一些。
Dim FSO, folder1, f, t
Set FSO = CreateObject("Scripting.FileSystemObject")
Set folder1 = FSO.GetFolder("C:\PATH")
For Each f in folder1.Files
If LCase(FSO.GetExtensionName(f.Name)) = "txt" Then
t = f.OpenAsTextStream(1).ReadAll()
t = Replace(t, "AAA", "BBB")
f.OpenAsTextStream(2).Write(t)
End If
Next
Dim FSO, folder1, f, t
Set FSO = CreateObject("Scripting.FileSystemObject")
Set folder1 = FSO.GetFolder("C:\PATH")
For Each f in folder1.Files
If LCase(FSO.GetExtensionName(f.Name)) = "txt" Then
t = f.OpenAsTextStream(1).ReadAll()
t = Replace(t, "AAA", "BBB")
f.OpenAsTextStream(2).Write(t)
End If
Next
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询