Remove dublicate elements

HCL Domino Domino Forum
1

Hi, I have a problem to remove dublicate elements from the field. Domino 6 got a new key; ArrayUnique. How can I deploy it into my code? Thanks!!!

Sub Click(Source As Button)

Dim workspace As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim doc As NotesDocument

Dim d As Variant

Dim s2 As Variant

Dim xs As Integer

Dim x As Integer

Dim y As Integer	

Set uidoc = workspace.CurrentDocument

Set doc = uidoc.Document

'sort Test

d= doc.Test

xs = Ubound(d)	

For y = xs To 1 Step -1

	For x = xs To xs-y+1 Step -1

	z = Strcompare(d(x),d(x-1))

		If z < 0 Then

			s2 = d(x)

			d(x) = d(x-1) 

			d(x-1) = s2 

		End If

	Next

Next

doc.Test = d

End Sub

2

Subject: remove dublicate elements

doc.Test = ArrayUnique(doc.GetFirstItem(“Test”).values)

3

Subject: Or perhaps: doc.Test = ArrayUnique(doc.Test)

4

Subject: remove dublicate elements

i think we can use @unique function for doing this