Discussion :

[Galdon]

Bonjour

Je travaille sur un projet en VB.NET (sous .NET Framework 2.0), et j'ai un tableau associant une clé de type Integer, et une valeur de type Double :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Key     Value
1       4.666666666666667
2       7.333333333333333
3       5.333333333333333
4       3.3333333333333335
5       2.0
6       4.333333333333333
7       5.333333333333333
8       5.333333333333333
9       4.0
10      3.3333333333333335
11      6.0
12      4.0
13      5.0

Je dois trier le tableau par valeur en ordre décroissant, tout en gardant l'association clé => valeur, donc au final je devrais avoir quelque chose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Key     Value
2       7.333333333333333
11      6.0
3       5.333333333333333
7       5.333333333333333
8       5.333333333333333
13      5.0
1       4.666666666666667
6       4.333333333333333
9       4.0
12      4.0
4       3.3333333333333335
10      3.3333333333333335
5       2.0

Je stocke les données dans une List de KeyValuePair (j'hésite entre ça ou un Dictionary) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim maListe As New List(Of KeyValuePair(Of Integer, Double))

Ensuite il faut que j'appelle la méthode Sort en définissant mon propre Comparer, j'ai essayé ce code trouvé sur stackoverflow :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

myList.Sort( (x,y) => x.Value.CompareTo(y.Value) )

Mais ça ne fonctionne pas, et a vrai dire ça ne m'étonne pas vraiment, ça ressemble à la nouvelle syntaxe, je ne sais pas si elle est compatible avec .NET 2.0.

Bref, je débute et c'est la galère, merci de votre aide.

[calagan99]

Le Dictionnary est en effet tout indiqué pour ce que tu veux faire.
Pour le tri, il va falloir procéder à l'ancienne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim maListe As New Dictionary(Of Integer, Double)()
 
Public Function SortDictionaryByValue() As Dictionary(Of Integer, Double)
	Dim tmpList As New List(Of KeyValuePair(Of Integer, Double))(maListe)
 
	tmpList.Sort(Function(firstPair As KeyValuePair(Of Integer, Double), secondPair As KeyValuePair(Of Integer, Double)) firstPair.Value.CompareTo(secondPair.Value))
 
	Dim sortedDictionary As New Dictionary(Of Integer, Double)()
	For Each pair As KeyValuePair(Of Integer, Double) In tmpList
		sortedDictionary.Add(pair.Key, pair.Value)
	Next
 
	Return sortedDictionary
End Function

C'est un peu verbeux. En C#, l'utilisation d'un délégué aurait pas mal facilité la chose.

[tomlev]

Mais ça ne fonctionne pas, et a vrai dire ça ne m'étonne pas vraiment, ça ressemble à la nouvelle syntaxe, je ne sais pas si elle est compatible avec .NET 2.0.

Bah c'est surtout que c'est du C#, pas du VB.NET (et de toutes façons cette syntaxe requiert C# 3 ou plus)... en .NET 2 / VB 8, il n'existe pas de syntaxe pour faire une méthode anonyme. Il faut que tu déclares une méthode distincte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
myList.Sort(AddressOf CompareByValue)
 
...
 
Function CompareByValue(KeyValuePair(Of Integer, Double) x, KeyValuePair(Of Integer, Double) y) As Integer
    x.Value.CompareTo(y.Value)
End Function

[calagan99]

OK. Il y avait plus simple que ma proposition à base de Dictionary

[tomlev]

OK. Il y avait plus simple que ma proposition à base de Dictionary

Nos réponses se sont croisées, j'avais pas vu la tienne... Ce n'est pas une bonne idée de faire comme ça, car l'ordre des éléments dans un dictionary est indéterminé. Le fait qu'en pratique les éléments semblent rester dans l'ordre où on les a insérés est simplement dû à une particularité de l'implémentation de Dictionary<TKey, TValue>, et ce n'est absolument pas garanti par la doc, bien au contraire :

L'ordre dans lequel les éléments sont retournés est non défini.

En pratique, tant que tu ne fais qu'ajouter des éléments, ils resteront dans l'ordre, mais si tu commences à en supprimer et à en ajouter d'autres, ça ne marche plus...

[Galdon]

Merci pour vos réponses, entre temps j'avais essayé la méthode que propose tomlev mais ça n'avait pas fonctionné (erreur de compilation) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Shared Function MyComparer(ByVal x As KeyValuePair(Of Integer, Double), ByVal y As KeyValuePair(Of Integer, Double)) As Integer
	Return x.Value.CompareTo(y.Value)
End Function
 
MaListe.Sort(MyComparer)

Peut-être simplement à cause du AddressOf manquant...

Donc finalement j'ai fait un vieux tri à bulle à l'ancienne, ça craint d'utiliser un framework et de devoir faire ça mais bon (si c'était en .NET 3.5+ j'aurais utilisé Linq mais là en 2.0 y'a pas).

[tomlev]

Peut-être simplement à cause du AddressOf manquant...

Effectivement j'avais oublié ça...

[Galdon]

Merci pour vos réponses, entre temps j'avais essayé la méthode que propose tomlev mais ça n'avait pas fonctionné (erreur de compilation) ...

Effectivement j'avais oublié ça...

Non mais en fait je ne voulais pas dire que j'avais testé ton code et que ça marchait pas (je n'ai lu vos réponses qu'aujourd'hui), j'avais juste essayé de faire fonctionner Sort() avec mon propre IComparer, en improvisant et en lisant la doc.

Donc là grâce à ton post j'ai compris pourquoi ça ne fonctionnait pas au moins