Discussion :

[BernardBouree]

Bonjour

J'au une ligne de code

Code :

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

1
2
i = CommunesSource.IndexOfValue((From oTo As Toponyme In CommunesSource.Values
                                                                     Where oTo.sNomDépartement = sNomDép AndAlso oTo.sNom = sNomTo).FirstOrDefault)

Qui me permet de trouver la première occurence à la demande avec la commande FirstOrDefault

Mais comme obtenir la liste de tous les enregistrements répondant au query?

Merci

Bernard

[wallace1]

Il faut créer un aggrégat de type function :

Code :

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

   Canada.oProvinces.Where(Function(f) f.Value.sNom '.......etc.....

--> retournera toutes les occurrences trouvées.

Après c'est difficile de savoir ce que tu cherches à faire avec la structures des classes qui nous sont complètements inconnu : Toponyme ...

A+

[BernardBouree]

Oui désolé je n'ai pas donner assez de détails

Voici la déclaration de ma SortedList(Of)

Code :

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

Dim CommunesSource As New SortedList(Of String, Toponyme)

Voici ma Class Toponymes

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Public Class Toponyme
 
    Public Sub New()
    End Sub
    Public Sub New(sNomToponymes As String)
        sNom = sNomToponymes
    End Sub
    Public Sub New(sNomTop As String, sCodSrc As String)
        sNom = sNomTop
        sCodeSource = sCodSrc
    End Sub
    Public Sub New(sNomTop As String, sCodSrc As String, sDpt As String)
        sNom = sNomTop
        sCodeSource = sCodSrc
        sNomDépartement = sDpt
    End Sub
    Public Sub New(sNomTop As String, sCodSrc As String, sDpt As String, sRég As String)
        sNom = sNomTop
        sCodeSource = sCodSrc
        sNomDépartement = sDpt
        sNomRégion = sRég
    End Sub
    Public Sub New(sNomTop As String, sCodSrc As String, sDpt As String, sRég As String, sPay As String)
        sNom = sNomTop
        sCodeSource = sCodSrc
        sNomDépartement = sDpt
        sNomRégion = sRég
        sNomPays = sPay
    End Sub
    Public Sub New(sNomTop As String, sCodSrc As String, sDpt As String, sRég As String, sPay As String, sLat As String, sLon As String)
        sNom = sNomTop
        sCodeSource = sCodSrc
        sNomDépartement = sDpt
        sNomRégion = sRég
        sNomPays = sPay
        oCoordonnéesGPS.sLatitude = sLat
        oCoordonnéesGPS.sLongitude = sLon
    End Sub
 
    Public Property oErreur() As New Erreur
    Public Property bAncienne() As Boolean
    Public Property bUtilisé() As Boolean
    Public Property sArrondissement() As String
    Public Property sCanton() As String
    Public Property sCodeDépartement() As String
    Public Property sCodePays() As String
    Public Property sCodePostal() As String
    Public Property sCodeSource() As String
    Public Property sCodeGéographique() As String
    Public Property sDéfOriginal() As String
    Public Property sDéfTrouvé() As String
    Public Property sIndex() As String
    Public Property oCoordonnéesGPS As New CoordonnéesGPS
    Public Property oCoordonnéesGPS2 As New CoordonnéesGPS
    Public Property sMRC() As String
    Public Property sNom() As String
    Public Property sAncienNoms() As New SortedList(Of Integer, String)
    Public Property sNomDépartement() As String
    Public Property sNomNote() As String
    Public Property sNomPays() As String
    Public Property sNomRégion() As String
    Public Property sN0Région() As String
    Public Property sProvince() As String
    Public Property sCodeProvince() As String
    Public Property sTag_Ged() As String
    Public Property sAbrégé As String
    Public Property sSubdivision() As String
    Public Property numLigne As Long
End Class

Avec la ligne

Code :

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

1
2
3
4
5
 
Dim sNomRég As String = "Rhône-Alpes"
Dim sNomTo As String = "Chambery"
i = CommunesSource.IndexOfValue((From oTo As Toponyme In CommunesSource.Values
                                                                     Where oTo.sNomRégion = sNomRég AndAlso oTo.sNom = sNomTo).FirstOrDefault)

Me permet de trouver la première occurence
Mais comme faire pour trouver les suivantes si il y en a (ce qui n'est pas la cas dans l'exemple donné)

Merci

Bernard

[wallace1]

Donc pour en revenir à nos moutons :

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
19
20
21
22
23
24
25
26
27
28
 
   Try   
            Dim one As New Toponyme("Chambery", "", "", "Rhône-Alpes", "France", "", "")
            CommunesSource.Add("One", one)
            Dim two As New Toponyme("Chambery", "", "", "Rhône-Alpes", "France", "", "")
            CommunesSource.Add("Two", two)
            Dim three As New Toponyme("Chambery", "", "", "Rhône", "France", "", "")
            CommunesSource.Add("Three", three)
            Dim four As New Toponyme("Chamb", "", "", "Rhône-Alpes", "France", "", "")
            CommunesSource.Add("Four", four)
 
            'For Each t In CommunesSource
            '    MsgBox(t.Value.sNom)
            'Next
 
            Dim sNomRég As String = "Rhône-Alpes"
            Dim sNomTo As String = "Chambery"
 
            Dim ToExtract = CommunesSource.Where(Function(f) f.Value.sNomRégion = sNomRég AndAlso f.Value.sNom = sNomTo)
 
            For Each t In ToExtract
               'Retourne l'index de chaque objet qui possède les critères de requête (sNomRég et sNomTo)
                MsgBox(t.Key)
            Next
 
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

Je ne sais pas quelle genre de valeur de type String te permets d'indexer ta sortedList CommunesSource alors j'ai un peu fais au pif !
Ne connaissant pas les tenants et les aboutissants de ton projet : ta classe Toponyme me semble tout de même bizarre, n'y aurait-il pas moyen de faire un peu d'héritage pour éviter ces moultes surcharges de constructeur ou alors définir chaque argument dans la signature d'un seul constructeur en Optional Byval :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
  Public Sub New(Optional Byval sNomTop$ = "",Optional Byval sCodSrc$ = "", Optional Byval sDpt$ = "", Optional Byval sRég$ = "", Optional Byval sPay$ = "", Optional Byval sLat$ = "", Optional Byval sLon$ = "")
        sNom = sNomTop
        sCodeSource = sCodSrc
        sNomDépartement = sDpt
        sNomRégion = sRég
        sNomPays = sPay
        oCoordonnéesGPS.sLatitude = sLat
        oCoordonnéesGPS.sLongitude = sLon
    End Sub

PS : Ce n'est qu'une suggestion car je ne connais pas le fonctionnement de ton projet et comme je l'ai fais ci-dessus j'ai affecté certains argument et pas d'autres ce qui compromet la mise en place d'un unique constructeur !

A+

[Invité]

CommunesSource.Add("One", New Toponyme("Chambery", "", "", "Rhône-Alpes", "France", "", ""))La multiplication des constructeurs, bien qu'ils complique la lisibilité du Code, est totalement confirme dans la mesure ou il ce trouve univoque pour le compilateur!

Et de surcroît c'est a la concept qu'il ne faut pas ce mélanger les pinceaux, c'est transparent pour l'utilisateur de la classe.


Personnellement j'opterai pour un seule avec de paramètres optionnel.

Il n'est pas utile d'utiliser un objet temporaire pour alimenter la collection, vu qu'il est possible d'atteindre la partie public de chaque instance!

[BernardBouree]

Bonjour à tous et merci!
Bernard