找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 21044|回复: 5

[文本处理] 批处理每个文件夹随机选3张照片

[复制链接]
发表于 2023-10-11 17:36:19 | 显示全部楼层 |阅读模式
从好多文件夹里面 随机选3张照片 放在单独一个文件夹里面  BAT如何实现

文件夹              
A      
B         
C        
D
E  
从文件夹 A B C D E 里面随机选3张照片 放在一个新文件夹里面。(文件夹数量随机的)
求大神帮忙,谢谢了
发表于 2023-10-11 20:49:25 | 显示全部楼层
  1. @echo off
  2. rem 批处理保存为ansi编码格式
  3. md "随机"
  4. for /d %%d in (*) do (
  5.         if "%%d" neq "随机" (
  6.                 setlocal
  7.                 for %%a in ("%%d\*.jpg") do (
  8.                         call set _%%random%%=%%a
  9.                 )
  10.                 for /f "tokens=1* delims==" %%a in ('set _^|findstr /n .^|findstr /rbc:"[123]:"') do (
  11.                         copy "%%b" "随机"
  12.                 )
  13.                 endlocal
  14.         )
  15. )
  16. pause
复制代码
发表于 2023-10-11 21:30:46 | 显示全部楼层
假设你的图片文件的扩展名是jpg,将随机选的图片放在D:\test目录中(代码会自动创建此目录)。将批处理文件放在与ABCDE文件夹同目录中运行:
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for /f "delims=" %%a in ('dir /s /b /a-d *.jpg') do (
  4.     set /a n+=1
  5.     set _!random!=%%a
  6. )
  7. set /a n-=3
  8. md D:\test 2>nul
  9. for /f "skip=%n% tokens=1* delims==" %%a in ('set _') do (
  10.     copy "%%b" "D:\test"
  11. )
  12. pause
复制代码
发表于 2023-10-11 21:30:59 | 显示全部楼层
本帖最后由 Nsqs 于 2023-10-11 21:45 编辑
  1. #PowerShell 随机不重复复制
  2. md new_jpg -Force|Out-Null
  3. [System.Collections.Generic.Dictionary[string,string]]$list=@{}
  4. dir *.jpg -Depth 1|%{$list[$_.Name]=$_.FullName}
  5. dir new_jpg|%{$list.Remove($_.Name)}|Out-Null
  6. $list.Keys|Get-Random -Count 3|%{copy $list[$_] "new_jpg" -Force}
复制代码
发表于 2023-10-11 21:40:52 | 显示全部楼层
新文件夹放哪里?
 楼主| 发表于 2023-10-12 10:15:14 | 显示全部楼层
文件夹数量和文件名是随机的。不固定
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-18 13:02 , Processed in 0.017780 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表