loadfile into $array
while ubound($array)>-1
 $x=randomnumber
 $item=$array[$x]
 ;do stuff with $item
 redim $newarray[ubound($array-1)
 for $c=0 to $x -1 
   $newarray[$c]=$array[$c]
 loop
 for $c=$x + 1 to ubound($array)
   $newarray[$c-1]=$array[$c]
 next
 $array=$newarray
loop

$seed=SRND(@MSECS)

Dim $array[100]


; fill array
For $i = 0 to 100
	$array[$i] = $i
Next

;shuffle array
For $i = 0 to 100
	$new = Rnd(100)
	$temp = $array[$i]
	$array[$i] = $array[$new]
	$array[$new] = $temp
Next

;show array
For $i = 0 to 100
	? $i " = " $array[$i]
Next

Function ShuffleArray($)
dim $i, $r, $s, $t

	$s=SRND(@MSECS)

	For $i = 0 to UBound($)
		$r = Rnd(ubound($))
		$t = $[$i]
		$[$i] = $[$r]
		$[$r] = $t
	Next

	$ShuffleArray = $

EndFunction

Break on
;
$rc = SetOption ("WrapAtEOL", "on")
;
Call @SCRIPTDIR + "\RemFromArr().udf"
Call @SCRIPTDIR + "\ReadFile().udf"
;
$array = readfile("d:\test\links.txt")
$rand = Ubound($array)
$rc = SRND(0)
;
Do
	?$array[$rand]
	$array = Remfromarray($array, $array[$rand])
	$rand = Ubound($array)
	??"New array size: " $rand
	Sleep 0.5
	If $rand > "0"
		$rand = Rnd($rand)
		?"New random number: " $rand
	Else
		?"Array is empty."
	EndIf
	??
	;Sleep 0.2
Until Ubound($array) = "0"
;
Sleep 3

break on
srnd(@ticks)
$rand=rnd(0)
 

$r=split("A B C D E F G H I J K L M N O P Q R S T U V W X Y Z")
 

while ubound($r)>0
  $rand = Rnd(ubound($r))
  $r[$rand]
  $r[$rand]=""
  $r=arraypack($r)
loop
$r[0]
 

 

 

Function ArrayPack($array)
  dim $loop, $arrTemp[0],$element
  If Not VarType($Array) & 8192
    Exit(1)
  EndIf
  $loop = -1
  for each $element in $array
    if $element > ' '
      $loop = $loop + 1
      redim preserve $arrTemp[$loop] 
      $arrTemp[$loop] = $element
    endif
  next
    if ubound($arrTemp) = -1
      Exit(2)
    Endif
    $ArrayPack = $arrTemp
endFunction