批处理之家 - Powered by Discuz! Board

标题: [文本处理] 【已解决】求助随机抽取文本的批处理输出ECHO处于关闭状态 [打印本页]

作者: 盛世繁华 时间: 2023-7-9 13:14 标题: 【已解决】求助随机抽取文本的批处理输出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

代码如下：

@echo off
setlocal enabledelayedexpansion

set "files1=1.txt;3.txt;5.txt"
set "files2=2.txt;4.txt;6.txt;7.txt;8.txt"
set "output=output.txt"

REM 清空输出文件
break > "%output%"

for /l %%i in (1, 1, 100) do (
    set "result="

    REM 随机选取2个txt，每个txt随机选取一行
    for %%j in (%files1%) do (
        set "file=%%j"
        call :ReadRandomLine "!file!" line
        set "result=!result! !line!"
    )
    
    REM 随机选取3个txt，每个txt随机选取一行
    for %%j in (%files2%) do (
        set "file=%%j"
        call :ReadRandomLine "!file!" line
        if !errorlevel! equ 0 (
            set "result=!result! !line!"
        )
    )
    
    REM 输出到文件
    echo !result:~1! >> "%output%"
)

echo "合并完成。"
pause
goto :eof

:ReadRandomLine
setlocal
set "file=%~1"
set "line="
for /f "usebackq skip=%random% tokens=*" %%k in ("%file%") do (
    endlocal & set "line=%%k" & exit /b 0
)
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 时间: 2023-7-9 15:32

本帖最后由 dimo 于 2023-7-9 15:41 编辑

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

echo off
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 时间: 2023-7-9 17:22

本帖最后由 BingjianREMIX 于 2023-7-9 17:23 编辑

把31行改成

>> "%output%" echo !result:~1!
复制代码

试试

作者: 77七 时间: 2023-7-9 18:23

@echo off
set "files1=1.txt;3.txt;5.txt"
set "files2=2.txt;4.txt;6.txt;7.txt;8.txt"
set "output=output.txt"

for /l %%l in (1,1,100) do (
	setlocal enabledelayedexpansion
	call :r1 "%files1%" 2
	for %%d in (!file!) do call :r2 "%%d"
	endlocal
	setlocal enabledelayedexpansion
	call :r1 "%files2%" 3
	for %%d in (!file!) do call :r2 "%%d"
	endlocal
	echo=
)
pause
exit

	:r1
	for %%a in (%~1) do set #!random!!random!=%%a
	for /f "tokens=2 delims==" %%a in ('set #') do (
		set /a n+=1
		set file=!file! %%a
		if !n! equ %~2 exit /b
	)

	:r2
	setlocal enabledelayedexpansion
	for /f "useback delims=" %%b in ("%~1") do set _!random!=%%b
	for /f "tokens=1* delims==" %%b in ('set _') do (
		set /p=%%c <nul
		endlocal
		exit /b
	)
复制代码

作者: 盛世繁华 时间: 2023-7-9 23:34

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

作者: 盛世繁华 时间: 2023-7-9 23:37

回复 3# BingjianREMIX 不行

作者: 盛世繁华 时间: 2023-7-9 23:42

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

欢迎光临批处理之家 (http://www.bathome.net/)