slumpa ordningen

Hellojsan...
Jag har en array som varierar i antalet ...
typ
for i = 0 to ubound(arayen)
arayen(i)
next

nu har jag ett problem jag vill att alla arayer ska skrivas ut men i slumpvald ordning!?!
Alltså inte 1 av alla arrayerna utan alla arrayerna...
om ni fattar, typ?

Sök.... :)

Det är bara en array, men den har många element.

joo men ... det va det jag menade, men det förstod ni säkert?...?

[Redigerat av erik_nordell den 05 sep 2001]

Sökte... men hittade ingenting..
Eller jo jag hittade hur man slumpar ur en databas....
men jag vill ju slumpa ordningen, inte bara 1 rad..
och sen får inte samma element dyka upp igen....

[Redigerat av erik_nordell den 05 sep 2001]

jag har fortfarande inte hittat något.......
nån som kan hjälpa till eller?

Jo

sub randymizer(byval arrayen)
dim size,i,slot
randomize
size = ubound(arrayen)

dim arrcopy()
redim arrcopy(size)
for i = 0 to size
  arrcopy(i) = arrayen(i)
next
for i = 0 to size
   slot = int(rnd()*(size-i))
   response.write arrcopy(slot) & "<br>"
   arrcopy(slot) = arrcopy(size-i) 
next
end sub

Sub skriver ut alla värden i en array i slumpmässig ordning

Ett testfall

dim arrn(12)
size = ubound(arrn)
for i = 0 to size
arrn(i) = i
next
randymizer arrn

------------------
essentitia preter non sans multiplicandum