【已解决】求助随机抽取文本的批处理输出ECHO处于关闭状态

盛世繁华

需要用批处理程序处理一些txt文本。bat所在目录下有个文本：1.txt、2.txt、3.txt、4.txt、5.txt、6.txt、7.txt、8.txt，每个txt里有很多行文字。bat批处理循环运行100次，每次从1.txt、3.txt、5.txt中的任意2个txt文本中各随机抽取一行文字，从2.txt、4.txt、6.txt、7.txt、8.txt中的任意3个txt文本中各随机抽取一行文字，最后把将所有随机选取到的文字合并成一行输出到output.txt文本中，没循环一次合并的结果都会单独占据一行。因为是循环100次，所以运行结果就是合并100次，那么output.txt里最终得到的是100行合并后的文字。

运行代码后，output.txt里不是合并后的文字，而是100行ECHO 处于关闭状态。求解！

文件夹里的文件如下：
1.txt
2.txt
3.txt
4.txt
5.txt
6.txt
7.txt
8.txt
merge_texts.bat
output.txt

代码如下：

1. @echo off
   
2. setlocal enabledelayedexpansion
   
3. 
   
4. set "files1=1.txt;3.txt;5.txt"
   
5. set "files2=2.txt;4.txt;6.txt;7.txt;8.txt"
   
6. set "output=output.txt"
   
7. 
   
8. REM 清空输出文件
   
9. break > "%output%"
   
10. 
    
11. for /l %%i in (1, 1, 100) do (
    
12.     set "result="
    
13. 
    
14.     REM 随机选取2个txt，每个txt随机选取一行
    
15.     for %%j in (%files1%) do (
    
16.         set "file=%%j"
    
17.         call :ReadRandomLine "!file!" line
    
18.         set "result=!result! !line!"
    
19.     )
    
20.    
    
21.     REM 随机选取3个txt，每个txt随机选取一行
    
22.     for %%j in (%files2%) do (
    
23.         set "file=%%j"
    
24.         call :ReadRandomLine "!file!" line
    
25.         if !errorlevel! equ 0 (
    
26.             set "result=!result! !line!"
    
27.         )
    
28.     )
    
29.    
    
30.     REM 输出到文件
    
31.     echo !result:~1! >> "%output%"
    
32. )
    
33. 
    
34. echo "合并完成。"
    
35. pause
    
36. goto :eof
    
37. 
    
38. :ReadRandomLine
    
39. setlocal
    
40. set "file=%~1"
    
41. set "line="
    
42. for /f "usebackq skip=%random% tokens=*" %%k in ("%file%") do (
    
43.     endlocal & set "line=%%k" & exit /b 0
    
44. )
    
45. exit /b 1

复制代码

output.txt内容如下：
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。
ECHO 处于关闭状态。

dimo

最后一个读取随机行的模块，那个random的数太大了，直接给文件所有行都跳过去了。
生成一个行数多一点的初始文件，就能运行了。

1. 
   
2. echo off
   
3. for /l %%i in (1,1,8) do ((for /l %%n in (0,1,40000) do echo %%i) >> %%i.txt)

复制代码

但是用我这八个txt运行后结果，好像跟要求也不太一样。

1 3 5 2 4 6 7 8
1 3 5 2 4 6 7 8
1 3 5 2 4 6 7 8
1 3 5 2 4 6 7 8
1 3 5 2 4 6 7 8
1 3 5 2 4 6 7 8
1 3 5 2 4 6 7 8
1 3 5 2 4 6 7 8
1 3 5 2 4 6 7 8

BingjianREMIX

把31行改成

1. >> "%output%" echo !result:~1!

复制代码

试试

77七

1. @echo off
   
2. set "files1=1.txt;3.txt;5.txt"
   
3. set "files2=2.txt;4.txt;6.txt;7.txt;8.txt"
   
4. set "output=output.txt"
   
5. 
   
6. for /l %%l in (1,1,100) do (
   
7.         setlocal enabledelayedexpansion
   
8.         call :r1 "%files1%" 2
   
9.         for %%d in (!file!) do call :r2 "%%d"
   
10.         endlocal
    
11.         setlocal enabledelayedexpansion
    
12.         call :r1 "%files2%" 3
    
13.         for %%d in (!file!) do call :r2 "%%d"
    
14.         endlocal
    
15.         echo=
    
16. )
    
17. pause
    
18. exit
    
19. 
    
20.         :r1
    
21.         for %%a in (%~1) do set #!random!!random!=%%a
    
22.         for /f "tokens=2 delims==" %%a in ('set #') do (
    
23.                 set /a n+=1
    
24.                 set file=!file! %%a
    
25.                 if !n! equ %~2 exit /b
    
26.         )
    
27. 
    
28.         :r2
    
29.         setlocal enabledelayedexpansion
    
30.         for /f "useback delims=" %%b in ("%~1") do set _!random!=%%b
    
31.         for /f "tokens=1* delims==" %%b in ('set _') do (
    
32.                 set /p=%%c <nul
    
33.                 endlocal
    
34.                 exit /b
    
35.         )

复制代码

盛世繁华

回复 2# dimo 是的，输出到原有8个文本了

盛世繁华

回复 3# BingjianREMIX 不行

盛世繁华

回复 4# 77七 可以正确输出了