Another Way To Unique An Array.

Removes duplicate items from an array.

array = Input array
returnArray = array to return values to



Function UniqueArray( array As Variant , returnArray As Variant ) As Integer

Dim xlist List As Variant
Dim i As Integer

'*** Make sure arrays are passed to avoid some errors
If Not Isarray( returnArray ) Or Not Isarray( array ) Then
UniqueArray = False
Exit Function
End If

i = 0

'*** Use list to remove duplicates as list tags have to be unique
Forall e In array
xlist(e) = e
End Forall

'*** Build a new array containing unique items
Forall t In xlist
Redim Preserve returnArray(i)
returnArray(i) = t
i = i + 1
End Forall

UniqueArray = True
End Function

This was first published in November 2000
This Content Component encountered an error

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchDataCenter

SearchExchange

SearchContentManagement

Close