$InputFile=("C:\Output2.txt") ;Modify location for path
$OutputFile=("C:\List.txt") ;Modify location for path
$Pick=5 ;Select the number of lines you want
Break ON
$fso = CreateObject("Scripting.FileSystemObject")
$txt = $fso.OpenTextFile("$InputFile",Not 0)
$Array=Split($txt.ReadAll,@CRLF)
$txt.Close
$=SRND(@MSECS)
$=RND(0)
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 ;Debug to show on screen what is selected
$ = Open(1,"$OutputFile",5) ;Generating output file list
$ = WriteLine(1,$Array[$iChose]+@CRLF)
$Array[$iChose]=""
Next
$ = Close(1)
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