批量修改多个文件内容的脚本

最新推荐文章于 2024-09-04 17:04:52 发布

iteye_10302

最新推荐文章于 2024-09-04 17:04:52 发布

阅读量525

点赞数

CC 4.0 BY-SA版权

文章标签： shell

本文链接：https://blog.youkuaiyun.com/iteye_10302/article/details/82268580

本文提供了一个批量修改所有文件内容的脚本指南，包括批处理代码和VBS方案，适用于替换文件中特定文本内容。操作前请确保备份文件以避免数据丢失。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

批量修改多个文件内容的脚本
2010年07月30日
　　如果你是需要修改所有文件的内容，则将*.txt直接替换为*即可。
　　把保存后的bat或vbs文件放在需要执行的目录的根目录下，执行后将替换掉当前目录及其子目录下文件的所有需要替换的内容。
　　以下为批处理代码，保存为bat文件，双击执行，使用前备份文件。
　　@echo off
　　for /f "delims=" %%i in ('dir /s/b *.txt') do (
　　for /f "delims=" %%a in ('type "%%~fi"') do (
　　set "foo=%%a"
　　call,set foo=%%foo:替换前内容=替换后内容%%
　　call,echo/%%foo%%>>"%%~fi._"
　　)
　　move "%%~fi._" "%%~fi"
　　)
　　exit
　　另给出VBS方案：
　　Set WshShell = CreateObject("Wscript.Shell")
　　WshShell.Run "cmd /c dir /s/b *.txt > list.txt",vbHide
　　Wscript.Sleep 1000
　　sFile = "list.txt"
　　Set objFSO = CreateObject("Scripting.FileSystemObject")
　　Set oFile = objFSO.OpenTextFile(sFile,1)
　　Do While Not oFile.AtEndOfStream
　　strLine = oFile.ReadLine
　　If Len(strLine) > 0 Then
　　Set File = objFSO.OpenTextFile(strLine, 1)
　　aryLines = File.ReadAll
　　File.Close
　　aryLines = Replace(aryLines, "替换前内容", "替换后内容")
　　Set File = objFSO.OpenTextFile(strLine, 2)
　　File.Write aryLines
　　File.Close
　　End If
　　Loop
　　oFile.Close
　　objFSO.DeleteFile sFile
　　Set objFSO = Nothing
　　保存为VBS文件，放到TXT文件目录，双击执行。