<< S/MIME | Home | Small bug in LotusScript Vector class >>

Zet (Set) class in LotusScript

Public Class Zet As Vector
   'declarations
   Private pValues As Vector
   
   '/**
   ' * Constructor.
   ' */
   Public Sub New()
      Set Me.pValues = New Vector()
   End Sub
   
   '/**
   ' * Adds only unique elements.
   ' */
   Public Sub AddElement(d As Variant)
      'see if the vector contains this element already
      If Not Me.pValues.Contains(d.UniversalID) Then
         Call Vector..AddElement(d)
         Call Me.pValues.AddElement(d.UniversalID)
      End If
   End Sub
   
   Public Function Size() As Integer
      Size = Vector..Size()
   End Function
   
   Public Function Elements() As Enumeration
      Set Elements = Vector..Elements()
   End Function
   
End Class

Responses[2] RSS feed for responses to this blog entry
Posted by Mikkel Flindt Heisterberg on 29 November 2004 00:44:27 CET #


Avatar: Johan Känngård

Re: Zet (Set) class in LotusScript

Comment from Johan Känngård on 29 November 2004 11:09:30 CET #
Isn't your addElement method hardcoded for NotesDocuments, since you are using d.UniversalID? Isn't it better to override the contains (actually the indexOf) method, so that you can test if any of the UNIDs already have been added? Thanks for the bug report btw :-D

Re: Zet (Set) class in LotusScript

Comment from Mikkel Heisterberg on 29 November 2004 12:39:25 CET #
Yes - probably... I did the Zet to solve a concrete problem that had to do with looping a collection multiple times and needed to capture unique documents but the code should be made generic.