求助批处理随机抽取文件夹中的10个文件名写入到txt文件并执行命令

chreng

out.txt文件内容格式：
file './03.txt'
file './25.txt'
file './29.txt'
file './57.txt'

1、要求在当前目录的所有文件当中，随机把10个文件名按照上面的格式写入out.txt文档中；
2、执行命令块 copy /b out.txt d:\a.txt end.txt；
3、返回第一步，清空out.txt，又重新随机抽取10个文件名写入out.txt文档中，执行第二步，反复循环；
4、循环的次数在开始前提示输入次数

请问批处理能实现吗，恳请大神帮忙，感恩。。。

Batcher

回复 1# chreng


请参考Q-04把bat文件保存为ANSI编码：
https://mp.weixin.qq.com/s/6lbb97qUOs1sTyKJfN0ZEQ

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. set "FileNum=10"
   
4. set "LoopNum=3"
   
5. set "LoopCount=1"
   
6. 
   
7. set /p LoopNum=输入循环次数：
   
8. 
   
9. :BeginLoop
   
10. for /f "delims=" %%i in ('dir /b /a-d *.txt ^| findstr /v /x /c:"out.txt" /c:"end.txt"') do (
    
11.     set "_!random!=%%i"
    
12. )
    
13. 
    
14. set "FileCount=0"
    
15. (for /f "tokens=2 delims==" %%i in ('set _') do (
    
16.     set /a FileCount+=1
    
17.     if !FileCount! leq %FileNum% (
    
18.         echo file './%%i'
    
19.     )
    
20. ))>"out.txt"
    
21. copy /b "out.txt"+"D:\a.txt" end.txt
    
22. 
    
23. echo 已完成第 !LoopCount! 次随机抽取及合并，请检查文件 end.txt
    
24. pause
    
25. set /a LoopCount+=1
    
26. if !LoopCount! leq %LoopNum% (
    
27.     goto :BeginLoop
    
28. )

复制代码

不会飞的鱼

   非常感谢，非常好用！