Брать рандомное слово из txt файла

@echo off
(
for %%i in (
 
"Текст: %random%"
 
) do (
 set string=%%~i
 for /f "delims=" %%j in ('
  call echo."%%string:$="%%
 ') do (
  echo.%%~j
  )
 )
)>"\Install\1.txt"
exit /b

@echo off
set "file=test.txt"
set min=1
for /f "tokens=1* delims=:" %%i in ('findstr /vnc:"~" "%file%"^|sort /r') do set max=%%i&goto next2
:next1
pause&exit
:next2
cls
set /a num=%random%%%(max-min+1)+min
echo Строка N%num%
set /a n=num-1
<"%file%" more +%n%|set /p x=^&cmd /v/c "echo.&echo !x!"
echo.
choice /m "Выходим: "
goto next%errorlevel%

@echo off
set "f=file.txt"
<"%f%" (for /f "tokens=1*" %%a in ('"cmd/v/c for /f "delims^=" %%a in ('more') do @echo !random! %%a|sort"') do @set "s=%%b")
echo:Рандом строка из файла "%f%" - [%s%]
pause>nul

@echo off
set "file=dictionary.txt"
set min=1
 
echo Start read file: %time%
findstr /vnc:"~" "%file%"|gsort -n -t : -k 1 -r >$
<$ find ":"|set /p x=^&cmd /v/c echo !x! >num
echo Stop read file: %time%
pause
for /f "tokens=1 delims=:" %%i in ('type num') do set max=%%i&goto next2
:next2
cls
set /a num=%random%%%(max-min+1)+min
echo Строка N%num%
for /f "tokens=1* delims=:" %%a in ('findstr /rbc:"\<%num%\>" "$"') do echo.%%b
echo.
choice /m "Выходим: "
goto next%errorlevel%
:next1
>nul 2>&1 del $
>nul 2>&1 del num
:next0
:next255
pause&exit

@echo off
set "file=dictionary.txt"
set min=1
set n=0
set chr=0 1 2 3 4 5 6 7 8 9
set ir=10 &:разрядность цифр
 
echo Start read file: %time%
findstr /vnc:"~" "%file%"|gsort -n -t : -k 1 -r >$
<$ find ":"|set /p x=^&cmd /v/c echo !x! >num
echo Stop read file: %time%
pause
setlocal enabledelayedexpansion
for /f "tokens=1 delims=:" %%i in ('type num') do set istr=%%i&goto iloop
:iloop
set ind=!istr:~%cnt%,1!
if not "%ind%"=="" set /a cnt+=1&goto iloop
endlocal&set max=%cnt%&set var=%istr%
:next2
set "num="
cls
set /a inum=%random%%%(max-min+1)+min
set im=%inum% &:число знаков номера (рандом)
:loop
set /a k=1+%ir%*%random%/32768
for /f "tokens=%k%" %%i in ("%chr%") do (set num=%%i%num%)
if %num:~,1%==0 set "num="&goto loop
set /a im-=1
if %im% gtr 0 goto loop
if %num% gtr %var% goto next2
echo Строка N %num%
for /f "tokens=1* delims=:" %%a in ('findstr /rbc:"\<%num%\>" "$"') do echo.%%b
echo.
choice /m "Выходим: "
goto next%errorlevel%
:next1
>nul 2>&1 del $
>nul 2>&1 del num
:next0
:next255
pause&exit