'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

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