Question

bat下该如何实现查找指定文件下的字符串并替换?

知道文件路径和名称.就是想把中间的某一个字符串（或字符）替换成另外一个字符串（或字符）.并把文件保存成另外一名字..
原始文件为txt文件...
我是想在bat下实现..即要那段代码..
比如文件路径c:\123.txt 把文本中的“bxn”字符都替换成“trg”.之后把文件另存为123.vbs..路径为c:\123.vbs
这样够详细了吧？？

Answer 1

Dim strFile: strFile = "c:\1.txt"
Dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
Dim objFile: Set objFile = FSO.OpenTextFile(strFile)
Dim strContent: strContent = objFile.Readall
objFile.Close

Dim objRegEx: Set objRegEx = CreateObject("VBScript.RegExp")
objRegEx.Global = True
objRegEx.IgnoreCase = True
objRegEx.Pattern = "bxn"
Dim objNewText: objNewText = objRegEx.Replace(strContent,"trg")

Dim objTextFile: Set objTextFile = FSO.CreateTextFile("c:\op.vbs")
objTextFile.Write objNewText
Wscript.Quit

Answer 2

@echo off&setlocal
set f1="c:\123.txt"
set f2="c:\123.vbs"
set src=bxn
set dst=trg

(for /f "usebackq delims=" %%a in (%f1%) do (
set v=%%a
setlocal enabledelayedexpansion
set v=!v:%src%=%dst%!
echo.!v!
endlocal
))>%f2%

pause
goto :eof