[文本处理] 批处理怎样以文本行内容为文件名重命名目录下TXT文本？

@echo off&setlocal enableDelayedExpansion
set "r=a.txt"
for /f "usebackq delims=" %%a in ("%r%") do set/a a+=1&set "#!a!=%%a"
for %%a in (*.txt) do if /i not "%%a"=="%r%" (
        set/a b+=1
        if !b! gtr %a% goto:end
        for %%b in (!b!) do (
                ren "%%a" "!#%%b!.txt"
                set #!b!=
))
:end
(for /f "tokens=1* delims==" %%a in ('set #') do echo/%%b)>"%r%"
复制代码