HasDups Function :
Indicates if an array has at least one duplicate value.
Description:
The HasDups function indicates if an array contains duplicate values.
HasDups returns True if more than one array subscript value exactly matches another subscript value.
HasDups returns False if the array contains no matching values.
Syntax:
boolean = HasDups(arrayinput)
Example:
<%
'--- HasDups returns True
'--- ( 1 is duplicated )
response.write HasDups(Array(1,2,3,4,5,6,7,8,9,0,1))
'--- HasDups returns False
'--- (All items in the array are unique)
response.write HasDups(Array(1,2,3,4,5,6,7,8,9,10,11))
%>
ASP Source Code:
<%
Private Function HasDups(byVal arrayinput)
dim wkarray, j, i, l
wkarray = arrayinput
for j = 0 to ubound( wkarray )
l = 0
for i = 0 to ubound( wkarray )
if wkarray(i) = wkarray(j) then l = l + 1
if l > 1 then
HasDups = True
Exit function
end if
next
next
HasDups = False
End Function
%>
|
