[文本处理] [分享]批处理两两合并文件并取首行内容作为新文件名

@echo off
setlocal enabledelayedexpansion
cd /d "%~dp0"
set "NewFolder=合并结果"
if not exist "%NewFolder%" (
    md "%NewFolder%"
)
for /l %%i in (1001,2,1999) do (
    set "FileA=%%~ni"
    if exist "!FileA:~-3!.txt" (
        set /a FileB=FileA+1
        set /p NewFile=<"!FileA:~-3!.txt"
        copy /b !FileA:~-3!.txt+!FileB:~-3!.txt "%NewFolder%\!NewFile!.txt"
    )
)
复制代码

@echo off
setlocal enabledelayedexpansion
cd /d "%~dp0"
set "NewFolder=合并结果"
if not exist "%NewFolder%" (
    md "%NewFolder%"
)
set "n=0"
for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
    set /a n+=1
    set /a m=n%%2
    if !m! equ 0 (
        set FileMerge="!FileMerge!"+"%%i"
        copy /b !FileMerge! "%NewFolder%\!NewFile!.txt"
    ) else (
        set "FileMerge=%%i"
        set /p NewFile=<"%%i"
    )
)
复制代码

@echo off
setlocal enabledelayedexpansion
cd /d "%~dp0"
set "NewFolder=合并结果"
if not exist "%NewFolder%" md "%NewFolder%"
for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
    if not defined n (
        set /p NewFile=<"%%i"
        set str=%%i
        set n=true
    ) else (
        copy !str!+%%i "%NewFolder%\!NewFile!.txt"
        set n=
    )
)
pause
复制代码