Trier un HashTable?

Version imprimable

16/05/2014, 10h33
Kreepz

Trier un HashTable?
Bonjour à tous!

Voilà j'aimerais trier un hashtable pour ensuite l'utiliser dans un For Each.

J'ai réussi avec une List(Of String), je récupère mes dates dans le bon ordre:
Code:

1 2 3 4 5 6 ListeDeDate:(4 éléments) (1)01/03/2010 (2)20/05/2012 (3)12/11/2012 (4)20/04/2014
Mais dans mon Hashtable:
Code:

1 2 3 4 5 6 7 DateHashTable : (4éléments) (1)20/04/2014 (2)12/11/2012 (3)20/05/2012 (4)01/03/2010
Et j'ai besoin du HashTable car j'ai besoin de deux colonnes (dates et montant).

Merci à vous!
16/05/2014, 10h47
_Ez3kiel

La key est une date et la value un montant, c'est ça ? Et tu veux trier par date décroissante ?
16/05/2014, 10h55
Kreepz
Oui, les key vont être les différentes dates :
- 01/03/2010
- 20/05/2012
- 12/11/2012
- 20/04/2014
Et les values qui correspondent à l'ordre des dates:
- 78,26
- 42,50
- 120,36
- 59,00
Sinon je me suis renseigné sur les sortedList cela serait peut-être la réponse à mon problème?

Si tu utilises une Hashtable juste pour avoir 2 colonnes, mais que tu souhaites que l'une d'elle soit toujours triée, je te conseillerais plutôt la SortedList pour laquelle tu passera un IComparer adapté aux dates. Ainsi le tri des items par date se feront dès l'ajout !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
    Private Sub test()
        Dim comparer As IComparer = New DateComparerDesc
        Dim TaSortedList As SortedList = New SortedList(comparer)
 
        With TaSortedList
            .Add(Date.Parse("12/02/2014"), "Chien")
            .Add(Date.Parse("12/02/2012"), "Chat")
            .Add(Date.Parse("12/02/2013"), "Tartiflette")
            .Add(Date.Parse("12/02/2018"), "Castafiore")
        End With
 
 
        For Each v As String In TaSortedList.Values
            Console.WriteLine(v)
        Next
 
        'Retourne :
        '-Castafiore
        '-Chien
        '-Tartiflette
        '-Chat
    End Sub
 
Public Class DateComparerDesc
    Implements IComparer
 
    Public Function Compare(x As Object, y As Object) As Integer Implements IComparer.Compare
        Dim ascendingResult As Integer
 
 
        ascendingResult = Comparer(Of Date).Default.Compare(CDate(x), CDate(y))
 
        Return 0 - ascendingResult
 
    End Function
End Class

16/05/2014, 11h24
Kreepz

Merci bien! :D

Je l'ai juste modifié pour avoir les valeurs Ascendantes!
16/05/2014, 13h59
_Ez3kiel

Citation:

Envoyé par Kreepz

Merci bien! :D

Je l'ai juste modifié pour avoir les valeurs Ascendantes!

Au temps pour moi alors ... J'ai mal lu et je pensais que tu voulais un ordre décroissant.

Si tu veux un tri de date par ordre croissant, pas besoin de ton propre IComparer, tu n'as qu'à déclarer ta liste typée (Of Date, Decimal) et l'IComparer par défaut du framework trie les dates ajoutées à la liste par ordre croissant.

Code:

Dim taListe As New SortedList(Of Date, Decimal)
16/05/2014, 14h21
Kreepz

Citation:

Envoyé par _Ez3kiel

Si tu veux un tri de date par ordre croissant, pas besoin de ton propre IComparer, tu n'as qu'à déclarer ta liste typée (Of Date, Decimal) et l'IComparer par défaut du framework trie les dates ajoutées à la liste par ordre croissant.

Code:

Dim taListe As New SortedList(Of Date, Decimal)

Ah oui effectivement! Merci bien! :mrgreen: