Collection Class

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Collection Class

Logged in as: Guest

arrSession:exec spGetSession 2,16,32876

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Collection Class
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Collection Class - 3/30/2006 7:07:37 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

I posted this in a thread and I don't wnat to promote double posting, but I thought it was worthy of a post here as well. This class gives basic collection functionality.

'=====================================================================================
'
'    Class:        Collection
'    Author:        EBGreen
'
'    Public Properties:
'            Count - Read only property representing the number of objects in the Collection
'            Items - Read only property that returns an array of the items in the collection
'    Public Methods:
'            Add(oItem) - Adds oItem as the last element in the Collection
'            Sort() - Returns an array of the objects in the collection sorted if possible
'            SortInPlace - Sorts the actual collection itself if possible.
'            Exists(oItem) - Returns the index of the first instance of oItem and returns -1
'                    if oItem does not exist in the collection.
'            Remove(nIndex) - Removes the nIndexth item from the collection.
'    Revision History:
'            3/1/06 - EBG - Created
'======================================================================================

Class Collection
   Private arrContents()
   Private bFirstAdd
   
   Private Sub Class_Initialize()
       bFirstAdd = True        
   End Sub
   Public Sub Add(oItem)
       If bFirstAdd Then
           ReDim arrContents(0)
           bFirstAdd = False
       Else
           ReDim Preserve arrContents(UBound(arrContents) + 1)
       End If
       arrContents(UBound(arrContents)) = oItem
   End Sub
   Public Property Get Count()
       If bFirstAdd Then
           Count = 0
           Exit Property
       End If
       Count = UBound(arrContents) + 1
   End Property
   Public Property Get Items()
       Items = arrContents
   End Property
   Public Function Sort()
       'Returns a sorted array of the items
       Sort = BubbleSort(arrContents)
   End Function
   Public Sub SortInPlace()
       BubbleSortInPlace()
   End Sub
   Private Function BubbleSort( arr )
       dim arr_j, arr_j1, i, j, temp
       for i = UBound(arr) - 1 To 0 Step -1
           for j = 0 to i
               arr_j = arr( j )
               arr_j1 = arr( j + 1 )
               if arr_j > arr_j1 Then
                   temp=arr_j1
                   arr(j+1)=arr_j
                   arr(j)=temp
               end If
           Next
       Next
       BubbleSort = arr
   End Function
   Private Sub BubbleSortInPlace()
       dim arr_j, arr_j1, i, j, temp
       for i = UBound(arrContents) - 1 To 0 Step -1
           for j = 0 to i
               arr_j = arrContents( j )
               arr_j1 = arrContents( j + 1 )
               if arr_j > arr_j1 Then
                   temp=arr_j1
                   arrContents(j+1)=arr_j
                   arrContents(j)=temp
               end If
           Next
       Next
   End Sub
   Public Function Exists(oItem)
       Dim oContentItem
       Dim i
       
       i = 0
       For Each oContentItem In arrContents
           If oContentItem = oItem Then
               Exists = i
               Exit Function
           End If
           i = i + 1
       Next
       Exists = -1
   End Function
   Public Function Remove(nIndex)
       Dim i, j
       Dim arrTemp
       
       arrTemp = arrContents
       ReDim arrContents(UBound(arrTemp) -1)
       j = 0
       For i = 0 To UBound(arrTemp)
           If Not i = nIndex Then
               arrContents(j) = arrTemp(i)
               j = j + 1
           Else
               Remove = arrTemp(i)
           End If
       Next
   End Function
End Class

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm