Indicates if an array contains duplicate values

ASP Free Forums Sponsor:

February 22nd, 2007, 05:29 AM

layarose

Registered User

Join Date: Jan 2007

Posts: 4

Time spent in forums: 1 h 50 m 49 sec
Reputation Power: 0

Indicates if an array contains duplicate values

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.

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
%>

sourcecodesworld.com

Viewing: ASP Free Forums > Programming > Code Bank > Indicates if an array contains duplicate values

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump