Comparer 2 listes

Version imprimable

29/12/2010, 14h19
jlm22

Comparer 2 listes

Bonjour,

je fait une application de gestion de fichier, et il ya une fonctionnalité qui me pose problème :
- 1ère liste : liste de sous dossier d'un dossier (rien d'extraordinaire ;))
- 2ème liste : liste de sous dossier auquel un quota est appliqué

Résultat

Liste des dossiers qui n'ont pas de quotas

J'aimerais pouvoir faire la différence des 2 listes en gros, mais je ne vois pas trop comment faire (je suis débutant en vb :?)

Merci d'avance
29/12/2010, 15h48
Pol63
il faut parcourir les 2 boucles successivements pour regarder si l'élément est contenu dans l'autre
Code:

1 2 for each elementList1 in List1 if not List2.contains(elementList1)
puis l'inverse

si tu connais linq to object il y a des choses genre List1.intersect(List2) pour avoir les éléments communs ... ce qui diminue le nombre de lignes de codes (mais fait la même chose)
29/12/2010, 15h53
jlm22

les 2 listes doivent avoir la même structure de données je suppose ?
29/12/2010, 16h00
Pol63

c'est mieux oui, mais si tu détailles le problème, tu auras plus de chances d'avoir des réponses qui sont en accord avec le problème ...

sinon on part sur des estimations ... et pour moi liste de sous dossier c'est un list(of string) ou éventuellement un list(of directoryinfo) (pour ce dernier cas il faudrait comparer les propriétés indiquant le chemin)

après si les listes contiennent des chous et des carottes, il faut savoir quoi comparer, si tu veux comparer leur poids c'est faisable
29/12/2010, 16h17
tomlev

Citation:

Envoyé par Pol63

si tu connais linq to object il y a des choses genre List1.intersect(List2)

En l'occurrence ce serait plutôt Except que Intersect ;)

Code:

Dim dossiersSansQuota = dossiers.Except(dossiersAvecQuota)
29/12/2010, 16h28
Pol63

je me rappelais qu'il y avait intersect c'est déjà ca :D
30/12/2010, 08h54
jlm22

Bonjour

En faite la liste des dossiers avec quota risque de me donner d'autres informations (place restante, nom utilisateur dossier, ...) donc je risque de comparé des choux et des carottes :)

Bon j'suis une buse en VB. Si y'a quelqu'un qui veut bien convertir de C# à VB.

Avec les structures suivantes (pour l'exemple):

Code:

1
2
3
4
5
6
7
8
9
10
public struct Folder
{
	public String Name {get;set;}
}
 
public struct QuotaFolder
{
	public String Name {get;set;}
	public int AnotherInfo {get;set;}
}

On peut faire:

Code:

1
2
3
4
5
 
var folders = new List<Folder>{ new Folder {Name="Folder1"},new Folder{Name="Folder2"},new Folder{Name="Folder3"}};
var quotaFolders = new List<QuotaFolder>{ new QuotaFolder {Name="Folder1",AnotherInfo=1},new QuotaFolder{Name="Folder2",AnotherInfo=2}};
 
var noQuotaFolders = folders.Where(f=> !quotaFolders.Any(qf=>qf.Name==f.Name));

Edit: EN VB (merci Pol63 :D)

Code:

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
Public Structure Folder
	Public Property Name() As [String]
		Get
			Return m_Name
		End Get
		Set
			m_Name = Value
		End Set
	End Property
	Private m_Name As [String]
End Structure
 
Public Structure QuotaFolder
	Public Property Name() As [String]
		Get
			Return m_Name
		End Get
		Set
			m_Name = Value
		End Set
	End Property
	Private m_Name As [String]
	Public Property AnotherInfo() As Integer
		Get
			Return m_AnotherInfo
		End Get
		Set
			m_AnotherInfo = Value
		End Set
	End Property
	Private m_AnotherInfo As Integer
End Structure

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim folders = New List(Of Folder)() From { _
	New Folder() With { _
		Key .Name = "Folder1" _
	}, _
	New Folder() With { _
		Key .Name = "Folder2" _
	}, _
	New Folder() With { _
		Key .Name = "Folder3" _
	} _
}
Dim quotaFolders = New List(Of QuotaFolder)() From { _
	New QuotaFolder() With { _
		Key .Name = "Folder1", _
		Key .AnotherInfo = 1 _
	}, _
	New QuotaFolder() With { _
		Key .Name = "Folder2", _
		Key .AnotherInfo = 2 _
	} _
}
 
Dim noQuotaFolders = folders.Where(Function(f) Not quotaFolders.Any(Function(qf) qf.Name = f.Name))

30/12/2010, 09h49
Pol63

http://www.developerfusion.com/tools.../csharp-to-vb/
30/12/2010, 10h28
jlm22

Voilà j'ai réussi à faire en sorte qu'il est la même structure cependant les 2 liste sont en faite des fichiers textes

1ère liste : liste de tout les répertoires
C:\quotas\testfred
C:\quotas\testjl
C:\quotas\testt

2ème liste (2ème fichier texte) : liste des répertoires avec un quota
C:\quotas\testfred
C:\quotas\testjl

Et en gros j'aimerais avoir :
C:\quotas\testt
le répertoire sans quota

Je pense que j'ai été claire là :mouarf:
30/12/2010, 10h39
Nathanael Marchand

Citation:

Envoyé par jlm22

Voilà j'ai réussi à faire en sorte qu'il est la même structure cependant les 2 liste sont en faite des fichiers textes

1ère liste : liste de tout les répertoires
C:\quotas\testfred
C:\quotas\testjl
C:\quotas\testt

2ème liste (2ème fichier texte) : liste des répertoires avec un quota
C:\quotas\testfred
C:\quotas\testjl

Et en gros j'aimerais avoir :
C:\quotas\testt
le répertoire sans quota

Je pense que j'ai été claire là :mouarf:

Ben elle marche pas ma solution?
30/12/2010, 10h43
jlm22

dsl mais je comprend pas ce que tu fait je commence le vb et il y a plein de variables on sait pas trop d'où elle vienne :oops:
30/12/2010, 13h13
Pol63

à lire en entier pour débuter

http://plasserre.developpez.com/cours/vb-net/
30/12/2010, 14h13
jlm22

j'ai fini par trouver plus simple la commande "fc" elle fait des miracles ^^

Code:

fc c:\ListeDossier.txt c:\listeQuota.txt

Et hop fini ! :mouarf:

Merci pour tout

Et sinon j'ai fait sa pour ceux que sa intéresse :

Code:

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
Dim i = 0
        Using sr3 As StreamReader = File.OpenText("C:\Liste.txt")
            Dim input As String
            Dim input2 As String
            input = sr3.ReadLine()
            While Not input Is Nothing
                Using sr4 As StreamReader = File.OpenText("C:\ListeQ.txt")
                    input2 = sr4.ReadLine()
                    While Not input2 Is Nothing
                        If input = input2 Then
                            Exit While
                        Else
'Tant q'on a pas parcouru toute la liste on ne l'ajoute pas
                            i = i + 1
'DossierQuota.count est le nombre de dossier avec un quota
                            If i = dossierQuota.count Then
                                TextBox2.Text = TextBox2.Text & vbCrLf & input
                            End If
                        End If
                        input2 = sr4.ReadLine()
                    End While
                    i = 0
                    input = sr3.ReadLine()
                End Using
            End While
        End Using

31/12/2010, 13h14
Pol63

fallait pas te sentir obligé :aie: