Discussion :

[BernardBouree]

Bonjour

J'ai une class nommée Toponyme avec deux propriétés sNom et sCode déclarée en String.
J'ai une liste des ces Toponymes déclarée

Code :

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

Dim Communes As SortedList(Of String,Toponyme)

qui contient plus de 33000 items.

Pour effectuer des recherches j'ai le code suivant

Code :

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

1
2
3
4
5
6
7
8
9
 Dim i As Integer = Communes.IndexOfValue((From oCom As Toponyme In Communes.Values
                                                                Where oCom.sCode = .sCode _
                                                                     And oCom.sNom = .sNom).FirstOrDefault)
                If i >= 0 Then
                    oTo = Communes.ElementAt(i).Value
                    Return True
                Else
                    Return False
                End If

Celle-ci fonctionne correctement mais je dois faire cette même demande sur d'autres propriétés et le nombre d'items étant élevé le temps de calcul est très élevé.

Il y a t il un moyen de rendre cette procédure parallèle?
J'ai vu que cela existait pour les boucles For et For Each mais ne sais si cela s'applique ici.
Merci
Bernard

[sinople]

Il existe des listes spécialisée pour les opérations de calcul parallèle.

Après Est-ce qu'il y a moyen de faire plus propre et optimiser que votre exemple, dont j'ai pas forcément compris la finalité, sans passer par ce type de solution...

[ebastien]

Bonjour,

Peut-être qu'en optimisant un peu car dans votre code, on trouve une requête et un accès par index avec ElementAt (A priori et sauf erreur de ma part lorsque lorsque la liste n'implémente pas l'interface IList ElementAt fait une itération en boucle pour accéder à l'élément et donc n'est pas optimisé)

Est-ce que une recherche linq directe ne serait pas plus optimisée et éviterai de vous lancer dans le parallélisme (traduit de C# donc...):

Code :

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

1
2
Dim oTo As Toponyme = Communes.Where(Function(t) (t.Value.sCode = ...) AndAlso (t.Value.sNom = ...)).FirstOrDefault().Value
Return (result IsNot Nothing)