Accélérer le tri d'une list box

Question

Bonjour, 
Je trie les éléments d'une list box "List" selon une zone qui commence en position "Offset" et d'une longueur "Length"
Do  Moved = False  For i = 0 To List.ListCount - 2        CurrItem = Mid$(List.List(i), Offset, Length)        NextItem = Mid$(List.List(i + 1), Offset, Length)        If CurrItem < NextItem Then          Moved = True          Temp = List.List(i)          List.List(i) = List.List(i + 1)          List.List(i + 1) = Temp      End If  Next iLoop Until Moved = FalseCeci fonctionne très bien sauf que le tri est très lent.
Pensez-vous que le fait de copier la list box dans un tableau, trier le tableau puis recopier dans la list box accélérerait le traitement ?
Sinon, autre idée ?

Whismeril · Answer

Bonsoir
si tu as une piste, pourquoi ne pas avoir essayé?
Même si VB6 c'est vieux pour moi, il est possible que ce qui allonge le temps de l'algorithme de tri est le fait de faire des Mid$ à répétition.
Tu peux essayer de copier le texte "mélanger" dans ton tableau, par exemple si tu trie à partir du 4eme caractère, au lieu de copier
"Coucou c'est moi!" tu copies "cou c'est moi!Cou".
Après le tri, quand tu recharges la liste tu "démélanges".

Whismeril · Answer

Tu peux aussi essayer de changer d'algo de tri, voir le tableau
https://fr.wikipedia.org/wiki/Algorithme_de_tri

vb95 · Answer

bonjour
A adapter pour ton cas vu que ton tri est fonction d'une partie de l'élément de la liste si j'ai bien compris : http://codes-sources.commentcamarche.net/forum/affich-7005642-tri-rapide-quicksort-d-un-tableau-de-chaines-de-caracteres 
Le tri QuickSort est l'un des plus rapide

Accélérer le tri d'une list box

3 réponses

Votre réponse

Discussions similaires