批处理每个文件夹随机复制3张照片

3537589

随机选取这些文件里面 3张图片。复制到新文件夹里面。自动重命名
求大神帮忙，谢谢了

Batcher

回复 1# 3537589


    根据什么规则重命名？

3537589

回复 2# Batcher

重命名 1.2.3.4 .5 这样命名以此类推下去就可以

77七

回复 3# 3537589

1. @echo off
   
2. rem 批处理保存为ansi编码格式
   
3. 
   
4. set newFolder=a
   
5. set m=3
   
6. 
   
7. cd /d "%~dp0"
   
8. md "%newFolder%"
   
9. for /f "delims=" %%d in ('dir /b /ad') do (
   
10.         if "%%d" neq "%newFolder%" (
    
11.                 setlocal
    
12.                 for %%a in ("%newFolder%\*.jpg") do set /a k+=1
    
13.                 for %%a in ("%%d\*.jpg") do (
    
14.                         call set _%%random%%_%%random%%=%%a
    
15.                 )
    
16.                 for /f "tokens=1* delims==" %%a in ('2^>nul set _') do (
    
17.                         set /a n+=1,k+=1
    
18.                         set file=%%b
    
19.                         setlocal enabledelayedexpansion
    
20.                         if !n! leq %m% (
    
21.                                 copy "!file!" "!newFolder!\!k!.jpg"
    
22.                         )
    
23.                         endlocal
    
24.                 )
    
25.                 endlocal
    
26.         )
    
27. )
    
28. pause

复制代码

3537589

回复 4# 77七
谢谢了。

Five66

1. 
   
2. @echo off&chcp 936
   
3. 
   
4. set count=3
   
5. set fd=___aaa
   
6. 
   
7. if not exist "%fd%" md "%fd%"
   
8. set /a fn+=1
   
9. for /d %%x in (*) do (
   
10. if "%%x" neq "%fd%" (
    
11. 
    
12. setlocal
    
13. for %%y in ("%%x\*.*p*") do (
    
14. set /a a+=1&set file=%%y
    
15. call set "@@%%random%%@%%a%%_%%~xy=%%y"
    
16. )
    
17. 
    
18. for /f "tokens=1 delims==" %%z in ('set @@ 2^>nul') do (
    
19. set /a c+=1
    
20. if not defined done (
    
21. set fx=%%z
    
22. setlocal enabledelayedexpansion
    
23. if %count% geq !c!  (
    
24. echo copy /y "!%%z!" "!fd!\!fn!!fx:*_=!"
    
25. copy /y "!%%z!" "!fd!\!fn!!fx:*_=!" && set /a fn+=1
    
26. for %%h in (!fn!) do endlocal&set fn=%%h
    
27. ) else endlocal&set done=1
    
28. )
    
29. )
    
30. 
    
31. for /f %%h in ('echo %%fn%%') do endlocal&set fn=%%h
    
32. )
    
33. )
    
34. echo,&pause&exit/b
    

复制代码

qixiaobin0715

新文件夹为“abc”。
1.代码第10行的数字为需要复制的图片个数；
2.代码第8行可以保证设置的变量随机数名称不会重复；
3.图片扩展名为jpg；

1. @echo off
   
2. md ..\abc
   
3. for /f "delims=" %%i in ('dir /b /ad') do (
   
4.     setlocal enabledelayedexpansion
   
5.     pushd "%%i"
   
6.     for /f "delims=" %%j in ('dir /b /a-d *.jpg') do (
   
7.         set /a n+=1
   
8.         set "_!random!-!n!=%%j"
   
9.     )
   
10.     set /a n-=3
    
11.     for /f "tokens=1* delims==" %%k in ('set _^|more +!n!') do copy "%%l" "..\..\abc\"
    
12.     popd
    
13.     endlocal
    
14. )
    
15. move "..\abc"
    
16. pause

复制代码

代码未经测试。

qixiaobin0715

重命名的需求未注意到。
代码中 第2行 为设置复制图片数量：

1. @echo off
   
2. set num=3
   
3. md ..\abc
   
4. setlocal enabledelayedexpansion
   
5. for /f "delims=" %%i in ('dir /b /ad') do (
   
6.     setlocal enabledelayedexpansion
   
7.     pushd "%%i"
   
8.     for /f "delims=" %%j in ('dir /b /a-d *.jpg') do (
   
9.         set /a n+=1
   
10.         set "_!random!-!n!=%%j"
    
11.     )
    
12.     set /a n-=num
    
13.     for /f "tokens=1* delims==" %%k in ('set _^|more +!n!') do (
    
14.         set /a x+=1
    
15.         copy "%%l" "..\..\abc\!x!.jpg"
    
16.     )
    
17.     popd
    
18.     endlocal
    
19.     set /a x+=num
    
20. )
    
21. move "..\abc"
    
22. pause

复制代码