@echo off >tmp.ini
for /f "tokens=1* delims=:" %%i in ('findstr /n ".*" 文件位置') do (
   if "%%j"=="" (echo.>>tmp.ini) else (
      echo %%j|find "被替換內容">nul(
        call set tp=%%jcall echo %%tp:被替換內容=替換內容%%>>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,"被替換內容","替換內容")
Set TxtFl = Fso.OpenTextFile ("文件位置",2)
TxtFl.Write Str 
TxtFl.Close