FASTCOLLECTION ==> UNE COLLECTION 10000 FOIS PLUS RAPIDE EN LECTURE PAR INDEX QU

violent_ken Messages postés 1812 Date d'inscription mardi 31 mai 2005 Statut Membre Dernière intervention 26 octobre 2010 - 27 mai 2007 à 15:16
BLUEBIBUBBLE Messages postés 116 Date d'inscription samedi 4 juin 2005 Statut Membre Dernière intervention 10 avril 2013 - 2 juin 2007 à 19:27
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/42861-fastcollection-une-collection-10000-fois-plus-rapide-en-lecture-par-index-que-celle-de-vb

BLUEBIBUBBLE Messages postés 116 Date d'inscription samedi 4 juin 2005 Statut Membre Dernière intervention 10 avril 2013 1
2 juin 2007 à 19:27
Slt,
Bon travail tous, on pourrais obtenir un p'tit peu plus de précision sur le timing lors des tests en attendent la fin de la ms en cours avant chaque test, un truc du genre:

t2 = WaitTickCount
For x = 1 To 10000
...
Next x
t2 = GetTickCount - t2

t3 = WaitTickCount
For x = 1 To 100000
...
Next x
t3 = GetTickCount - t3

Function WaitTickCount() As Long
Dim T As Long
T = GetTickCount
Do: Loop While T = GetTickCount
WaitTickCount = GetTickCount
End Function
violent_ken Messages postés 1812 Date d'inscription mardi 31 mai 2005 Statut Membre Dernière intervention 26 octobre 2010 1
1 juin 2007 à 12:20
Merci ;)
@+
waluigii Messages postés 35 Date d'inscription vendredi 18 mai 2007 Statut Membre Dernière intervention 5 janvier 2008
1 juin 2007 à 02:27
Slt,

Formidable ce code...tu mérites une note de 10/10!
Continue le beau travail.=)

@+ Bon succès à toutes et à tous.
violent_ken Messages postés 1812 Date d'inscription mardi 31 mai 2005 Statut Membre Dernière intervention 26 octobre 2010 1
29 mai 2007 à 19:13
Yep c'est vrai, j'ai mis un On Error... pour éviter le bug : la Collection VB gère pas les Index incohérents ;)

En fait je ne l'ai pas précisé, mais le mieux pour tester les diverses classes et leur vitesse est d'appuyer sur les boutons dans l'ordre de haut vers le bas.

@+
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
29 mai 2007 à 13:31
Pour le "ajouter 10000 au début", ca coince avec la VbCollection parce que tu dit d'ajouter l'element après l'element 1... et que la liste est vide => CRASH
Afficher les 22 commentaires