Comparaison de 2 listes

**Ahcatan6** · 02/02/2009, 15h33

Bonjour,

Je suis débutante en VB.Net, et je voudrais comparer 2 listes.
Je dois comparer une liste d'utilisateur récupérée dans une base de données, à une liste de membre d'un groupe AD, et supprimer dans le groupe AD, ceux que je ne trouve pas dans ma liste BDD, et ajouter dans le groupe AD, ceux qui existent dans la liste BDD, mais pas dans le groupe AD.

J'ai crée une classe Utilisateur, qui a comme propriété, entres autres : login

Je crée une liste d'objets Utilisateur, dans laquelle je stocke les utilisateurs issus de la BDD

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim ListeUtilisateur As List(Of Utilisateur) = New List(Of Utilisateur)
DRUser = PROXYBDDuser.PS_S_ListeColAffecteParAnnonceur(DR("ANN_DEP_ID"))
While DRUser.Read
          Dim utl As Utilisateur = New Utilisateur
          utl.Login = LCase(DRUser("COL_LOGIN"))
          utl.Restreint = DRUser("ACC_ARB_CADRE_CONTRACTUEL")
          utl.DomaineNtUser = LCase(DOMAINENTUSER)
          utl.DN = objLdap.getDistinguishedNameUser(utl.Login)
          ListeUtilisateur.Add(utl)
End While

Je fais la même chose pour ma liste de membres du groupe AD.
J'obtiens donc 2 listes : ListeUtilisateur et ListeMembre, que je veux ensuite comparer ...
et là, je suis bloquée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 For Each utl As Utilisateur In ListeUtilisateur
                        If Not (ListeMembre.Find(AddressOf ParLogin)) Then
                            MsgBox("Ajoute personne dans le groupeAD" & utl.Login)
                        End If
                    Next
 
 
Public Function ParLogin(ByVal utl As Utilisateur, ByVal mbr As Utilisateur) As Boolean
        If utl.Login = acc.Login Then Return True Else Return False
    End Function
 
Delegate Function CompareLogin(ByVal utl As Utilisateur, ByVal accAs Utilisateur) As Boolean

Visual studio me renvoie une erreur :
La méthode 'Public Function ParLogin(utl As Traitement_Arborescence.Utilisateur, acc As Traitement_Arborescence.Utilisateur) As Boolean' n'a pas la même signature que le délégué 'Delegate Function Predicate(Of T)(obj As Utilisateur) As Boolean'.

Merci à tous pour votre aide

**tomlev** · 02/02/2009, 22h56

La méthode Find prend en paramètre un Predicate<T>, pas un CompareLogin

Il faut créer une méthode qui prend en paramètre un Utilisateur et renvoie true s'il correspond à l'élément recherché. Le plus pratique dans ce cas est d'utiliser une lambda expression (nécessite VB 2008) :

Code :

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

1
2
If Not ListeMembre.Find(Function(u) u.login = utl.login) Is Nothing Then
...

**Ahcatan6** · 09/02/2009, 15h25

Merci beaucoup pour votre réponse
Mais je suis en 2005 ...

J'en déduis que cette méthode n'est pas possible en 2005 ?

**tomlev** · 09/02/2009, 16h51

Dans ce cas il faut faire une vraie méthode (i.e. pas anonyme)
Le problème c'est que le paramètre varie d'un appel à l'autre selon ce que tu cherches. Donc je pense que la solution est de faire une classe qui contient la méthode et la valeur recherchée :

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
Public Class UserFinder
    ' Le login recherché
    Public Login As String
 
    Public Sub New(Dim login As String)
        Me.Login = login
    End Sub
 
    ' Le prédicat pour la recherche
    Public Function Predicate(u As Utilisateur) As Boolean
        If u.Login = Me.login Then
            Return True
        Else
            Return False
        End If
    End Function
End Class

Et tu l'utilises comme ça :

Code :

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

1
2
Dim finder As New UserFinder(utl.Login)
If Not ListeMembre.Find(AddressOf finder.Predicate) Is Nothing Then

Pas certain que ça marche, mais dans l'idée c'est ça... En fait tu irais peut-être aussi vite en faisant une boucle sur la collection

**Ahcatan6** · 09/02/2009, 18h22

Merci pour ta réponse, le code fonctionne, mais je n'obtiens le principe que j'attendais ...

Il compare chaque élément de ma 1ère collection à tous les éléments de la 2ème.
En effet, une boucle sur la collection fonctionnerai aussi bien

Un collègue m'a proposé une solution en C#, que je n'arrive pas à reproduire en VB.net, qui elle compare les 2 listes, et me renvoie uniquement la liste des ajouts par rapport à la liste 2 et la liste des suppressions par rapport à la liste 2 :

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
class Droit
    {
 
        private string _login;
 
        public string Login
        {
            get { return _login; }
            set { _login = value; }
        }
 
 
        public Droit()
        {
        }
 
        public Droit(string Login)
        {
           _login = Login;
        }
 
        // Renvoie une instance statique de la classe
 
        static private Droit _instance = null;
        static public Droit Instance
        {
            get
            {
                if (_instance == null)
                    _instance = new Droit();
                return _instance;
            }
        }

Appel de la classe :

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
Droit monDroit = new Droit();
            List<Droit> malistedbdroits = droitsdb();
            List<Droit> malistedossierdroits = droitsdossiers();
 
 
            foreach (Droit ledossierdroit in malistedossierdroits)
            {
                // recherche dans les droits Dossier les logins ne se trouvant pas  dans la db
 
                Droit trouve = malistedbdroits.Find(delegate
                    (Droit d) { return d.Login == ledossierdroit.Login; });
 
                if (trouve == null)
                {
                    MessageBox.Show(" Supprimer du Dossier  " + ledossierdroit.Login);
                    ledossierdroit.Delete(ledossierdroit);
                }
 
            }

je ne suis pas sûre que ce soit faisable en VB.net

**tomlev** · 09/02/2009, 18h47

Envoyé par Ahcatan6

je ne suis pas sûre que ce soit faisable en VB.net

Si, bien sûr, mais je ne retrouve plus la syntaxe pour les méthodes anonymes en VB.NET... sinon je t'aurais indiqué dès le départ une solution similaire

EDIT :

Envoyé par tomlev

je ne retrouve plus la syntaxe pour les méthodes anonymes en VB.NET...

OK, je viens de comprendre pourquoi je ne la retrouvais pas... c'est parce qu'elle n'existe pas

Les méthodes anonymes ne sont pas supportées par VB.NET (mais les lambda expressions le sont en VB9)

Donc tu peux faire quelque chose de similaire, mais tu as toujours le problème de closure ("fermeture") sur utl.login (c'est pour ça que j'ai créé une classe spécifique pour ça)

**Ahcatan6** · 10/02/2009, 11h44

C'est donc pour ça que je ne trouvais en VB !

Je suis désolée, mais je ne comprends pas très bien la dernirèe partie de ta réponse ...
Que veux-tu dire par closure de utl.login ?

**tomlev** · 10/02/2009, 12h06

Envoyé par Ahcatan6

Je suis désolée, mais je ne comprends pas très bien la dernirèe partie de ta réponse ...
Que veux-tu dire par closure de utl.login ?

Arf, je savais bien que j'aurais pas dû utiliser un mot comme ça

Comme je serais bien incapable d'en donner une définition claire, je te renvoie sur Wikipedia

http://fr.wikipedia.org/wiki/Fermeture_(informatique)

En gros, ce que je veux dire, c'est que, comme Find prend en paramètre une méthode, et que la méthode en question n'accepte qu'un paramètre (la valeur de la liste qu'il faut tester), il faut trouver un moyen de lui passer aussi la valeur avec laquelle on compare (utl.login). Ca marche tout seul si on fait une lambda expression comme dans mon post #2, sinon il faut recourir à une autre technique. On aurait pu mettre utl.login dans une variable membre, accessible à partir du prédicat, mais ça pose des problèmes de thread-safety et de réentrance (désolé

). Donc, avec une classe qui englobe le prédicat et la valeur de comparaison, tout baigne... normalement