批量修改TXT文件名称为文件中的第一句话或第一行内容

复制以下内容到记事本,另存为"修改.bat"(注意加引号),存好后双击运行即可修改文件夹内所有文件的文件名.

@echo off
setlocal enabledelayedexpansion
call:main
endlocal
echo.
pause>con
goto :eof

:main
for /f "delims=" %%i in ('dir /a:-d /b "*.txt"') do (
call:getfirstline "%%i"
if defined answer ren "%%i" "!answer!.txt"
)
goto :eof

:getfirstline
set "answer="
for /f "delims=" %%i in ('type %1') do (
set "answer=%%i"
goto :eof
)
goto :eof