中国DOS联盟

::如果每行中间的那个数字是序号的话，可以用 Findstr 随机找出。



@echo off & Title 变量随机定义

Setlocal EnableDelayedExpansion



::查找文件里的有效数据有多少行：

For /f %%a in ('findstr  "^WKS"  File.txt  ') do (set /a N+=1)

Echo File.txt 文件共有 !N! 行有效数据！



::设置随机数，并用 Findstr 找出 行中间有对应数的那一行。

set /a Line=%Random% %% !N! +1

For /f "tokens=1-3" %%a in ('findstr " %Line% " File.txt ') do (

set "One=%%a"

set "Two=%%b"

set "Thr=%%c"

)

echo %One%

echo %Two%

echo %Thr%

Endlocal

Pause

::如果每行中间的那个数字不是序号，而是个不定数的话。



@echo off & Title 变量随机定义

Setlocal EnableDelayedExpansion



::查找文件里的有效数据有多少行，并为每行加上行号：

(For /f "delims=" %%a in ('findstr  "^WKS"  File.txt  ') do (set /a N+=1 & echo !N! %%a) ) > NewFile.txt



Echo NewFile.txt 文件共有 !N! 行有效数据！



::设置随机行数，并用 Findstr 找出对应行。

set /a Line=%Random% %% !N! +1



For /f "tokens=2-4" %%a in ('findstr "^%Line% " NewFile.txt ') do (

set "One=%%a"

set "Two=%%b"

set "Thr=%%c"

)

echo %One%

echo %Two%

echo %Thr%

Endlocal

Pause

::如果文件内容都是纺一格式（没有多余信息行），每行中间的数是不定数的话。



@echo off & Title 变量随机定义

Setlocal EnableDelayedExpansion



::查找文件里有多少行

For /f "delims=" %%a in (File.txt) do set /a N+=1



Echo File.txt 文件共有 !N! 行！



::设置随机行数

set /a Line=%Random% %% !N! +1



For /f "tokens=1-3" %%a in (File.txt) do (

set /a num+=1

if !num! == !Line! (set "One=%%a" & set "Two=%%b" & set "Thr=%%c")

)

echo %One%

echo %Two%

echo %Thr%

Endlocal

Pause