COLLECTION - ITEM E KEY

Private Sub cmdCarrega_Click()
Dim I As Byte
    
    arrString = Split("I6,I5,I1,I4,I3,I2", ",")
    
    obj.Add "Melancia", "I6"
    obj.Add "Banana", "I5"
    obj.Add "Maçã", "I1"
    obj.Add "Pera", "I4"
    obj.Add "Mexirica", "I3"
    obj.Add "Laranja", "I2"
    Debug.Print "----- Inicio"

    For I = 1 To obj.Count
       Debug.Print obj.Item(I)
    Next

    Set obj2 = clsCol.SortCollection(obj)
    Set obj3 = SortCollection(obj)

    Debug.Print "----- Ordenado por Index:"

    For I = 1 To obj3.Count
       Debug.Print obj.Item(obj3.Item(I))
    Next

    Debug.Print "----- Ordenado por Nome:"

    For I = 1 To obj2.Count
       Debug.Print obj2.Item(I)
    Next

    Debug.Print "----- Fim"
End Sub

Private Sub Form_Load()
    Set obj = New Collection
    Set obj2 = New Collection
    Set obj3 = New Collection
    Set clsCol = New clsCollection
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set obj = Nothing
    Set obj2 = Nothing
    Set obj3 = Nothing
    Set clsCol = Nothing
End Sub

Public Function SortCollection(ByVal ColToSort As Collection, Optional ByVal ColSortType As VbCompareMethod = vbTextCompare) As Collection
Dim EachItem As Long
Dim ColTemp As New Collection
Dim OrderNotChanged As Boolean
Dim ArrayItems() As String
Dim FirstStringInArray As String
Dim NumberOfItems As Long

    NumberOfItems = ColToSort.Count
    
    If NumberOfItems = 0 Then
        Exit Function
    End If

    ReDim ArrayItems(NumberOfItems - 1)

    For EachItem = 1 To NumberOfItems
        'ArrayItems(EachItem - 1) = ColToSort.Item(EachItem)
        ArrayItems(EachItem - 1) = arrString(EachItem - 1)
    Next EachItem
    
    Do
      OrderNotChanged = True
          
          For EachItem = 1 To NumberOfItems - 1
              
              If Strings.StrComp(ArrayItems(EachItem - 1), ArrayItems(EachItem), ColSortType) = 1 Then
                  FirstStringInArray = ArrayItems(EachItem - 1)
                  ArrayItems(EachItem - 1) = ArrayItems(EachItem)
                  ArrayItems(EachItem) = FirstStringInArray
                  OrderNotChanged = False
              End If
          
          Next EachItem
    
    Loop Until OrderNotChanged

    For EachItem = 0 To NumberOfItems - 1
        ColTemp.Add ArrayItems(EachItem)
    Next EachItem
    
    Set SortCollection = ColTemp
End Function

Citação:

- Conclusão: Impossível ordenar o valor pela 'key' pois estou passando a collection e não tem como recuperar o valor da 'key'.

Public Function getKeyCollection(obj As Collection, texto As String) As String
    For i = 1 To obj.Count
        If UCase(obj.Item(i)) = UCase(texto) Then
            getKeyCollection = i
        End If
    Next
End Function

Citação:

- Gambiware: Montar uma array paralela com a ordem da key e passar junto com a collection ... mas não dá para passar como parâmetro uma array! Bom ... a array será 'global' então.

Public Function PassandoParametroArray(arTeste As Variant)
    For i = 0 To UBound(arTeste)
        MsgBox arTeste(i)
    Next
End Function

    Dim a() As String
    
    ReDim a(5)
    For i = 0 To 5
        a(i) = i
    Next
    
    PassandoParametroArray a

Public Function SortCollection(ByVal ColToSort As Collection, ByVal arrCol As Variant, ByVal blnItemKey, Optional ByVal ColSortType As VbCompareMethod = vbTextCompare) As Collection
=========================
If blnItemKey Then  'Trabalha por Item
    ArrayItems(EachItem - 1) = ColToSort.Item(EachItem)
Else                'Trabalha por Key
    ArrayItems(EachItem - 1) = arrCol(EachItem - 1)
End If
=========================

    O retorno da array será o INDEX. Então precisa acertar isto também no código:

=========================
For i = 1 To obj3.Count
    Debug.Print obj.Item(obj3.Item(i))
Next
=========================


    2º) Mas a "getKeyCollection" não é bem isto ... eu explico!

    Veja esta linha:
=========================
obj.Add "Melancia", "I6"
=========================

    O retorno dela no "getKeyCollection" é "1" ... este valor é da posição de gravação na variável. O que eu quero de retorno é o valor da "key" que no caso é "I6", para depois pegar o "item" ("Melancia") e colocar na ordem.


[]'s,
Tunusat.