--- title: "Slumpa unikt." type: "forum-thread" url: "https://www.webforum.nu/amne/asp/75180-slumpa-unikt" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "limpon" published: "2003-04-27T13:15:27.000Z" updated: "2008-01-18T16:50:41.000Z" replies: 17 views: 1048 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/75180-slumpa-unikt" --- # Slumpa unikt. ## #1 — limpon, 2003-04-27T13:15Z Jag tänkte slumpa ut poster i sidvisningen. Då är det så här. Jag har \[id\] \[nyhet\] då vill jag slumpa bland alla nyheter. men samma nyhet ska inte kunna bli 2 ggr. fast jag slumpar den 5 ggr. ``` ReDim Order(5),Svar(5) ' Pos 0 är rätt svar, övriga är fel svar ' Order(0) = 0 'Plats för rätt svar' Order(1) = 1 Order(2) = 2 Order(3) = 3 Order(4) = 4 For i = 0 To Ubound(order) Randomize slump = Int(Rnd * Order(i))+1 response.write slump Next ``` Alltså slumptalet ska inte kunna komma 2 gånger då jag skriver ut det. talen 0-4 ska slumpas ut i slumpad ordning. Permalänk: https://www.webforum.nu/p/75180 ## #2 — Sebbe, 2003-04-27T14:52Z Såhär kan du väl göra? ``` blnSlump = False i = 0 Do Until blnSlump Randomize intSlump = Int(Rnd * UBound(Order)) + 1 If InStr(strSlump, intSlump) = 0 Then strSlump = strSlump & " " & intSlump If i = UBound(Order) - 1 Then blnSlump = True End If i = i + 1 End If Loop Response.Write(strSlump) ``` Permalänk: https://www.webforum.nu/p/1026164 ## #3 — limpon, 2003-04-27T14:58Z Tack perfekt, funkar kanon tack igen! Permalänk: https://www.webforum.nu/p/1026169 ## #4 — limpon, 2003-04-27T15:20Z Kan man dela in strslump i en array för just nu står det då man skriver response.write (strslump) står det 1 2 3 4 5. Är lite dålig än på arrayer men jag håller på o försöka lära mig. Bara man får se koden några gånger brukar den sätta sig i lillhuvudet efter ett tag. Tacksam för snabbt svar. Permalänk: https://www.webforum.nu/p/1026186 ## #5 — Sebbe, 2003-04-27T15:23Z Byt ut ``` Response.Write(strSlump) ``` till ``` arrSlump = Split(strSlump) ' Gör vad du vill, t.ex: For i = 0 To UBound(arrSlump) Response.Write(arrSlump(i) & "
") Next ``` Permalänk: https://www.webforum.nu/p/1026193 ## #6 — limpon, 2003-04-27T15:47Z aha det verkar jäkligt lätt med arrayer. Tack igen sebbe. Permalänk: https://www.webforum.nu/p/1026219 ## #7 — Danielkun, 2004-10-12T07:15Z Varför funkar denna "array-slump" bara bra tills man har en array på 10? Då krashar IIS.. Red. Jag gissar att det är Randomize som inte kan ge högre tal än 9? Hur löser jag så jag kan använda högre tal? Permalänk: https://www.webforum.nu/p/1458331 ## #8 — Koplik, 2004-10-12T07:45Z Det är inte bara så att du glömt att Dim:a arrayen efter du utökade arrayen. Arrayer klarar betydligt mer än 9 och det gör också Randomize() Permalänk: https://www.webforum.nu/p/1458337 ## #9 — Danielkun, 2004-10-12T08:04Z Jag körde denna kod, om det står 9 i arrayen så funkar det utmärkt , men när det är 10 så krashar IIS. ``` ReDim Order(10) blnSlump = False i = 0 Do Until blnSlump Randomize intSlump = Int(Rnd * UBound(Order)) + 1 If InStr(strSlump, intSlump) = 0 Then strSlump = strSlump & " " & intSlump If i = UBound(Order) - 1 Then blnSlump = True End If i = i + 1 End If Loop Response.Write(strSlump) ``` Permalänk: https://www.webforum.nu/p/1458345 ## #10 — brorsan, 2008-01-18T14:47Z Hej, Jag är nybörjare på asp och undrar om någon vänlig själ kan och vill omvandla den här koden (eller har en annan bättre) till en komplett kod från if till end if som slumpar ut dessa includes i random ordning (utan att någon include upprepas). så att vid nästa sidvisning kan det bli t.ex. så här: \