用VBS更简单:
vbs代码:
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
批处理代码:
@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=%%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.ini
pause
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步