Un esempio che mostra come sia semplice utilizzare una collection per analizzare un elenco e ricavarne un elenco di dati univoci. Un esempio potrebbe essere un elenco di dettaglio righe di vendite: volendo importare i dati nel proprio foglio di calcolo è comodo avere l'elenco di tutti clienti (e articoli) presenti.
Nell'esempio qui sotto i singoli dati vengono memorizzati in una
classe e associati ad una
chiave, in questo modo oltre ad avere gli elementi univoci tutti dati che servono saranno immediatamente disponibili senza ulteriori passaggi.
La procedura legge i dati dalla riga 3, colonne B e C, e nel caso il codice non sia
già presente nella collection crea l'oggetto e lo aggiunge
Dim Clienti
As New Collection
Ri = 3
While Fi.
Cells(Ri, 2) <> ""
IdCliente = Fi.
Cells(Ri, "B").Value
' verifica che il codice non sia già presente
If (
Not (InCollection(Clienti, IdCliente)))
Then
'crea l'oggetto per aggiungere i dati
Dim Cl
As New ClCliente
Cl.IdCliente = Fi.
Cells(Ri, "B")
Cl.DsCliente = Fi.
Cells(Ri, "C")
'aggiunge l'oggetto e la chiave alla colletion
Clienti.Add Item:=Cl, Key:=IdCliente
'distrugge l'oggetto temporaneo
Set Cl =
Nothing
End If
Ri = Ri + 1
Wend
La definizione delle classe
ClCliente con solo due dati per il nostro esempio:
Gli esempi contenuti nel sito sono per uso personale, non é consentito l'uso professionale, commerciale o la riproduzione senza autorizzazione.
