'KeyTimesItem Class

Private m_key As String
Private m_times As Integer

Private Sub Class_Initialize()
    Me.key = ""
    Me.times =  0 
End Sub

Property Get key() As String
    key = m_key
End Property

Property Let key(key As String)
    m_key = key
End Property

Property Get times() As Integer
    times = m_times
End Property

Property Let times(times As Integer)
    m_times = times
End Property

Public Sub incf()
    m_times = m_times +  1 
End Sub

'KeyTimesItemCollection Class

Private m_items As Collection




Private Sub Class_Initialize()
    Set m_items = New Collection
End Sub




Property Get all_items() As KeyTimesItem()

    Dim items() As KeyTimesItem
    Dim tmp As Variant
    Dim idx As Integer
    
    idx =  1 
    ReDim items( 1  To m_items.Count)
    
    For Each tmp In m_items
        Set items(idx) = tmp
        idx = idx +  1 
    Next tmp
    
    all_items = items
    
End Property




Property Get all_keys() As String()

    Dim keys() As String
    Dim item As Variant
    Dim idx As Integer
    
    ReDim keys( 1  To m_items.Count)
    
    idx =  1 

    For Each item In m_items
        keys(idx) = item.key
        idx = idx +  1 
    Next item
    
    all_keys = keys
    
End Property




Property Get all_times() As Integer()

    Dim times() As Integer
    Dim item As Variant
    Dim idx As Integer
    
    ReDim times( 1  To m_items.Count)
    
    idx =  1 

    For Each item In m_items
        times(idx) = item.times
        idx = idx +  1 
    Next item
    
    all_times = times
    
End Property




Public Function find_times_by_key(key As String) As Integer

    If (exist_item(key)) Then
        find_times_by_key = m_items(key).times
    Else
        find_times_by_key = - 1 
    End If
    
End Function



Public Function find_item_by_key(key As String) As KeyTimesItem

    If (exist_item(key)) Then
        Set find_item_by_key = m_items(key)
    Else
        Set find_item_by_key = Nothing
    End If
    
End Function




Public Function find_item_by_index(idx As Integer) As KeyTimesItem

    If ((idx >  0 ) And (idx <= m_items.Count)) Then
       Set find_item_by_index = m_items(idx)
    Else
        Set find_item_by_index = Nothing
    End If
    
End Function




Public Function add_if_not_exist(key As String) As Boolean

    If Not (exist_item(key)) Then
    
        Dim item As KeyTimesItem
        Set item = New KeyTimesItem
        
        item.key = key

        m_items.add item:=item, key:=key
        
        add_if_unique = True
    Else
        add_if_unique = False
    End If
    
End Function




Public Function exist_item(key As String) As Boolean

    Dim tmp As Variant
    
    For Each tmp In m_items
        If (tmp.key = key) Then
            exist_item = True
            Exit Function
        End If
    Next tmp
    
    exist_item = False
    
End Function




Property Get length() As Integer
    length = m_items.Count
End Property