Discussion :

[BernardBouree]

Bonjour

J'ai une classe définie de cette façon

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
Public Class Toponyme
 
    Public Sub New()
    End Sub
 
    Public Property sCodePostal() As String
    Public Property sCodeINSEE() As String
    Public Property sDéfOriginal() As String
    Public Property sIndex() As String
    Public Property sLatitude() As String
    Public Property sLongitude() As String
    Public Property sNom() As String
    Public Property sNomDépartement() As String
    Public Property sNomPays() As String
    Public Property sNomRégion() As String
 End Class

Puis une SortedList déclarée

Code :

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

Dim Communes As New SortedList(Of String, Toponyme)

Je renseigne ma SortedList à l'aide d'un objet oCommune As New Toponyme et la ligne

Code :

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

1
2
Dim oToponyme As New Toponyme
Communes.Add(oToponyme.sIndex, oToponyme)

ou sIndex contient la chaine unique d'indexation

Pour retrouver une commune j'utilise la ligne

Code :

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

1
2
3
Dim oToponyme As New Toponyme
sComRecherchée="Paris75000"
bTrouvé = CommunesSource.TryGetValue(sComRecherchée, oToponyme)

Mais J'ai également besoin de retrouver une commune par un autre champs comme par exemple son Code INSEE via sCodeINSEE

j'ai donc le code suivant:

Code :

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

1
2
3
4
5
 
Dim i as integer
Dim oCom As New Toponyme
oCom.sCodePostal="75000"
i= Communes(IndexOfValue(oCom)

Mais i est sytématiquement ègale à -1.

Il s'agit en fait de retrouver la position dans la SortedList d'un objet Toponyme dont la propriété sCodePostal est donnée.
L'aide de MSDN explique bien le procédé quand la liste contient une chaine de caractères ou des nombres pas pas pour des objets.

Merci pour votre aide

Bernard

[mactwist69]

Parce que, comme déjà dis dans l'autre post, SortedList est une sorte de dictionnaire.

Ca te permets d'accéder à un objet via une clé, ça pas de souci.
Par contre pour avoir une clé, il faudrait lui passer en paramètre, l'objet complet lui-même...

Je persiste que une List(Of ) suffit, et utiliser Link pour trouver un objet (ou liste d'objet) serait la meilleur solution :

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
Public Class Toponyme
 
    Public Sub New()
    End Sub
 
    Public Property sCodePostal() As String
    Public Property sCodeINSEE() As String
    Public Property sDéfOriginal() As String
    Public Property sIndex() As String
    Public Property sLatitude() As String
    Public Property sLongitude() As String
    Public Property sNom() As String
    Public Property sNomDépartement() As String
    Public Property sNomPays() As String
    Public Property sNomRégion() As String
 End Class

Code :

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

1
2
3
4
Dim Communes As New List(Of Toponyme)
 
Dim oToponyme As New Toponyme
Communes.Add(oToponyme)

Pour trouver un élément, par exemple les ville d'un code postale :

Code :

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

1
2
Dim ListResultat as New List(Of Toponyme)
ListResultat = Communes.Where(Function(t) t.sCodePostal = "75000").ToList

[mactwist69]

Sinon tut e fais aussi une classe qui gère tes communes, c'est le but des classes,

Et tu t'écris toi même les procédure :

- GetCommuneByPostalCode
- GetCommuneByCity

en utilisant des boucle sur ta liste de communes...



En gros plutôt que de faire une classe, qui n'est en fait d'une structure qui contient des données, tu écris une classe qui contient et gère une liste de commune... Si tu vois ce que je veux dire