批处理BAT,VBS,文本内容替换,寻求帮助
发布网友
发布时间：2024-10-23 21:00
共1个回答
热心网友
时间：2024-11-06 13:16
Dim Fso,Temp,File_Temp,File_Open,File_List,Folder_Name
Set Fso = CreateObject("ScriptIng.FileSystemObject") '//申请文件管理对像
Folder_Name = "F:\画镜\123" '//设置文件夹路径
For Each Temp In Fso.GetFolder(Folder_Name).Files '//历遍文件夹所有文件
If Lcase(Fso.GetExtensionName(Temp.Path)) = "ini" Then '//判断文件的扩展名
File_List = File_List & Temp.Path & vbCrlf '//加入处理列表
End If
Next
For Each Temp In Split(File_List,vbCrlf) '//历遍处理列表
If Temp <> "" then '//防错处理
Set File_Open = Fso.OpenTextFile(Temp,1) '//以读形式打开文件
File_Temp = File_Open.readall '//读取全部内容
File_Open.Close '//关闭文件
File_Temp = Replace(File_Temp,"数量=1","数量=0") '//替换字符串
File_Temp = Replace(File_Temp,"颜色=1","颜色=0")
File_Temp = Replace(File_Temp,"运费=1","运费=0")
Set File_Open = Fso.OpenTextFile(Temp,2) '//以写形式打开文件
File_Open.WriteLIne File_Temp '//写入替换内容
File_Open.Close '//关闭文件
End If
Next
Set Fso = NothIng '//释放资源
Msgbox "处理项目:" & vbcrlf & vbcrlf & File_List,,"提示" '//提示完成
