Discussion :

[Faladin]

Bonjour et bon lundi!

J'aimerais faire un tri sur une list. Voici ma structure pour vous mettre en contexte:

J'ai une classe "Activité" qui contient les infos d'une activité, avec son temps de départ (integer)

J'ai une classe "Projet" qui contient les infos du projet, ainsi que sa liste d'activité (List(of Activité))

J'ai un module "ManagerProjet" qui contient une liste de projet (List(of Projet))

J'aimerais faire un tri sur la liste de projet du "ManagerProjet", selon les temps de départ de l'activité 0 (soit la première activité de chaque projet), un peu comme:

Code :

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

ListDeProjet.Sort(Sur Projet.ListActivité(0).Début)

Y'a moyen de faire quelquechose du genre, ou devrais coder une fonction dans la classe projet qui me retourne le temps de départ? Ou autres idées?

[tomlev]

tu peux implémenter un IComparer qui fait ça

[Faladin]

Ouais en lisant sur MSDN j'ai vu ça aussi, je connais pas par contre, je m'y mets!

[Faladin]

Je suis en VS 2008 en passant, ça peut commencer à être important...

Bon j'ai essayé ceci:

J'ai créé ma classe comparatrice:

ActiveList = Liste de Projet
TaskList = Liste d'activité

Code :

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

1
2
3
4
5
6
7
Public Class SortListClass
    Implements IComparer
 
    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
        Return New CaseInsensitiveComparer().Compare(ActiveList(x).TaskList(0).StartTime, ActiveList(y).TaskList(0).StartTime)
    End Function
End Class

Ensuite j'ai utilisé cette classe pour faire mon tri:

Code :

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

1
2
3
4
    Private Sub SortActiveList()
        Dim MyComparer As New SortListClass
        ActiveList.Sort(MyComparer)
    End Sub

Il me lance une erreur de Cast par contre ( sur la ligne ActiveList.Sort(MyComparer))

Unable to cast object of type 'GanttChartScheduling.SortListClass' to type 'System.Collections.Generic.IComparer`1[GanttChartScheduling.Basket]'.

GanttChartScheduling.Basket = Classe de Projet (panier d'activité pour notre code...)

[tomlev]

oula, je suis un peu perdu dans ton truc... a priori, les paramètres x et y sont des projets, non (apparemment tu as supposé que c'était des index ?) ? Avec un cast on y verrait plus clair...
Et pourquoi utiliser CaseInsensitiveComparer pour comparer des dates ?
Moi je ferais comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Class SortListClass
    Implements IComparer
 
    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
        Dim projX as Projet = TryCast(x, Projet)
        Dim projY as Projet = TryCast(y, Projet)
        Dim startX As DateTime = projX.TaskList(0).StartTime        
        Dim startY As DateTime = projY.TaskList(0).StartTime
        Return DateTime.Compare(startX, startY)        
    End Function
End Class

[Faladin]

Ouais désolé c'est mélangeant pour quelqu'un qui ne baigne pas dans mon truc, c'Est pas vraiment des projets, j'avais utilisé ça pour faire une comparaison..

oula, je suis un peu perdu dans ton truc... a priori, les paramètres x et y sont des projets,

En créant la classe et implémentant IComparer, il a créer la fonction automatiquement avec le x et le y. D'Après moi, étant caster Object, c'est n'importe quoi, moi dans mon cas, je veux trier la liste de paniers (projet), donc il y a une classe pour ça, soit Basket, mais je ne peux pas identifier

Code :

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

ByVal x as Basket

ça bug

non (apparemment tu as supposé que c'était des index ?) ?

Je crois bien qu'il va prendre l'objet x et y dans son tri, soit le panier actif x et y, puis trier selon le temps de départ

Avec un cast on y verrait plus clair...
Et pourquoi utiliser CaseInsensitiveComparer pour comparer des dates ?

Honnêtement je savais pas quoi utiliser, par contre oublie pas que c'est pas des dates mais bien des Integer (c'est des secondes)

[Faladin]

J'essaie avec ta suggestion de code!

[Faladin]

Ok j'ai trouvé un premier bug: Étant donné que ma list est une liste de basket, il faut que j'implémente mon comparateur comme suit:

Code :

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

1
2
3
4
5
6
7
Public Class SortListClass
    Implements IComparer(Of Basket)
 
    Public Function Compare(ByVal x As Basket, ByVal y As Basket) As Integer Implements System.Collections.Generic.IComparer(Of Basket).Compare
 
    End Function
End Class

Je sais pas quoi retourné et comment comparé encore par contre...Au moins à l'exécution, pas d'erreur, il tri, mais là je ne sais pas sur quoi il fait son tri...

[Faladin]

J'me pose une question par contre:

Étant donné que la fonction compare est une integer, je dois donc retourner un Integer. Et ça, VS le crée automatiquement, c'est pas moi qui choisit de mettre une fonction integer. Donc, dans ma fonction, je peux comparer:

Code :

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

1
2
3
4
5
        If x.TaskList(0).StartTime < y.TaskList(0).StartTime Then
            'Return x
        Else
            'Return y
        End If

Mais le Return, je sais pas quoi mettre pour integer...

[Faladin]

Mais le Return, je sais pas quoi mettre pour integer...

Sur MSDN j'ai trouvé:

Return Value
Type: System..::.Int32

Value Condition

Less than zero: x is less than y.

Zero: x equals y.

Greater than zero: x is greater than y.

--- --- ---

Et voici le code fonctionnel (les Return sont en fonction de ce que j'ai trouvé sur MSDN!)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Class SortListClass
    Implements IComparer(Of Basket)
 
    Public Function Compare(ByVal x As Basket, ByVal y As Basket) As Integer Implements System.Collections.Generic.IComparer(Of Basket).Compare
        If x.TaskList(0).StartTime < y.TaskList(0).StartTime Then
            Return -1
        ElseIf x.TaskList(0).StartTime = y.TaskList(0).StartTime Then
            Return 0
        Else
            Return 1
        End If
    End Function
End Class
 
    Private Sub SortActiveList()
        Dim MyComparer As New SortListClass
        ActiveList.Sort(MyComparer)
    End Sub

Merci Tomlev pour ton coup de main!