Table de hachage / tableau associatif dans VBA


90

Je n'arrive pas à trouver la documentation expliquant comment créer une table de hachage ou un tableau associatif dans VBA. Est-ce même possible?

Pouvez-vous créer un lien vers un article ou mieux encore publier le code?


duplication possible de VBA a-t
mmmmmm

Double possible de VBA a-t
inetphantom

Réponses:


109

Je pense que vous recherchez l'objet Dictionary, trouvé dans la bibliothèque Microsoft Scripting Runtime. (Ajoutez une référence à votre projet à partir du menu Outils ... Références dans le VBE.)

Cela fonctionne à peu près avec n'importe quelle valeur simple pouvant tenir dans une variante (les clés ne peuvent pas être des tableaux, et essayer d'en faire des objets n'a pas beaucoup de sens. Voir le commentaire de @Nile ci-dessous.):

Dim d As dictionary
Set d = New dictionary

d("x") = 42
d(42) = "forty-two"
d(CVErr(xlErrValue)) = "Excel #VALUE!"
Set d(101) = New Collection

Vous pouvez également utiliser l'objet Collection VBA si vos besoins sont plus simples et que vous ne voulez que des clés de chaîne.

Je ne sais pas si l'un ou l'autre hache réellement quelque chose, vous voudrez peut-être approfondir votre recherche si vous avez besoin de performances de type table de hachage. (EDIT: Scripting.Dictionary utilise une table de hachage en interne.)


oui - le dictionnaire est la réponse. J'ai aussi trouvé la réponse sur ce site. stackoverflow.com/questions/915317/…
user158017

2
C'est une bonne réponse: mais les clés ne sont jamais des objets - ce qui se passe réellement, c'est que la propriété par défaut de l'objet est convertie en chaîne et utilisée comme clé. Cela ne fonctionne pas si l'objet n'a pas de propriété par défaut (généralement «nom») définie.
Nigel Heffernan

@Nile, merci. Je vois que vous avez effectivement raison. Il semble également que si l'objet n'a pas de propriété par défaut, la clé de dictionnaire correspondante est Empty. J'ai édité la réponse en conséquence.
jtolle

Plusieurs structures de données expliquées ici- analystcave.com/... Ce post montre comment utiliser les hashtables .NEXT dans Excel VBA- stackoverflow.com/questions/8677949/...
johny why

au-dessus du lien typo: .NET, pas .NEXT.
johny why



6

On y va ... il suffit de copier le code dans un module, c'est prêt à l'emploi

Private Type hashtable
    key As Variant
    value As Variant
End Type

Private GetErrMsg As String

Private Function CreateHashTable(htable() As hashtable) As Boolean
    GetErrMsg = ""
    On Error GoTo CreateErr
        ReDim htable(0)
        CreateHashTable = True
    Exit Function

CreateErr:
    CreateHashTable = False
    GetErrMsg = Err.Description
End Function

Private Function AddValue(htable() As hashtable, key As Variant, value As Variant) As Long
    GetErrMsg = ""
    On Error GoTo AddErr
        Dim idx As Long
        idx = UBound(htable) + 1

        Dim htVal As hashtable
        htVal.key = key
        htVal.value = value

        Dim i As Long
        For i = 1 To UBound(htable)
            If htable(i).key = key Then Err.Raise 9999, , "Key [" & CStr(key) & "] is not unique"
        Next i

        ReDim Preserve htable(idx)

        htable(idx) = htVal
        AddValue = idx
    Exit Function

AddErr:
    AddValue = 0
    GetErrMsg = Err.Description
End Function

Private Function RemoveValue(htable() As hashtable, key As Variant) As Boolean
    GetErrMsg = ""
    On Error GoTo RemoveErr

        Dim i As Long, idx As Long
        Dim htTemp() As hashtable
        idx = 0

        For i = 1 To UBound(htable)
            If htable(i).key <> key And IsEmpty(htable(i).key) = False Then
                ReDim Preserve htTemp(idx)
                AddValue htTemp, htable(i).key, htable(i).value
                idx = idx + 1
            End If
        Next i

        If UBound(htable) = UBound(htTemp) Then Err.Raise 9998, , "Key [" & CStr(key) & "] not found"

        htable = htTemp
        RemoveValue = True
    Exit Function

RemoveErr:
    RemoveValue = False
    GetErrMsg = Err.Description
End Function

Private Function GetValue(htable() As hashtable, key As Variant) As Variant
    GetErrMsg = ""
    On Error GoTo GetValueErr
        Dim found As Boolean
        found = False

        For i = 1 To UBound(htable)
            If htable(i).key = key And IsEmpty(htable(i).key) = False Then
                GetValue = htable(i).value
                Exit Function
            End If
        Next i
        Err.Raise 9997, , "Key [" & CStr(key) & "] not found"

    Exit Function

GetValueErr:
    GetValue = ""
    GetErrMsg = Err.Description
End Function

Private Function GetValueCount(htable() As hashtable) As Long
    GetErrMsg = ""
    On Error GoTo GetValueCountErr
        GetValueCount = UBound(htable)
    Exit Function

GetValueCountErr:
    GetValueCount = 0
    GetErrMsg = Err.Description
End Function

À utiliser dans votre application VB (A):

Public Sub Test()
    Dim hashtbl() As hashtable
    Debug.Print "Create Hashtable: " & CreateHashTable(hashtbl)
    Debug.Print ""
    Debug.Print "ID Test   Add V1: " & AddValue(hashtbl, "Hallo_0", "Testwert 0")
    Debug.Print "ID Test   Add V2: " & AddValue(hashtbl, "Hallo_0", "Testwert 0")
    Debug.Print "ID Test 1 Add V1: " & AddValue(hashtbl, "Hallo.1", "Testwert 1")
    Debug.Print "ID Test 2 Add V1: " & AddValue(hashtbl, "Hallo-2", "Testwert 2")
    Debug.Print "ID Test 3 Add V1: " & AddValue(hashtbl, "Hallo 3", "Testwert 3")
    Debug.Print ""
    Debug.Print "Test 1 Removed V1: " & RemoveValue(hashtbl, "Hallo_1")
    Debug.Print "Test 1 Removed V2: " & RemoveValue(hashtbl, "Hallo_1")
    Debug.Print "Test 2 Removed V1: " & RemoveValue(hashtbl, "Hallo-2")
    Debug.Print ""
    Debug.Print "Value Test 3: " & CStr(GetValue(hashtbl, "Hallo 3"))
    Debug.Print "Value Test 1: " & CStr(GetValue(hashtbl, "Hallo_1"))
    Debug.Print ""
    Debug.Print "Hashtable Content:"

    For i = 1 To UBound(hashtbl)
        Debug.Print CStr(i) & ": " & CStr(hashtbl(i).key) & " - " & CStr(hashtbl(i).value)
    Next i

    Debug.Print ""
    Debug.Print "Count: " & CStr(GetValueCount(hashtbl))
End Sub

18
Je ne vais pas rejeter un tout nouvel utilisateur qui publie du code, mais généralement appeler quelque chose une "table de hachage" implique que l'implémentation sous-jacente est en fait une table de hachage! Ce que vous avez ici est un tableau associatif implémenté avec un tableau régulier plus une recherche linéaire. Voir ici la différence: en.wikipedia.org/wiki/Hash_table
jtolle

7
En effet. Le point d'une table de hachage est que le `` hachage '' de la clé conduit à l'emplacement de sa valeur dans le stockage sous-jacent (ou du moins suffisamment près, dans le cas de clés en double autorisées), éliminant ainsi le besoin d'une recherche potentiellement coûteuse.
Cor_Blimey

3
Beaucoup trop lent pour les plus gros hashtables. L'ajout de 17 000 entrées prend plus de 15 secondes. Je peux ajouter 500 000 en moins de 6 secondes en utilisant le dictionnaire. 500 000 en moins de 3 secondes en utilisant la table de hachage mscorlib.
Christopher Thomas Nicodemus
En utilisant notre site, vous reconnaissez avoir lu et compris notre politique liée aux cookies et notre politique de confidentialité.
Licensed under cc by-sa 3.0 with attribution required.