[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

【问题】
在一个文件夹里,批处理合并001.txt + 002.txt 合并后的新文件重命名为001.txt里的第一行文字,合并003.txt + 004.txt 合并后的新文件重命名为003.txt里的第一行文字,合并005.txt + 006.txt 合并后的新文件重命名为005.txt里的第一行文字......
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

test1.bat
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. cd /d "%~dp0"
  4. set "NewFolder=合并结果"
  5. if not exist "%NewFolder%" (
  6.     md "%NewFolder%"
  7. )
  8. for /l %%i in (1001,2,1999) do (
  9.     set "FileA=%%~ni"
  10.     if exist "!FileA:~-3!.txt" (
  11.         set /a FileB=FileA+1
  12.         set /p NewFile=<"!FileA:~-3!.txt"
  13.         copy /b !FileA:~-3!.txt+!FileB:~-3!.txt "%NewFolder%\!NewFile!.txt"
  14.     )
  15. )
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

test2.bat
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. cd /d "%~dp0"
  4. set "NewFolder=合并结果"
  5. if not exist "%NewFolder%" (
  6.     md "%NewFolder%"
  7. )
  8. set "n=0"
  9. for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
  10.     set /a n+=1
  11.     set /a m=n%%2
  12.     if !m! equ 0 (
  13.         set FileMerge="!FileMerge!"+"%%i"
  14.         copy /b !FileMerge! "%NewFolder%\!NewFile!.txt"
  15.     ) else (
  16.         set "FileMerge=%%i"
  17.         set /p NewFile=<"%%i"
  18.     )
  19. )
复制代码
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

  1. @echo off
  2. setlocal enabledelayedexpansion
  3. cd /d "%~dp0"
  4. set "NewFolder=合并结果"
  5. if not exist "%NewFolder%" md "%NewFolder%"
  6. for /f "delims=" %%i in ('dir /b /a-d *.txt') do (
  7.     if not defined n (
  8.         set /p NewFile=<"%%i"
  9.         set str=%%i
  10.         set n=true
  11.     ) else (
  12.         copy !str!+%%i "%NewFolder%\!NewFile!.txt"
  13.         set n=
  14.     )
  15. )
  16. pause
复制代码

TOP

蹭个热度。通常情况下,如果路径中含有空格的话,执行dos命令时,含有空格的路径应当使用双引号。有2个命令可以例外,那就是标记路径的命令pushd和目录跳转命令cd,当它们后面含有空格路径时,可不加双引号直接使用。

TOP

回复 5# qixiaobin0715


    老版本的系统里面不加双引号会出错
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

回复 6# Batcher
win7 win10可以,没有xp系统。

TOP

回复 7# qixiaobin0715


    除了PC系统,还有一些老的Server版本的系统也是需要加双引号的。
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表