@echo off >tmp.inifor /f "tokens=1* delims=:" %%i in ('findstr /n ".*" 文件位置') do (   if "%%j"=="" (echo.>>tmp.ini) else (      echo %%j|find "被替換內容">nul&&(        call set tp=%%j&call 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.inipause 

On Error Resume Next Dim Fso,TxtFl,StrSet Fso = CreateObject("Scripting.FileSystemObject")Set TxtFl = Fso.OpenTextFile ("文件位置",1)Str = Replace ( TxtFl.ReadAll,"被替換內容","替換內容")Set TxtFl = Fso.OpenTextFile ("文件位置",2)TxtFl.Write Str TxtFl.Close