Dim Fso,File
Set Fso = CreateObject("Scripting.FileSystemObject")
Set File = Fso.OpenTextFile("Test.txt")
File.ReadAll
B=File.Line
File.Close
Randomize
N=Fix(Rnd*B)

Set File = Fso.OpenTextFile("Test.txt")
For i = 1 to N - 1
    File.ReadLine
Next
aLine = File.ReadLine
File.Close
Wscript.Echo "随机第" & N &"行" & vbCrLf & vbCrLf & aLine
Set Fso=Nothing
Set File=Nothing
复制代码

Dim Fso,File
Set Fso = CreateObject("Scripting.FileSystemObject")

Do
    Counter = Counter + 1
    If Counter = 11 Then
      Exit Do
    End If
Set File = Fso.OpenTextFile("Test.txt")
File.ReadAll
B=File.Line
File.Close
Randomize
N=Fix(Rnd*B)

Set File = Fso.OpenTextFile("Test.txt")
For i = 1 to N - 1
    File.ReadLine
Next
aLine = File.ReadLine
File.Close
Lines = Lines & "随机第" & N &"行内容：" & aLine & vbCrLf
Loop
Wscript.Echo Lines

Set Fso=Nothing
Set File=Nothing
复制代码

@echo off&setlocal enabledelayedexpansion
set /a n=10
for /f "tokens=2 delims=:" %%a in ('find /v /c "" a.txt')do set/a h=%%a
for /l %%a in (1 1 %h%) do set .!random!!random!=%%a
for /f "tokens=2 delims==" %%a in ('set .') do (
   set /a m+=1
   if !m! leq %n% set var=!var! %%a:
)
findstr /n .* a.txt|findstr /b "%var%">tem
for /f "tokens=1* delims=:" %%a in (tem) do echo %%b
pause
复制代码

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%a in (a.txt) do set "_!random!=%%a"
for /f "tokens=2 delims==" %%a in ('set _') do (
     set /a n+=1&echo %%a
     if !n! equ 10 goto next
)
:next
pause>nul
复制代码

@echo off&setlocal enabledelayedexpansion
:a
set /a n1=%random%%%25+1
set n2=0
for /f "tokens=*" %%a in ('sort /+%n1% 1.txt') do (
set /a n2+=1
if !n2! gtr 10 goto jieshu
echo %%a
)
:jieshu&pause&goto a
复制代码

@echo off
:lp
set /a m+=1
if %m% equ 10 del /q tmp&pause&exit/b
set /a n=%random%%%12+1
(more +%n% 1.txt)>tmp
set /p str=<tmp
echo %str%
goto lp
复制代码

 
@echo off&setlocal enabledelayedexpansion
set /a n=10
for /f "tokens=2 delims=:" %%a in ('find /v /c "" a.txt')do set/a h=%%a

for /l %%a in (1,1,%n%) do (
    set/a v=!random!%%h+1
    for /l %%b in (1,1,%n%) do (
        if defined tem!v! (set /a v=v%%n+1)
    )
    set tem!v!=y
    set var=!var! !v!:
)
for /f "tokens=1* delims=:" %%a in ('findstr /n .* a.txt^|findstr /b "!var!"') do echo %%b
pause
复制代码