批处理删除重复文件咋写？大小一样,名字相似这种

allen2023

如题，删除掉 重复存在的 带（1）的文件，批处理咋写
注意:有的带了（1），但并不重复，不要删除。

77七

1. del "*(1).pdf"

复制代码

allen2023

回复 2# 77七

一楼表达不严谨，抱歉。

个别 "*(1).pdf"，是独一份的，还不能删除。

豆包生成了个，80那里不会改。

1. 
   
2. for /r "%dir%" %%F in (*.*) do (
   
3.     set "file=%%~nF"
   
4.     set "size=%%~zF"
   
5.     rem 检查是否已经处理过这个大小的文件
   
6.     if defined sizes[!size!] (
   
7.         rem 检查文件名相似度
   
8.         set "similar=false"
   
9.         for %%A in (!sizes[!size!]!) do (
   
10.             if "!file!"=="%%~nA" (
    
11.                 set "similar=true"
    
12.                 goto :skip
    
13.             ) else (
    
14.                 call :isSimilar "!file!" "%%~nA"
    
15.                 if!similarity! geq 80 (
    
16.                     set "similar=true"
    
17.                     goto :skip
    
18.                 )
    
19.             )
    
20.         )
    
21.         if!similar! equ false (
    
22.             set "sizes[!size!]=!sizes[!size!]! %%F"
    
23.         )
    
24.     ) else (
    
25.         set "sizes[!size!]=%%F"
    
26.     )
    
27.     :skip
    
28. )
    
29. 
    
30. rem 遍历所有大小分组，删除除第一个文件外的其他文件
    
31. for /f "tokens=2 delims==" %%A in ('set sizes[') do (
    
32.     set "count=0"
    
33.     for %%B in (%%A) do (
    
34.         if!count! equ 0 (
    
35.             set "firstFile=%%B"
    
36.         ) else (
    
37.             del "%%B"
    
38.         )
    
39.         set /a count+=1
    
40.     )
    
41. )
    
42. 
    
43. echo Done.
    
44. pause
    
45. goto :eof
    
46. 
    
47. :isSimilar
    
48. set "str1=%~1"
    
49. set "str2=%~2"
    
50. set "similarity=0"
    
51. for /l %%I in (1,1,20) do (
    
52.     set "char1=!str1:~%%I,1!"
    
53.     set "char2=!str2:~%%I,1!"
    
54.     if defined char1 if defined char2 (
    
55.         if "!char1!"=="!char2!" (
    
56.             set /a similarity+=5
    
57.         )
    
58.     ) else (
    
59.         goto :eof
    
60.     )
    
61. )
    
62. goto :eof

复制代码

77七

回复 3# allen2023

1. @echo off
   
2. cd /d "%~dp0"
   
3. for /f "delims=" %%i in ('dir /b /a-d *.pdf ^|findstr /vi "([0-9][0-9]*)\.pdf"') do (
   
4.         if exist "%%~ni(*).pdf" (
   
5.                 del "%%~ni(*).pdf"
   
6.         )
   
7. )
   
8. pause

复制代码

aloha20200628

回复 3# allen2023

1. 
   
2. @echo off &for /f "delims=(" %%a in ('dir /b/a-d "*(1).pdf" ') do (
   
3.      if exist "%%a.pdf" del /q "%%a(1).pdf"
   
4. )
   
5. pause&exit/b
   

复制代码

qixiaobin0715

就楼主提供的样本来说，这样简简单单即可：

1. for %%i in (*.pdf) do if exist "%%~ni(*).pdf" del "%%~ni(*).pdf"

复制代码

allen2023

回复 4# 77七


这个或许能解决重复多次的，但有的带了括号但不重复是不能做删除操作的-即2楼补充表达的那个意思（不能伤及无辜 ）。
如果文件少，我一个个检查，改掉单独存在的括号文件，用这串代码即可。但多了，肯定是程序执行的更靠谱。

另外，这些文件是在局域网的硬盘里的。执行如下：

1. UNC 路径不受支持。默认值设为 Windows 目录。
   
2. '\\sy\Download\1~9年级典中点\9年级\'
   
3. CMD 不支持将 UNC 路径作为当前目录。
   
4. 找不到文件

复制代码

再次对您表示感谢！

77七

回复 7# allen2023


   重新写了代码，调整了代码思路，去除文件末尾"(数字)"并改名，如果已经存在则直接覆盖。支持以下各种情况，支持末尾3位数字以内，支持子目录去重

1. 苏教版.pdf
   
2. 苏教版(1).pdf
   
3. 苏教版(1)(1).pdf 执行两次即可
   
4. 苏教版(2).pdf
   
5. 苏教版（1）.pdf
   
6. 苏教版(语文).pdf
   
7. 苏教版(语文)(1).pdf

复制代码

此为测试版，测试正确，删除 move 前的 echo 再次执行

1. @echo off
   
2. rem 保存为ansi编码
   
3. set dirpath=\\sy\Download\
   
4. for /f "delims=" %%d in ('dir /b /s /ad "%dirpath%"') do (
   
5.         echo 目录[%%d]
   
6.         for /f "delims=" %%i in ('2^>nul dir /b /a-d "%%d\*.pdf" ^| findstr /rie /c:"([0-9][0-9]*)\.pdf" /c:"（[0-9][0-9]*）\.pdf"') do (
   
7.                 set filename=%%~ni
   
8.                 set filepath=%%d
   
9.                 echo 文件[%%~nxi]
   
10.                 setlocal enabledelayedexpansion
    
11.                 for /l %%l in (1,1,5) do (
    
12.                         if not defined mo (
    
13.                                 if "!filename:~-%%l,1!" equ "(" (
    
14.                                         echo move "!filepath!\!filename!%%~xi" "!filepath!\!filename:~0,-%%l!%%~xi"
    
15.                                         set mo=1
    
16.                                 ) else if "!filename:~-%%l,1!" equ "（" (
    
17.                                         echo move "!filepath!\!filename!%%~xi" "!filepath!\!filename:~0,-%%l!%%~xi"
    
18.                                         set mo=1
    
19.                                 )
    
20.                         )
    
21.                 )
    
22.                 endlocal
    
23.         )
    
24. )
    
25. pause

复制代码

allen2023

回复 8# 77七

很强大了。还差一个文件大小的判断，即名字虽相似但这两文件大小不一致不需要操作。

还有，这个代码好像只能操作到子文件夹，首层文件夹文件没得操作，我新建了个子文件夹测试了，已经很好了，这是我没考虑的意外收获，大佬出品的更通用，慢慢学习。

这是再次用ai生成的，始终无法达到要求。供借鉴，
提问词：有一批文件，要删掉其中大小一样 且以 "("+ 数字 +")"  结尾的重复文件，批处理咋写。

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. 
   
4. rem 设置要处理的目录
   
5. set "dir=C:\your_directory"
   
6. 
   
7. rem 创建临时文件用于存储要保留的文件路径
   
8. set "tempFile=temp.txt"
   
9. 
   
10. rem 遍历目录下的所有文件
    
11. for /r "%dir%" %%F in (*.*) do (
    
12.     set "fileName=%%~nF"
    
13.     set "fileSize=%%~zF"
    
14.     rem 判断文件名是否以“(数字)”结尾
    
15.     if "!fileName:~-2!"==")" (
    
16.         set "numStart=0"
    
17.         for /l %%i in (1,1,20) do (
    
18.             set "char=!fileName:~-%%i,1!"
    
19.             if "!char!" geq "0" if "!char!" leq "9" (
    
20.                 set /a numStart=%%i
    
21.             ) else (
    
22.                 goto endLoop
    
23.             )
    
24.         )
    
25.         :endLoop
    
26.         if "!fileName:~-numStart,1!"=="(" then (
    
27.             rem 查找是否有相同大小且相似文件名但不以“(数字)”结尾的文件
    
28.             set "baseFileName=!fileName:~0,-numStart)"
    
29.             for /r "%dir%" %%G in ("!baseFileName!*") do (
    
30.                 if "%%~nG" neq "!fileName!" then (
    
31.                     set "otherSize=%%~zG"
    
32.                     if!fileSize! equ!otherSize! then (
    
33.                         rem 将不以“(数字)”结尾的文件路径写入临时文件
    
34.                         echo %%G>>"%tempFile%"
    
35.                         goto :nextFile
    
36.                     )
    
37.                 )
    
38.             )
    
39.         )
    
40.     )
    
41.     :nextFile
    
42. )
    
43. 
    
44. rem 遍历临时文件，删除对应的重复文件
    
45. for /f "delims=" %%A in ('type "%tempFile%"') do (
    
46.     for /r "%dir%" %%B in ("*(!fileName:~-2!)*") do (
    
47.         if "%%B" neq "%%A" then (
    
48.             del "%%B"
    
49.         )
    
50.     )
    
51. )
    
52. 
    
53. del "%tempFile%"
    
54. echo Done.
    
55. pause

复制代码

77七

回复 9# allen2023


  

1. @echo off
   
2. rem 保存为ansi编码
   
3. set dirpath=\\sy\Download\
   
4. call :1 "%dirpath%"
   
5. for /f "delims=" %%d in ('dir /b /s /ad "%dirpath%"') do (
   
6.         call :1 "%%d"
   
7. )
   
8. pause
   
9. exit
   
10. 
    
11. 
    
12.         :1
    
13.         echo 目录[%~1]
    
14.         for /f "delims=" %%i in ('2^>nul dir /b /a-d "%~1\*.pdf" ^| findstr /rie /c:".([0-9][0-9]*)\.pdf" /c:".（[0-9][0-9]*）\.pdf"') do (
    
15.                 set filename=%%~ni
    
16.                 set filepath=%~1
    
17.                 for /f "delims=" %%j in ("%~1\%%i") do (
    
18.                         set filesize=%%~zj
    
19.                 )
    
20.                 echo 文件[%%~nxi]
    
21.                 setlocal enabledelayedexpansion
    
22.                 for /l %%l in (1,1,5) do (
    
23.                         if not defined mo (
    
24.                                 set "str=#!filename:~-%%l,1!"
    
25.                                 set "str=!str:(=!"
    
26.                                 set "str=!str:（=!"
    
27.                                 if "!str!" equ "#" (
    
28.                                         for /f "delims=" %%j in ("!filepath!\!filename:~0,-%%l!%%~xi") do (
    
29.                                                 if "%%~zj" equ "" (
    
30.                                                         echo move "!filepath!\!filename!%%~xi" "!filepath!\!filename:~0,-%%l!%%~xi"
    
31.                                                 ) else if "%%~zj" equ "!filesize!" (
    
32.                                                         echo move "!filepath!\!filename!%%~xi" "!filepath!\!filename:~0,-%%l!%%~xi"
    
33.                                                 )
    
34.                                         )
    
35.                                         set mo=1
    
36.                                 )
    
37.                         )
    
38.                 )
    
39.                 endlocal
    
40.         )
    
41.         exit /b

复制代码

0字节文件则覆盖，非0字节文件大小相同覆盖。

allen2023

回复 8# 77七

终于改的目的达成了。%f1!%取不到size，!f1!行了，绕了好久。
现只能操作指定路径下的子目录，本层目录还是没得法，这门学问不容易记忆啊

1. 
   
2.                                 if "!filename:~-%%l,1!" equ "(" (                               
   
3.                                         set "f1=!filepath!\!filename!%%~xi"
   
4.                                         set "f0=!filepath!\!filename:~0,-%%l!%%~xi"
   
5.                                         for %%A in ("!f1!") do (set "f1Size=%%~zA")
   
6.                                         for %%A in ("!f0!") do (set "f0Size=%%~zA")
   
7.                                         if !f1Size! equ !f0Size! (del "!f1!")                                               
   
8.                                         REM move "!filepath!\!filename!%%~xi" "!filepath!\!filename:~0,-%%l!%%~xi"
   
9.                                         move "!f1!" "!f0!"
   
10.                                         set mo=1
    
11.                                 )

复制代码

allen2023

回复 10# 77七

11楼发完，才看到10楼的回复。感谢大佬的回复，该问题解决了

hfxiang

回复 1# allen2023

试试MD5码法，此方法与文件名是否相似无关

1. 
   
2. @echo off&cd /d "%~dp0"
   
3. rem 建议保存为ANSI编码格式
   
4. rem 功能：删除当前文件夹（不含子文件夹）中的pdf重复文件（删除前请备份原文档以防意外）
   
5. rem 方法：计算pdf文件MD5码，遇到后出现MD5码重复的文件将被直接删除（不提示，无回显，无法恢复）
   
6. setlocal enabledelayedexpansion
   
7. for /f "delims==" %%a in ('set exist_ 2^>nul') do set "%%a="
   
8. for %%a in (*.pdf) do (
   
9.         for /f "usebackq" %%z in (`certutil -hashfile "%%~a" MD5^|find /v ":"`) do set "MD5_32=%%z"
   
10.         if not defined exist_!MD5_32! (
    
11.                 call set "exist_!MD5_32!=True"
    
12.         ) else (
    
13.                 del /f "%%~a"
    
14.         )
    
15. )
    

复制代码

czjt1234

回复 13# hfxiang


    这个好

allen2023

回复 13# hfxiang
测试了，方法确实好。
顺便发现个问题：即便是大小不一样的文件，md5也会一样，事实上确实还是同一本书(内容还不完全一致，如水印)，哪怕是内容有改动。
对md5刷新一下认知。

文件是夸克云盘下载的，客户端不知道为啥会重复下载，所以有个本贴，

文件有点大我上传一部分，选了8个pdf文件供大家研究这种问题
https://www.123684.com/s/Klhmjv-oVKd3?提取码:KrBv
其中：典中点一年级上册语文部编版​教师用书.pdf 两个重名的就是这种情况。

小记：批处理的路径特殊符号太难理解了，
9楼老师从外在路径上解决问题，速度快，想做出通用的，如后缀是“ - 副本”，弄了半天还是失败，见笑。
13楼md5是根本内在的解决，certutil -hashfile 命令 有点耗时，但精准，小问题是，会把带 “副本”“（1）”这种文件留下，删了文件名正常的。
由衷感谢两位大佬的不吝赐教~