Discussion :

[rumpeballe]

Bonjour,

J'ai une liste avec certains de propriétés en doublons. Je souhaiterai copier ces doublons dans une nouvelle liste mais conceptuellement j'ai un peu de mal .

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
 
 
Module Module1
 
    Sub Main()
 
        Dim ListeCdes As New List(Of Commande)
 
        ListeCdes.Add(New Commande("CDE1", "MAG1", "01/01/2008"))
        ListeCdes.Add(New Commande("CDE2", "MAG2", "01/01/2008"))
        ListeCdes.Add(New Commande("CDE3", "MAG2", "01/01/2008"))
        ListeCdes.Add(New Commande("CDE4", "MAG3", "01/01/2008"))
        ListeCdes.Add(New Commande("CDE5", "MAG4", "01/01/2008"))
 
        Dim sublist As List(Of Commande) = ListeCdes.FindAll(AddressOf GroupageCommandes)
 
        If sublist.Count > 1 Then
            For Each subcde As Commande In sublist
                Console.WriteLine(subcde.Mag & vbTab & subcde.Delai & vbTab & subcde.NumCde)
            Next
            Console.WriteLine(sublist.Count.ToString & " commandes a grouper")
        Else
            Console.WriteLine("Aucune commande à grouper")
        End If
 
        Console.ReadLine()
 
    End Sub
 
    Function GroupageCommandes(ByVal Cde As Commande) As Boolean
        If Cde.Mag = "MAG1" And Cde.Delai = "01/01/2008" Then
            Return True
        Else
            Return False
        End If
    End Function
 
End Module

Je souhaite identifier toutes les commandes clients à grouper pour un même magasin et un même délai.

Mon code me renvoie le bon résultat, mais de façon unitaire, comme défini dans mon prédicat. Je souhaiterai pouvoir le calculer sur toute la liste.

Merci d'avance pour votre aide.

[Pol63]

je pense que le plus simple ici reste de faire 2 boucles imbriquées et cherches ainsi les doublons

[Philippe Vialatte]

Salut,
je sais faire en c#, mais en vb...


en C#:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
List<Commande> sublist = ListeCdes.FindAll(CommandesGroupees);
 
 
...
...
public static Predicate<Commande> CommandesGroupees(string magasin, datetime delai) {
            return delegate(Commande cde) {
                    return ((cde.Mag == magasin) && (cde.Delai == delai));
            };
        }

Je cherche en Vb sai j'ai 10 minutes

[Philippe Vialatte]

ouch !!!

en fait, en vb, c'est pas possible...pas de methodes anonymes...

J'ai vu une methode pour arriver au meme resultat...
http://www.paulstovell.com/blog/almo...sual-basic-net

Mais bon, en fonction de ce que tu veux faire, c'est peut-etre un peu..barbare

[Faladin]

Autre méthode:

J'ai déjà eu à remplir une liste avec des valeurs que je retrouvais dans un fichier CSV. Afin de n'inclure que les valeurs une seule fois (donc éliminé les doublons), j'avais fait:

1. Remplir la liste
2. Mettre en ordre (.Sort = True)
3. Scanner la liste (While)
4. Éliminer la valeur suivante si elle était identique

En code ça donne:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
            'Sort des datas final en ordre alphabétique (c'est un champ texte, string)
            CBData.Sorted = True
 
            'Boucle qui élimine les doublons dans la liste
            While i < CBData.Items.Count - 1
                If CBData.Items(i + 1) = CBData.Items(i) Then
                    CBData.Items.Remove(CBData.Items(i))
                    i = 0
                Else
                    i += 1
                End If
            End While

J'espère que ça peut t'aider dans ton cas!!

[rumpeballe]

Bonsoir à tous. Merci beaucoup pour vos réponses qui m'ont aidé à trouver une solution à mon problème .

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
 
Module Module1
 
    Dim strMag As String = String.Empty
    Dim strDelai As String = String.Empty
 
    Sub Main()
 
        'Liste des commandes clients
        Dim ListeCdes As New List(Of Commande)
 
        ListeCdes.Add(New Commande("COMMANDE1", "MAGASIN1", "01/01/2008"))
        ListeCdes.Add(New Commande("COMMANDE2", "MAGASIN2", "02/01/2008"))
        ListeCdes.Add(New Commande("COMMANDE3", "MAGASIN2", "02/01/2008"))
        ListeCdes.Add(New Commande("COMMANDE4", "MAGASIN2", "01/01/2008"))
        ListeCdes.Add(New Commande("COMMANDE5", "MAGASIN3", "03/01/2008"))
 
        'Liste des commandes clients à grouper (même magasin, même délai)
        Dim ListeCdesGrp As New List(Of Commande)
 
        'Compteur
        Dim i As Integer = 0
 
        'Parcourir chaque commandes clients
        Do
            strMag = ListeCdes.Item(i).Mag
            strDelai = ListeCdes.Item(i).Delai
 
            'Rechercher les commandes à grouper suivant les conditions du prédicat
            Dim sublist As List(Of Commande) = ListeCdes.FindAll(AddressOf Groupage)
 
            'Ajouter les commandes trouvées à la liste des commandes à grouper et
            'supprimer ces commandes de la liste initiale
            If sublist.Count > 1 Then
                ListeCdesGrp.AddRange(sublist)
                ListeCdes.RemoveAll(AddressOf Groupage)
            End If
            i += 1
        Loop While i < ListeCdes.Count
 
        'Imprimer la liste des commandes à grouper
        If ListeCdesGrp.Count > 1 Then
            For Each Cde As Commande In ListeCdesGrp
                Console.WriteLine(Cde.NumCde & vbTab & Cde.Mag & vbTab & Cde.Delai)
            Next
            Console.WriteLine("{0} commandes à grouper ", ListeCdesGrp.Count)
        Else
            Console.WriteLine("Aucune commande à grouper")
        End If
 
        Console.ReadLine()
    End Sub
 
    'Prédicat de recherche
    Function Groupage(ByVal Cde As Commande) As Boolean
        If Cde.Mag = strMag And Cde.Delai = strDelai Then
            Return True
        Else
            Return False
        End If
    End Function
 
End Module