break on

global $RandomCallCounter

$Array = RandomizeArray(ReadFile("\\path\to\infile.txt"))

$arraysize = ubound($array) + 1

? "The array contains "+$arraysize+" elements.  How many do you want to pick? "
gets $howmany

$ = open(1,"\\path\to\newfile.txt",5)

for $x = 1 to ($howmany)
    $ = WRITELINE(1,$Array[$x]+@CRLF)
next

$ = close(1)

srnd(@msec)
$Pick = 4 ; how many do you want
$Counter = 0
Open(1,"c:\file.txt)
$Line = Readline(1)
While @error = 0
  redim preserve $Array[$Counter]
  $Array[$Counter] = $Line
  $Counter = $Counter + 1
  $Line = Readline(1)
Loop

$Size = Ubound($Array)

For $Output = 0 to $Pick
 ? $Array[Rnd[$size]
Next

srnd(@msec)
$Pick = 4 ; how many do you want
$Counter = 0
Open(1,"c:\data\file.txt")
$Line = Readline(1)
While @error = 0
  redim preserve $Array[$Counter]
  $Array[$Counter] = $Line
  ? $Line 
  $Counter = $Counter + 1
  $Line = Readline(1)
Loop

$Size = Ubound($Array)

For $Output = 0 to $Pick
 $Array(RND($size)) ?
Next
Sleep 3

0  1  2  3  4  5

For $OUTPUT = 0 to $Pick
 $Selection = RND($size)
 $RandomLine = $Array[$Selection] 
 ?"The Random Number Generated was " + $Selection 
 ?"The Line Associated with the number is " + $RandomLine
Next

break on

Dim $Array[0]				; Must initialize the array first!

srnd(@msec)
$Pick = 4 ; how many do you want

$Counter = -1				; alternate, pre-increment method uses -1 init

If Open(1,"c:\data\file.txt") = 0	; trapped the result code
  $Line = Readline(1)
  While @error = 0
    $Counter = $Counter + 1		; moved to pre-increment
    redim preserve $Array[$Counter]
    $Array[$Counter] = $Line
    $Line ?
    $Line = Readline(1)
  Loop
  $ = Close(1)				; closed the file
EndIf

$Size = Ubound($Array)
$Size + 1 ' elements were loaded' ?	; show element count

For $Output = 1 to $Pick		; counter, not array index, so 1-based
  $Array[RND($size)] ?			; corrected d"(" and "[" 
Next

For $Output = 1 to $Pick
  $Index = RND($size)            ; select a random element
  If $Array[$Index]              ; does it contain data?
    $Array[$Index] ?             ; then display it
    $Array[$Index] = ''          ; and clear it to prevent re-use
  Else
    $Output = $Output - 1        ; reduce the output count so we try again
  EndIf
Next

$Size = Ubound($Array)
$Size + 1 ' elements were loaded' ?	; show element count
$SizeTotal = $Size + 1
$SizeTotal ?

If $SizeTotal =< $Pick
	"Entries in file less than or equal to $PICK" ?
	Sleep 3
	Exit
EndIf

$sDiscard=SRND(@MSECS) ; Pick a seed for the RNG.  @MSECS is OK for most applications.
$sDiscard=RND() ; Discard first random number as some versions return a predictable first result.

break on

Dim $Array[0]				; Must initialize the array first!
SRND(@msec)
$Pick = 2 ; how many do you want

$Counter = -1				; alternate, pre-increment method uses -1 init

If Open(1,"c:\data\file.txt") = 0	; trapped the result code
  $Line = Readline(1)
  While @error = 0
    $Counter = $Counter + 1		; moved to pre-increment
    redim preserve $Array[$Counter]
    $Array[$Counter] = $Line
    $Line = ReadLine(1)
  Loop
  $ = Close(1)				; closed the file
EndIf

$Size = Ubound($Array)
$Size + 1 ' elements were loaded' ?	; show element count
$SizeTotal = $Size + 1
$SizeTotal ?

If $SizeTotal =< $Pick
	"Entries in file less than or equal to $PICK" ?
	Sleep 3
	Exit
EndIf

For $Output = 1 to $Pick
  $Index = RND($size)            ; select a random element
  If $Array[$Index]              ; does it contain data?
    $Array[$Index] ?             ; then display it
    $Array[$Index] = ''          ; and clear it to prevent re-use
  Else
    $Output = $Output - 1        ; reduce the output count so we try again
  EndIf
Next
Sleep 3

Break ON

$fso = CreateObject("Scripting.FileSystemObject")
$txt = $fso.OpenTextFile("C:\data\file.txt",Not 0)
$Array=Split($txt.ReadAll,@CRLF)
$txt.Close

$=SRND(@MSECS)
$=RND(0)

$Pick=2

For $Output=1 to $Pick
	$Array=Split(udfSqueeze(Join($Array,@CRLF),@CRLF),@CRLF)
	$iChose=IIf(UBound($Array)>0,RND(UBound($Array)),0)
	"Selection "+$Output+": "+$Array[$iChose]+@CRLF
	$Array[$iChose]=""
Next

Function udfSqueeze($s,$q)
	$udfSqueeze=$q+$s+$q
	While InStr($udfSqueeze,$q+$q)
		$udfSqueeze=Join(Split($udfSqueeze,$q+$q),$q)
	Loop
	$udfSqueeze=Split($q+$udfSqueeze+$q,$q+$q)[1]
EndFunction