[已解决]批处理怎样把多个文件夹中相同文本名称合并后生成在新文件夹中 - BAT求助&讨论 - 批处理之家 BAT,CMD,批处理,PowerShell,VBS,DOS

Rank: 1

帖子: 43
积分: 59
技术: 0
捐助: 0
注册时间: 2021-8-20

12楼 跳转到 »

发表于 2021-9-6 15:12 | 只看该作者

回复 8# Batcher
@echo off
set "SrcFolder=D:\数据\周转"
set "DstFolder=D:\数据\周转\合并"

谢谢老师出手帮助！也成功合并。

Rank: 1

帖子: 43
积分: 59
技术: 0
捐助: 0
注册时间: 2021-8-20

11楼

发表于 2021-9-6 14:41 | 只看该作者

合并成功，谢谢老师的帮助！

Rank: 1

帖子: 43
积分: 59
技术: 0
捐助: 0
注册时间: 2021-8-20

10楼

发表于 2021-9-6 14:32 | 只看该作者

本帖最后由 PCL0769 于 2021-9-6 14:52 编辑

谢谢！
可能是自制时出错，重新复制后运行。正在生成中......

Rank: 7 Rank: 7 Rank: 7

帖子: 2635
积分: 3834
技术: 389
捐助: 0
注册时间: 2016-2-20

9楼

发表于 2021-9-6 14:28 | 只看该作者

代码要放在D:\数据\周转下

Batcher

管理员

Rank: 12

帖子: 14857
积分: 46053
技术: 854
捐助: 745
注册时间: 2008-6-9

8楼

发表于 2021-9-6 14:28 | 只看该作者

回复 1# PCL0769

@echo off
set "SrcFolder=D:\数据\周转"
set "DstFolder=D:\数据\合并"
if not exist "%SrcFolder%" (
    goto :eof
)
if not exist "%DstFolder%" (
    md "%DstFolder%"
)
for /f "delims=" %%i in ('dir /b /ad "%SrcFolder%"') do (
    for /f "delims=" %%j in ('dir /b /a-d "%SrcFolder%\%%i\*.txt" 2^>nul') do (
        >"%DstFolder%\%%j" type "%SrcFolder%\%%i\%%j"
        for /f "delims=" %%k in ('dir /b /ad "%SrcFolder%" ^| findstr /v /b /e "%%i"') do (
            if exist "%SrcFolder%\%%k\%%j" (
                >>"%DstFolder%\%%j" type "%SrcFolder%\%%k\%%j"
            )
        )
        >>"%DstFolder%\%%j" echo,
    )
    goto :eof
)
复制代码

1 评分人数

PCL0769: 谢谢老师的帮助！技术 + 1

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Rank: 7 Rank: 7 Rank: 7

帖子: 2635
积分: 3834
技术: 389
捐助: 0
注册时间: 2016-2-20

7楼

发表于 2021-9-6 14:26 | 只看该作者

回复 6# PCL0769
应当是复制代码时出现了问题，重新复制代码再试试

Rank: 1

帖子: 43
积分: 59
技术: 0
捐助: 0
注册时间: 2021-8-20

6楼

发表于 2021-9-6 14:21 | 只看该作者

D:\abc
有文件夹，里面有个%~nxa 0KB 没看到后缀是什么

Rank: 1

帖子: 43
积分: 59
技术: 0
捐助: 0
注册时间: 2021-8-20

5楼

发表于 2021-9-6 14:17 | 只看该作者

D:\数据\周转
文件夹在周转中，里面有202101 202102 202103.....文件夹，然后每个文件夹中有30多个记事本，1.TXT 2.TXT 3.TXT.......

将同名记事本合并后在周转文件夹中生成一个合并文件夹，合并文件夹中还是按原记事本名1.TXT 2.TXT 3.TXT.......保存

Rank: 7 Rank: 7 Rank: 7

帖子: 2635
积分: 3834
技术: 389
捐助: 0
注册时间: 2016-2-20

4楼

发表于 2021-9-6 14:15 | 只看该作者

本帖最后由 qixiaobin0715 于 2021-9-6 14:17 编辑

回复 3# PCL0769
D盘中abc文件夹中有无合并文件？
不要先顾着评分，解决问题才是关键。

Rank: 1

帖子: 43
积分: 59
技术: 0
捐助: 0
注册时间: 2021-8-20

3楼

发表于 2021-9-6 14:04 | 只看该作者

本帖最后由 PCL0769 于 2021-9-6 14:05 编辑

回复 PCL0769
假设每个子文件夹中的文件名一样多，文件名都一样。
批处理文件放在与子文件夹平行的目录 ...
qixiaobin0715 发表于 2021-9-6 13:53

老师好！谢谢！
出现下面提示：
，
系统找不到指定的文件。
系统找不到指定的文件。
系统找不到指定的文件。
系统找不到指定的文件。
系统找不到指定的文件。
系统找不到指定的文件。
系统找不到指定的文件。
系统找不到指定的文件。
系统找不到指定的文件。
系统找不到指定的文件。
系统找不到指定的文件。
系统找不到指定的文件。
请按任意键继续. . .

传不图片及附件
D:\数据\周转
文件夹在周转中，里面有202101 202102 202103.....文件夹，然后每个文件夹中有30多个记事本，1.TXT 2.TXT 3.TXT.......

Rank: 7 Rank: 7 Rank: 7

帖子: 2635
积分: 3834
技术: 389
捐助: 0
注册时间: 2016-2-20

2楼

发表于 2021-9-6 13:53 | 只看该作者

回复 1# PCL0769
假设每个子文件夹中的文件名一样多，文件名都一样。
批处理文件放在与子文件夹平行的目录中。

@echo off
set "Folder=D:\abc"
md "%Folder%"
for %%i in (202101\*.txt) do (
    (for /d %%a in (*) do (
        type "%%a\%%~nxi"
    ))>"%Folder%\%%~nxi"
)
pause
复制代码

1 评分人数

PCL0769: 多谢！技术 + 1