@echo off >tmp.ini
for /f "tokens=1* delims=:" %%i in ('findstr /n ".*" 文件位置') do (
if "%%j"=="" (echo.>>tmp.ini) else (
echo %%j|find "被替換內(nèi)容">nul(
call set tp=%%jcall echo %%tp:被替換內(nèi)容=替換內(nèi)容%%>>tmp.ini)||(
>>tmp.ini echo %%j)
)
)
copy tmp.ini 文件位置 /y >nul||(attrib -s -a -r -h 文件位置 copy tmp.ini 文件位置 /y >nul)
del tmp.ini
pause
On Error Resume Next
Dim Fso,TxtFl,Str
Set Fso = CreateObject("Scripting.FileSystemObject")
Set TxtFl = Fso.OpenTextFile ("文件位置",1)
Str = Replace ( TxtFl.ReadAll,"被替換內(nèi)容","替換內(nèi)容")
Set TxtFl = Fso.OpenTextFile ("文件位置",2)
TxtFl.Write Str
TxtFl.Close
