@echo off&setlocal enabledelayedexpansion
for %%a in (*_1.txt) do (
  set "fn=%%~na"
  set "fn=!fn:~,-1!"
  if exist "!fn!2.txt" (
  	for /f "delims=" %%b in ('type "%%a"') do (
  	set /p str=
  	echo %%b !str!
  	)
  )<"!fn!2.txt">"!fn!1+2.txt"
)
复制代码

@echo off
for %%i in (*_1.txt) do (
for /f "delims=_" %%j in ("%%~ni") do set fstr=%%j
setlocal enabledelayedexpansion
for %%a in (!fstr!_*.txt) do set "fn=!fn! "%%a""
echo 处理!fstr!_*.txt。。。。。
call :sc!fn!
endlocal
)
ren *.$$$ *.txt
exit /b
:sc
set n=10000
for /f "delims=" %%a in (%~1) do (
set /a n+=1
for %%b in (!n!) do set "#%%b=!#%%b! %%a"
)
if not "%~2"=="" (
  shift /1
) else (
  (for /f "tokens=1* delims== " %%c in ('set #') do echo %%d)>all_!fstr!.$$$
  goto :eof
)
goto sc
复制代码

@echo off
setlocal enabledelayedexpansion
for %%a in (*.txt) do set "fn=!fn! "%%a""
call :sc!fn!
exit /b
:sc
set n=10000
for /f "delims=" %%a in (%~1) do (
set /a n+=1
for %%b in (!n!) do set "#%%b=!#%%b! %%a"
)
if not "%~2"=="" (
  shift /1
) else (
  (for /f "tokens=1* delims== " %%c in ('set #') do echo,%%d)>all_.txt
  goto :eof
)
goto sc
复制代码

paste.exe -d " " *.txt >__all.txt
复制代码