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



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:




  • iSeries tutorials'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 ...