'Unique' Function Apply To Arrays

Remove all multiple values from a string array. input : t, the array to tranform output: t, the transformed array

exemple: "one","two","one","three","two" will be transformed in : "one","two","three" Sub Unique ( t( ) As String ) Dim temp() As String Dim mem As String Dim i As Integer Dim cpt As Integer Dim size As Integer size = Ubound(t) Redim temp(size) As String For i = 0 To size - 1 If t(i) = "" Then Else mem = t(i) End If If mem = t(i + 1) Then t(i) = "" t(i + 1) = "" End If Next For i = 0 To size If t(i) <> "" Then temp(cpt) = t(i) cpt = cpt + 1 End If Next If cpt > 0 Then cpt = cpt - 1 End If Redim t(cpt) For i = 0 To cpt t(i) = temp(i) Next i End Sub

This was first published in November 2000

Dig deeper on Domino Resources - Part 2

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:

SearchWinIT

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

SearchVirtualDataCentre.co.uk

Close