[文本处理] 排批处理怎样从多文本中提取任意一行文字组合？

@echo off
setlocal enabledelayedexpansion
if not exist C.txt cd.>C.txt
:main
set Alines=0
set Blines=0
for /f "tokens=* delims=" %%a in (A.txt) do (
set /a Alines+=1
)
for /f "tokens=* delims=" %%b in (B.txt) do (
set /a Blines+=1
)
set /a n1=%random%%%%Alines%+1
set /a m1=%random%%%%Blines%+1
set n2=0
for /f "delims=" %%i in (A.txt) do (
set /a n2+=1
if "!n2!" == "%n1%" set Astr=%%i &&goto main1
)
:main1
set m2=0
for /f "delims=" %%j in (B.txt) do (
set /a m2+=1
if "!m2!" == "%m1%" set Bstr=%%j &&goto main2
)
:main2
set Astr=%Astr:~0,-1%
set Bstr=%Bstr:~0,-1%
set word=%Astr%%Bstr%
for /f "delims=" %%c in (C.txt) do (
if "%word%." equ "%%c." (goto main)
)
echo %word%>>C.txt
复制代码

@echo off&setlocal enabledelayedexpansion
:start
set/a a=0,b=0,n=0,u=0,v=0,r=0
(for /f "tokens=1-2 delims=:" %%i in ('type "A.txt"^|find /v /c "" ^&type "A.txt"^|findstr -Rn ".*"') do (
    set/a a+=1
    if !a! equ 1 set/a "n=%random%%%%%i"
    if !n! neq 0 (set/a u+=1) else (goto :start)
    if !u! neq 1 if %%i equ !n! set/p=%%j<nul&call :a&exit /b
)) >>C.txt
:a
set/a a=0,b=0,n=0,u=0,v=0,r=0
for /f "tokens=1-2 delims=:" %%i in ('type "B.txt"^|find /v /c "" ^&type "B.txt"^|findstr -Rn ".*"') do (
    set/a b+=1
    if !b! equ 1 set/a "r=%random%%%%%i"
    if !r! neq 0 (set/a v+=1) else (goto :a)
    if !v! neq 1 if %%i equ !r! set/p=%%j<nul&echo,&goto :eof
)
复制代码

@echo off&setlocal enabledelayedexpansion
:prepare
call :start "1.txt" "2.txt"&type "c.txt"|find "!str!" >nul 2>nul||>>c.txt echo,!str!&&exit
set "str="&goto :prepare
:start
set/a a=0,n=0,u=0
if not "%~1"=="" (
    for /f "tokens=1-2 delims=:" %%i in ('type "%~1"^|find /v /c "" ^&type "%~1"^|findstr -Rn ".*"') do (
        set/a a+=1
        if !a! equ 1 set/a "n=%random%%%%%i"
        if !n! neq 0 (set/a u+=1) else (goto :start)
        if !u! neq 1 if %%i equ !n! set "str=!str!%%j"&shift&goto :start
    )
) else (
    goto :eof
)
复制代码

@echo off&setlocal enabledelayedexpansion
:prepare
call :start "1.txt" "2.txt"&type "c.txt"|find "!str!" >nul 2>nul||>>c.txt echo,!str!&&exit
set "str="&goto :prepare
:start
set/a a=0,n=0
if not "%~1"=="" (
    for /f "tokens=1-2 delims=:" %%i in ('type "%~1"^|find /v /c "" ^&findstr -Rn ".*" "%~1"') do (
        set/a a+=1
        if !a! equ 1 set/a n=%random%%%%%i+1
        if !a! neq 1 if %%i equ !n! set "str=!str!%%j"&shift&goto :start
    )
)
复制代码