@Unique In Lotusscript

Retrieve a list of unique values from a list.
Dim flag_has As Integer
Dim newarray() As Variant

Redim newarray(0) As Variant
newarray(0) = ""

Forall oldText In oldarray
flag_has = False
Forall newText In newarray
If oldText = newText Then
flag_has = True
Exit Forall
End If
End Forall
If Not flag_has Then
If newarray(0) ="" Then ' First time
newarray(0) = oldText
Redim Preserve newarray(Ubound(newarray)+1)
newarray(Ubound(newarray)) = oldText
End If
End If
End Forall

Dig Deeper on Lotus Notes Domino Administration Tools

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.




  • 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 ...