[Débutant] Somme sur une liste

Somme sur une liste

Bonjour à tous,
Je vous présente d'abord mon petit bout de code puis vous explique mon problème :

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
37
38
 
 
Public Class Pointeur
    Private _sectimeEnregFonctAnalyseurs As Int32
    Private _sectimeEnreg As SortedList(Of CodeIncinerateur, SortedList(Of TypeEnreg, Int32))
 
 
    Public Sub New()
        _sectimeEnreg = New SortedList(Of CodeIncinerateur, SortedList(Of TypeEnreg, Int32))
    End Sub
 
 
    Public Property SectimeFonctAnalyseurs() As Int32
        Get
            Return _sectimeEnregFonctAnalyseurs
        End Get
        Set(value As Int32)
            _sectimeEnregFonctAnalyseurs = value
        End Set
    End Property
 
 
    Public Property Sectime(ByVal codeIncinerateur As CodeIncinerateur, ByVal typeEnreg As TypeEnreg) As Int32
        Get
            Return _sectimeEnreg.Item(codeIncinerateur).Item(typeEnreg)
        End Get
        Set(value As Int32)
            _sectimeEnreg(codeIncinerateur).Item(typeEnreg) = value
        End Set
    End Property
 
 
    Public Function Somme(ByVal codeIncinerateur As CodeIncinerateur) As Int64
 
    End Function
 
 
End Class

Dans la dernière partie de cette classe (fonction Somme) je voudrais faire la somme des valeurs Int32 de _sectimeEnreg selon CodeIncinerateur. Càd prendre toutes les valeurs qui correspondent à CodeIncinerateur quelque soit la valeur de TypeEnreg.
Voila, je tourne là autour depuis quelques temps et si quelqu'un avait une idée.
Merci beaucoup pour votre aide.

@+
Thierry

Ceci devrait t'aider :

Code:

1
2
3
4
5
6
7
Dim q = From item In _sectimeEnreg _
        Where item.Key.Propriete1 = ceQueTuVeux _       ' Key correspond à l'objet de type CodeIncinerateur, Propriete1 représente donc une des propriétés de cet objet
        Select New With _
        { _
            .Somme = (From x In item.Value _            ' Value correspond à la seconde SortedList
                      Select x.Value).Sum() _           ' Value correspond à la valeur de type Int32
        }

Merci pour cette réponse. Je vais essayer de regarder ça dans les jours qui suivent.