Array Unique problem

HCL Domino Domino Forum
1

I posted my problem two three days back,but could not get the solution,my problem ishttp://www-10.lotus.com/ldd/nd6forum.nsf/ShowMyTopicsAllThreadedweb/06ef83b74d791cbd85256fbd003a0c7d?OpenDocument

2

Subject: Array Unique problem

Try this:

Dim rcategory(0 To 5) As String

Dim uniquearray() As String

Dim bIsThere As Variant

Dim iCount As Integer



rcategory(0)="Allan"

rcategory(1)="Dali"

rcategory(2)="Dali"

rcategory(3)="Donald"

rcategory(4)="Allan"

rcategory(5)="Dali"



Forall a In rcategory

	bIsThere = False

	Forall b In uniquearray

		If a = b Then

			bIsThere = True

			Exit Forall

		End If

	End Forall

	If bIsThere = False Then

		Redim Preserve uniquearray(0 To iCount) As String

		uniquearray(iCount) = a

		iCount = iCount + 1

	End If

End Forall
3

Subject: Got it

Yes I got it thanks a Lot.

Regards