WYXpclOK

回复 15# 回家路上


    没事，大家一起来看看

WYXpclOK

不要沉，顶上去

依山居

http://www.bathome.net/viewthread.php?tid=38306&extra=

terse

@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
复制代码

WYXpclOK

回复 19# terse


    你这合并后文档内容是接着第一个文档的最后一行加的，我需要换行接着加的，看附件
链接: http://pan.baidu.com/s/1sjQTrjf 密码: 1bc6

terse

那你在代码28行下面加一行试试

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

WYXpclOK

回复 21# terse


    非常感谢，你的完全符合我的要求

WYXpclOK

回复 21# terse

最后结果

@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
复制代码

追问：如果在要合并的文档来源路径那里追加一个路径E:\B应该怎样写，就是在E:\A和E:\B里都去找一下要合并的文档

terse

回复 23# WYXpclOK
这样？

@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
复制代码

WYXpclOK

回复 24# terse


    你这样写是不行的，好像要用到for命令，可是我还不会用

WYXpclOK

有人知道吗

DAIC

回复 25# WYXpclOK


    请举例说明24楼代码哪里不行