Test of element bestaat in collectie

[epfangb]

Is er een mogelijkheid om te testen of een element bestaat in een zelf gedefinieerde collectie?

Ik heb bijv. een collectie gemaakt van artikelen, en als een artikel niet bestaat dan wil ik dat het artikel wordt toegevoegd als element in de collectie. Als het artikel wel bestaat moet de teller opgehoogd worden (bijv. artikel("Fiets").aantal = artikel("Fiets").aantal + 1). Ik doe het in een collectie omdat dat veel sneller is dan door een array te moeten loopen.

 

[Wigi]

Lees hier eens bijvoorbeeld.

 

[epfangb]

Lees hier eens bijvoorbeeld.

Dank voor de reactie Wigi, maar ik wil zo veel mogelijk loops voorkomen omdat m'n procedure dan te traag wordt (soms 300.000 x een loop door 1000 elementen). Ik heb het nu als volgt opgelost:

Bij het toevoegen van een element: On Error goto FoutAfhandelingSchrijfArtikel

Daar wordt getest op soort fout:
if err.number = 457 then 'bestaat het element al

Bij het lezen van een element: On Error goto FoutAfhandelingLeesArtikel
if err.number = 5 then 'bestaat het element niet

Niet echt netjes, maar voor nu werkt het. Betere oplossing zijn van harte welkom.