[文本处理] 【已解决】求大佬写一个随机输出指定txt文本行的bat

@echo off
chcp 65001 >nul

:GetInput
set /p "InFile=请输入文件："
if not exist "%InFile%" (
    echo 文件不存在
    goto :GetInput
)
for /f "delims=" %%i in ('type "%InFile%"') do (
    echo,%%i
    timeout /t 3 >nul
)
复制代码

@echo off
chcp 65001 >nul
for /f %%i in ('echo prompt $E ^| cmd') do (
    set "KeyESC=%%i"
)
:GetInput
set /p "InFile=请输入文件："
if not exist "%InFile%" (
    echo 文件不存在
    goto :GetInput
)
for /f "delims=" %%i in ('type "%InFile%"') do (
    echo %KeyESC%[38;2;0;255;0m%%i
    timeout /t 3 >nul
)
复制代码

@echo off
chcp 65001 >nul
setlocal enabledelayedexpansion
for /f %%i in ('echo prompt $E ^| cmd') do (
    set "KeyESC=%%i"
)

:GetInput
set /p "InFile=请输入文件："
if not exist "%InFile%" (
    echo 文件不存在
    goto :GetInput
)

:StoreRand
for /f "delims=" %%i in ('type "%InFile%"') do (
    set "_!random!=%%i"
)

:ShowRand
for /f "tokens=1* delims==" %%a in ('set _') do (
    echo %KeyESC%[38;2;0;255;0m%%b
    timeout /t 3 >nul
)
endlocal
复制代码