[文件操作] 求助批处理移动遇相同向上递增计数

娜美

@echo off
setlocal enabledelayedexpansion
set path1=C:\2
set path2=D:\3
for /r %path1% %%a in (*.txt) do (
if not exist "%path2%\%%~nxa" (move "%%a" "%path2%\") else (
if not exist "%path2%\%%~na(2)%%~xa" (move "%%a" "%path2%\%%~na(2)%%~xa") else (
set n=2
for /f "delims=" %%b in ('dir /b /a-d %path2%\*^|findstr /r /be /c:"%%~na ([0-9][0-9]*)%%~xa"') do (
set "str=%%~nb"
set "m=!str:%%~na (=!"
set "m=!m:)=!"
if !m! gtr !n! set /a n=m
)
set /a n+=1
move "%%a" "%path2%\%%~na(!n!)%%~xa"
)
)
)
endlocal
pause
移动文件时遇相同向上计数递增, 现在是感觉不太科学
新建文本文档(2).txt
新建文本文档(2)(2).txt
新建文本文档(2)(2)(2).txt
新建文本文档(2)(2)(2)(2).txt
复制代码

希望写成像windows那样向上计数递增
新建文本文档.txt
新建文本文档 (2).txt
新建文本文档 (3).txt
新建文本文档 (4).txt
新建文本文档 (5).txt

77七

回复 22# 娜美


   call 中的goto 有什么影响？

http://bbs.bathome.net/redirect.php?goto=findpost&ptid=36991&pid=281494
复制代码

娜美

回复 25# aloha20200628


    漂亮, 正确了 thanks哦

aloha20200628

回复 24# 娜美

漏了一笔清零 5楼代码已订正，再试试吧...

娜美

回复 23# aloha20200628


   嗯你的5楼也对
但是不支持目录下有多个文件夹及子文件夹, 我偿试添加后 /s ('dir /s /b /a-d *.txt *.xlsx *.rar')
如果源目录下有多个文件夹及子文件夹  里面都有这些相同文件名称

新建文本文档 (2).txt
新建文本文档 (3).txt
复制代码

目标文件夹也有这些相同文件名称

新建文本文档 (2).txt
新建文本文档 (3).txt
复制代码

就会发生这种情况

新建文本文档 (2).txt
新建文本文档 (3).txt
新建文本文档 (4).txt
新建文本文档 (32).txt
新建文本文档 (232).txt
新建文本文档 (3232).txt
新建文本文档 (23232).txt
新建文本文档 (323232).txt
新建文本文档 (2323232).txt
新建文本文档 (32323232).txt
复制代码

aloha20200628

回复 21# 娜美

15楼代码的基本逻辑是不处理源文件夹存在形如 abc (2).txt 的文件（即不会分割根名和序号两个字段），故会出现 移动/复制 更名结果例如 abc (2)(...).txt 的文件名；其二是匹配更名规则不保留括号前的空格，与系统默认更名规则查了一个字符。

娜美

回复 15# 77七


    嗯呐是对的, 不过最好能不使用goto跳转方法,  因为要插入脚本, 会影响其它工作

娜美

如果原文件夹有

新建文本文档.txt
新建文本文档 (2).txt

如果目的文件夹有

新建文本文档 (4).txt ...
newswan 发表于 2024-6-3 09:31

    如果源文件夹,  目标文件夹,  都有相同名称, 这种情况5楼和15楼也是正确的,  它会递增命名

娜美

回复  娜美 再试试2楼
smss 发表于 2024-6-3 05:52

报错呢

newswan

如果原文件夹有

新建文本文档.txt
新建文本文档 (2).txt

如果目的文件夹有

新建文本文档 (4).txt
新建文本文档 (5).txt

如何排序

smss

回复 11# 77七 用其它语言习惯了

smss

回复 6# 娜美 再试试2楼

娜美

Ok thanks大家

77七

回复 13# 娜美


   我测试了http://www.bathome.net/redirect.php?goto=findpost&;ptid=36991&pid=173326，是对的，其余未测试。使用代码需要一些基础知识，比如 更改工作路径（cd）、copy改move等。

@echo off
rem "http://www.bathome.net/redirect.php?goto=findpost&ptid=36991&pid=173326"
cd /d "d:\A"
for /r %%i in (*) do (
    set "strName=%%~nxi" & set "n="
    call :CP "%%i"
)
pause & exit

:CP
if not exist "d:\B\%strName%" move "%~1" "d:\B\%strName%" & goto :EOF
if exist "d:\B\%strName%" set /a n+=1
set "strName=%~n1(%n%)%~x1"
goto :CP
复制代码

娜美

回复 5# aloha20200628


   谢谢,  好了