{"id":1188,"date":"2020-04-26T15:04:58","date_gmt":"2020-04-26T15:04:58","guid":{"rendered":"https:\/\/www.budus.it\/Blog\/?p=1188"},"modified":"2020-04-26T15:04:59","modified_gmt":"2020-04-26T15:04:59","slug":"vba-gestione-di-un-dizionario","status":"publish","type":"post","link":"https:\/\/www.budus.it\/Blog\/vba-gestione-di-un-dizionario\/","title":{"rendered":"VBA: Gestione di un Dizionario"},"content":{"rendered":"\n

No, non si tratta dell’oggetto Scripting.Dictionary<\/strong> –<\/strong> del quale, peraltro, vi consiglio l’uso, se potete – il cui utilizzo \u00e8 ampiamente documentato in rete ma, bens\u00ec, una mia ristrettissima implementazione<\/em>.<\/p>\n\n\n\n

In pratica, senza dover caricare librerie aggiuntive (operazione che mi sembra abbia una pessima portabilit\u00e0, tende a dare problemi appena si cambia PC con magari una versione Windows diversa), ho preferito crearmi io qualcosa di basato su quanto il linguaggio VBA offre.<\/p>\n\n\n\n\n\n\n\n

Iniziamo quindi dalla dichiarazione del tipo:<\/p>\n\n\n\n

Type Dizionario\n    Chiave          As String\n    Valore          As String\nEnd Type<\/code><\/pre>\n\n\n\n
Banale, vero ?<\/p>\n\n\n\n
Semplicemente un’accoppiata Chiave\/Valore, tipica dei Dizionari.<\/p>\n\n\n\n
Come tutti – o quasi – i Dizionari – che conosco io – la mia implementazione ha le seguenti caratteristiche:<\/p>\n\n\n\n
  1. Le chiavi sono Case Sensitive<\/strong>; una chiave di nome “pippo” \u00e8 diversa da “Pippo”, tanto per intenderci.<\/li>
  2. Non \u00e8 possibile aggiungere pi\u00f9 volte la medesima chiave (salvo non abbia minuscole\/MAIUSCOLE diverse, appunto, vedi regola [1]).<\/li>
  3. Le chiavi sono nell’ordine con le quali vengono inserite.<\/li>
  4. \u00c8 possibile modificare i valori delle chiavi.<\/li>
  5. \u00c8 possibile eliminare le chiavi.<\/li>
  6. Il valore delle chiavi \u00e8 una stringa; nulla per\u00f2 vi impedisce di modificare la mia implementazione e utilizzare qualsiasi altra cosa il linguaggio consenta.<\/li><\/ol>\n\n\n\n
    Ok, veniamo alla funzione che serve per modificare il dizionario (Aggiungere, Modificare e Togliere chiavi):<\/p>\n\n\n\n
    Sub DizionarioModifica( _\n    vDizionario() As Dizionario, _\n    sChiave As String, _\n    sValore As String, _\n    Optional bModifica As Boolean = False, _\n    Optional bElimina As Boolean = False)\n    Dim lDictSize   As Long: lDictSize = 0\n    Dim lIndex      As Long: lIndex = 0\n    \n    If sChiave = \"\" _\n    And bElimina = False Then Exit Sub\n    \n    On Error Resume Next\n    lDictSize = UBound(vDizionario)\n    \n    If lDictSize = 0 Then\n        If bElimina = True Then Exit Sub\n        \n        lDictSize = 1\n        ReDim Preserve vDizionario(lDictSize)\n        vDizionario(lDictSize - 1).Chiave = sChiave\n        vDizionario(lDictSize - 1).Valore = sValore\n    Else\n        ' PRIMA SI ACCERTA CHE LA CHIAVE NON SIA GIA' PRESENTE.\n        For lIndex = 0 To lDictSize\n            If vDizionario(lIndex).Chiave = sChiave Then\n                If bElimina = True Then\n                    If lIndex < lDictSize - 1 Then\n                        vDizionario(lIndex).Chiave = vDizionario(lIndex + 1).Chiave\n                        vDizionario(lIndex).Valore = vDizionario(lIndex + 1).Valore\n                        sChiave = vDizionario(lIndex + 1).Chiave\n                    Else\n                        lDictSize = lDictSize - 2\n                    End If\n                Else\n                    If bModifica = False Then Exit Sub\n                    \n                    vDizionario(lIndex).Valore = sValore\n                    Exit Sub\n                End If\n            End If\n        Next\n        \n        lDictSize = lDictSize + 1\n        \n        ReDim Preserve vDizionario(lDictSize)\n        If bElimina = True Then Exit Sub\n        vDizionario(lDictSize - 1).Chiave = sChiave\n        vDizionario(lDictSize - 1).Valore = sValore\n    End If\nEnd Sub<\/code><\/pre>\n\n\n\n
    La sub-routine “DizionarioModifica” accetta nell’ordine l’array dizionario<\/em>, la chiave<\/em> da gestire, l’eventuale valore<\/em> e, opzionalmente, i flag booleani bModifica<\/em> e bElimina<\/em> che servono rispettivamente per abilitare la modifica del valore o l’eliminazione della chiave.<\/p>\n\n\n\n
    Dopodich\u00e9 abbiamo la funzione per cercare una chiave all’interno del dizionario:<\/p>\n\n\n\n
    Function DizionarioCerca( _\n    vDizionario() As Dizionario, _\n    sChiave As String, _\n    ByRef sValore As String) As Boolean\n    DizionarioCerca = False\n    Dim lDictSize   As Long: lDictSize = 0\n    Dim l As Long\n    \n    On Error Resume Next\n    lDictSize = UBound(vDizionario)\n    \n    If lDictSize = 0 Then Exit Function\n    \n    For l = 0 To UBound(vDizionario) - 1\n        If vDizionario(l).Chiave = sChiave Then\n            sValore = vDizionario(l).Valore\n            DizionarioCerca = True\n            Exit Function\n        End If\n    Next l\nEnd Function<\/code><\/pre>\n\n\n\n
    Questa funzione “DizionarioCerca” ritorna un valore booleano True<\/strong> se ha successo, altrimenti, False<\/strong>; la ricerca prevede che venga passato l’array del dizionario<\/em>, la chiave da cercare<\/em> e una variabile contenitore stringa<\/em> che ha il compito di ricevere l’eventuale valore individuato.<\/p>\n\n\n\n
    Perdonatemi, non consente di sapere se c’\u00e8 una o pi\u00f9 chiavi che hanno un determinato valore: per i miei scopi la cosa non serviva e non l’ho implementata. Ma, prendendo spunto, non credo sar\u00e0 troppo difficile colmare la cosa.<\/p>\n\n\n\n
    Incollo un codice di test che ho usato per verificare tutto funzionasse come previsto:<\/p>\n\n\n\n
    Sub test()\n    Dim vDizionario() As Dizionario\n    Dim sValore As String\n    \n    If DizionarioCerca( _\n        vDizionario, _\n        \"sChiave\", _\n        sValore) = False Then\n        Debug.Print \"Chiave non trovata.\"\n    Else\n        Debug.Print \"sValore = \" & sValore\n    End If\n    \n    DizionarioModifica vDizionario, \"sChiave\", \"sValore\"\n    DizionarioModifica vDizionario, \"sChiave\", \"sValore\"\n    DizionarioModifica vDizionario, \"sChiave\", \"sValore1\", True\n    DizionarioModifica vDizionario, \"sChiave2\", \"sValore1\", True\n    DizionarioModifica vDizionario, \"sChiave2\", \"sValore2\", True\n    DizionarioModifica vDizionario, \"sChiave3\", \"sValore3\"\n    DizionarioModifica vDizionario, \"sChiave3\", \"sValore4\"\n    DizionarioModifica vDizionario, \"sChiave\", \"sValore\", True, True\n    DizionarioModifica vDizionario, \"sChiave\", \"sValore\"\n    DizionarioModifica vDizionario, \"sChiave3\", \"sValore\", True\n    \n    Dim l As Long\n    For l = 0 To UBound(vDizionario) - 1\n        Debug.Print vDizionario(l).Chiave & \" = \" & vDizionario(l).Valore\n    Next l\n    \n    If DizionarioCerca( _\n        vDizionario, _\n        \"sChiave2\", _\n        sValore) = False Then\n        Debug.Print \"Chiave non trovata.\"\n    Else\n        Debug.Print \"sValore = \" & sValore\n    End If\n    If DizionarioCerca( _\n        vDizionario, _\n        \"sChiave4\", _\n        sValore) = False Then\n        Debug.Print \"Chiave non trovata.\"\n    Else\n        Debug.Print \"sValore = \" & sValore\n    End If\n    Debug.Print \"END\"\nEnd Sub\n<\/code><\/pre>\n\n\n\n
    <\/p>\n","protected":false},"excerpt":{"rendered":"
    No, non si tratta dell’oggetto Scripting.Dictionary – del quale, peraltro, vi consiglio l’uso, se potete – il cui utilizzo \u00e8 ampiamente documentato in rete ma, bens\u00ec, una mia ristrettissima implementazione. In pratica, senza dover caricare librerie aggiuntive (operazione che mi sembra abbia una pessima portabilit\u00e0, tende a dare problemi appena si cambia PC con magari … Leggi tutto “VBA: Gestione di un Dizionario”<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[57,6],"tags":[242,167],"class_list":["post-1188","post","type-post","status-publish","format-standard","hentry","category-development","category-software","tag-vba","tag-visual-basic"],"_links":{"self":[{"href":"https:\/\/www.budus.it\/Blog\/wp-json\/wp\/v2\/posts\/1188","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.budus.it\/Blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.budus.it\/Blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.budus.it\/Blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.budus.it\/Blog\/wp-json\/wp\/v2\/comments?post=1188"}],"version-history":[{"count":2,"href":"https:\/\/www.budus.it\/Blog\/wp-json\/wp\/v2\/posts\/1188\/revisions"}],"predecessor-version":[{"id":1190,"href":"https:\/\/www.budus.it\/Blog\/wp-json\/wp\/v2\/posts\/1188\/revisions\/1190"}],"wp:attachment":[{"href":"https:\/\/www.budus.it\/Blog\/wp-json\/wp\/v2\/media?parent=1188"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.budus.it\/Blog\/wp-json\/wp\/v2\/categories?post=1188"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.budus.it\/Blog\/wp-json\/wp\/v2\/tags?post=1188"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}