@echo off&setlocal enabledelayedexpansion
set/p target=请输入要建立的文档：
set/p first=请输入要合并的文档1：
if not exist %first%.csv exit
(for /f "delims=" %%a in (%first%.csv) do (
	set/a n+=1 & echo %%a & if !n! equ 3 goto :out
))>%target%.csv
:out
for /f "delims=" %%a in ('dir/b %target%-*.csv') do (
	more +3 %%a >>%target%.csv
)
pause
复制代码

@echo off & setlocal enabledelayedexpansion

:: 要合并的文件位置
set sourcePath=%~dp0DATAS
:: 目的文件夹
set target=%~dp0DATAS\合并后

:: 确认目的文件夹存在
mkdir DATAS\Target >nul
for /f "tokens=1-3* delims=-" %%a in ('dir /b /a-d "%sourcePath%"^|sort') do (
	set file=%%a-%%b-%%c-%%d
	if not defined %%a-%%b-%%c (
		echo;--------------------------------------------------
		echo;合并!file!...
		set %%a-%%b-%%c=1&set n=0
		for /f "delims=" %%i in (%sourcePath%\!file!) do (
			set /a n+=1
			if !n! leq 3 echo;%%i>>"%target%\%%a-%%b-%%c.%%~xd"
		)
	) else (
		echo;合并!file!
		more +3 "%sourcePath%\!file!">>"%target%\%%a-%%b-%%c.%%~xd"
	)
)

pause & exit /b
复制代码

@echo off
:st1
rem 默认创建文档到当前文件夹
set "ph1=%cd%\"
set /p ph1=请输入创建文档的路径：（如：c:\test\datst）
:st2
set /p ph2=请输入你要合并的文档路径：（如：d:\test\datst）
if not exist %ph2%\ echo;输入错误 & goto st2
set /p new_name=请输入你要创建的文件名：
set "new_name=%ph1%\%new_name%.csv"
md "%ph1%" 2>nul
setlocal enabledelayedexpansion

:start
set /a n+=1
set /p filename%n%=请输入你想要合并的文档%n%：
if not exist "%ph2%\!filename%n%!.csv" (
   if defined filename%n% (
      echo;输入错误 !filename%n%!.csv 文件不存在
      set "filename%n%="
      set/a n-=1
      set /p f=如需重新输入文件名请输入Y 退出按回车。
      if /i "!f!" neq "Y" goto end
      set "f="
   ) else set/a n-=1&goto end
) else (
    if !n! equ 1 (
       copy /b "%ph2%\!filename%n%!.csv" "%new_name%" >nul
    ) else more +3 "%ph2%\!filename%n%!.csv" >> "%new_name%"
)

goto start
:end
echo;%n% 个文件合并到 "%new_name%"
endlocal
set /p f=继续合并新文件输入Y 退出按回车。
if /i "%f%" == "y" set f=&goto st1
复制代码

(for /f %%i in ('findstr /v $ "%new_name%"') do echo.)>>"%new_name%"
复制代码

@echo off
:st1
set "ph1=E:\C"
set "ph2=E:\A"
::要合并的文档来源路径
set /p new_name=请输入你要创建的文件名：
set "new_name=%ph1%\%new_name%.csv"
md "%ph1%" 2>nul
setlocal enabledelayedexpansion
:start
set /a n+=1
set /p filename%n%=请输入你想要合并的文档%n%：
if not exist "%ph2%\!filename%n%!.csv" (
   if defined filename%n% (
      echo;输入错误 !filename%n%!.csv 文件不存在
      set "filename%n%="
      set/a n-=1
      set /p f=如需重新输入文件名请输入Y 退出按回车。
      if /i "!f!" neq "Y" goto end
      set "f="
   ) else set/a n-=1&goto end
) else (
    if !n! equ 1 (
       copy /b "%ph2%\!filename%n%!.csv" "%new_name%" >nul
    ) else more +3 "%ph2%\!filename%n%!.csv" >> "%new_name%"
)
(for /f %%i in ('findstr /v $ "%new_name%"') do echo.)>>"%new_name%"
goto start
:end
echo;%n% 个文件合并到 "%new_name%"
endlocal
set /p f=继续合并新文件输入Y 退出按回车。
if /i "%f%" == "y" set f=&goto st1
复制代码

@echo off
:st1
set "ph1=E:\C"
set "ph2=E:\A"
set "ph3=E:\B"
::要合并的文档来源路径
set /p new_name=请输入你要创建的文件名：
set "new_name=%ph1%\%new_name%.csv"
md "%ph1%" 2>nul
setlocal enabledelayedexpansion
:start
set /a n+=1
set /p filename%n%=请输入你想要合并的文档%n%：
if not exist "%ph2%\!filename%n%!.csv" (
   if not exist "%ph3%\!filename%n%!.csv" (
      if defined filename%n% (
         echo;输入错误 !filename%n%!.csv 文件不存在
         set "filename%n%="
         set/a n-=1
         set /p f=如需重新输入文件名请输入Y 退出按回车。
         if /i "!f!" neq "Y" goto end
         set "f="
      ) else set/a n-=1&goto end
   else (
     if !n! equ 1 (
        copy /b "%ph3%\!filename%n%!.csv" "%new_name%" >nul
     ) else more +3 "%ph3%\!filename%n%!.csv" >> "%new_name%"
) else (
    if !n! equ 1 (
       copy /b "%ph2%\!filename%n%!.csv" "%new_name%" >nul
    ) else more +3 "%ph2%\!filename%n%!.csv" >> "%new_name%"
)
(for /f %%i in ('findstr /v $ "%new_name%"') do echo.)>>"%new_name%"
goto start
:end
echo;%n% 个文件合并到 "%new_name%"
endlocal
set /p f=继续合并新文件输入Y 退出按回车。
if /i "%f%" == "y" set f=&goto st1
复制代码