批量替换内容关键词为文件名

@Echo Off
SetLocal EnableDelayedExpansion
For %%i In (*.txt) Do (
    For /F "Usebackq Delims=" %%j In ("%%~nxi") Do (
        Set Str=%%j
        Echo !Str:关键词=%%~ni!>>New_%%~nxi
    )
    Del %%~nxi >nul
    Ren New_%%~nxi %%~nxi
)

网上看到一段bat代码。瞬间提高了工作效率，大赞。。