"Torben" <usenet_mail@yahoo.dk> wrote in message
news:3dbe3b0e$0$28787$edfadb0f@dspool01.news.tele.dk...
> Hej gruppe,
>
> jeg står og skal finde ud af om værdierne i et array er ens - hvordan gør
> jeg det nemmest ?
<%
function chkArr(byRef arr)
dim strArr, blnEns, i
blnEns=false
if ubound(arr)<=1 then
blnEns=true
else
strFirstEl=arr(0)
i=1
while blnEns=false and i<=ubound(arr)
if arr(i)=strFirstEl then blnEns=true
i=i+1
wend
end if
chkArr=blnEns
end function
' 2 test-arrays;
arrEns=array(6,6,6,6,6)
arrUens=array(0,3,56,34)
' Kald funktionen her; den returnerer en bool
response.write "Er elementerne i arrEns ens?: "&CStr(chkArr(arrEns))&"<br>"
response.write "Er elementerne i arrUens ens?: "&CStr(chkArr(arrUens))
%>
>
> På forhånd tak !
> /Torben
>
>
|