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

本文提供了一个批量修改所有文件内容的脚本指南,包括批处理代码和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文件目录,双击执行。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值