webForumDet fria alternativet

Randomize.

0 svar · 259 visningar · startad av Melitta

MelittaMedlem sedan sep. 2003448 inlägg
#1

Har suttit och donat lite med ett random sctipt här och min fråga är, skulle detta script kunna generera 20k+ slumpningar där ingen dublett uppstår?
Finns det nått smart sätt att kolla detta på?
Den koll jag har nu litar jag inte riktigt på eftersom den alltid tar rad 256 som dublett oavsett om den är det eller inte.

Detta är bara av ren nyfikenhet och ska väll igentligen inte användas till nått men det skulle vara skoj att veta.

<%
function strRandom(antal)
	random = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,Y,V,W,Z," & _
				 "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,y,v,w,z," & _
				 "1,2,3,4,5,6,7,8,9,0," & _
				 "_,-"
	
	arrRandomThis = split(random,",")
	Randomize Timer
	for i = 1 to int(antal)
		Randomize Timer
		intStart = int(Rnd*((ubound(arrRandomThis)-1)/10)*10) + 1
		makeStr = makeStr & arrRandomThis(intStart)
	next
	strNow = replace(now(),":","")
	strNow = replace(strNow,"-","")
	strNow = replace(strNow," ","")
	strRandom = left(strNow,12) & "_" & makeStr
end function

for iCheck = 0 to 20000
	getRandom = strRandom(5)
	if iCheck = 0 then 
		check = getRandom
		else
		if instr(getRandom,check) > 0 then check = check & " " & getRandom : response.write "<strong>"& iCheck &" - "& getRandom & "</strong><br />"
	end if
next
%>
129 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
126 ms — hämta tråd, inlägg och bilagor (db)