Arraylist Trier par Length

Version imprimable

Bonjour à tous,

Je suis à la recherche d'une méthode permettant de trier un Arraylist par le nombre de caractère de ses valeurs, mais je comprends pas bien comment fonctionne Sort avec la méthode IComparer.

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
 
 
    Private Sub arraySortCompare()
        Dim str As String = ""
 
        Dim list As New ArrayList
        list.Add("Australian")
        list.Add("Mongolian")
        list.Add("Russian")
        list.Add("Austrian")
        list.Add("Brazilian")
        list.Add("a")
        list.Add("de")
        list.Add("des")
        list.Add("un")
        list.Add("une")
 
        Dim oComparer = New cComparer()
        list.Sort(oComparer)
 
        Dim value As String
        For Each value In list
            str &= value & "<br/>"
        Next
 
        litRslt.Text = str
    End Sub
 
    Public Class cComparer
        Implements IComparer
        Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
            Return New CaseInsensitiveComparer().Compare(y, x)
        End Function
    End Class

Merci pour votre aide.

28/04/2017, 11h16
jopopmk

Salut,

la méthode Compare(x, y) d'une classe implémentant IComparer fonctionne ainsi :
- si x doit être considéré comme supérieur à y, alors elle renvoie 1,
- si y doit être considéré comme supérieur à x, alors elle renvoie -1,
- si x et y doivent être considérés comme égaux, alors elle renvoie 0

Petit complément d'information à ce qu'a dit jopopmk

Les deux objets en paramètre doivent être caster en ce que tu cherches à comparer, donc ici en string.
Vu que tu cherches à faire une comparaison "simple", tu peux employer la méthode CompareTo de l'integer à comparer.

Ce qui au final te donne un truc du genre :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Public Class cComparer Implements IComparer Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare Dim x1 = TryCast(x , String) Dim y1 = TryCast(y , String) If x1 Is Nothing Or y1 Is Nothing Then Throw New NotImplementedException Dim ret = x1.Length.CompareTo(y1.Length) Debug.WriteLine(x1 & " : "& y1 & " = " & ret) Return ret End Function End Class
Avec le debug.WriteLine on voit que la function est appelée en boucle :

Citation:

Mongolian : Australian = -1
Russian : Australian = -1
Russian : Mongolian = -1
Austrian : Australian = -1
Austrian : Mongolian = -1
Austrian : Russian = 1
Brazilian : Australian = -1
Brazilian : Mongolian = 0
a : Australian = -1
a : Brazilian = -1
a : Mongolian = -1
a : Austrian = -1
a : Russian = -1
de : Australian = -1
de : Brazilian = -1
de : Mongolian = -1
de : Austrian = -1
de : Russian = -1
de : a = 1
des : Australian = -1
des : Brazilian = -1
des : Mongolian = -1
des : Austrian = -1
des : Russian = -1
des : de = 1
un : Australian = -1
un : Brazilian = -1
un : Mongolian = -1
un : Austrian = -1
un : Russian = -1
un : des = -1
un : de = 0
une : Australian = -1
une : Brazilian = -1
une : Mongolian = -1
une : Austrian = -1
une : Russian = -1
une : des = 0