5 svar · 513 visningar · startad av erik_nordell
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?
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