Discussion :

[jlm22]

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

[Pol63]

il faut parcourir les 2 boucles successivements pour regarder si l'élément est contenu dans l'autre

Code :

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

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)

[jlm22]

les 2 listes doivent avoir la même structure de données je suppose ?

[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

[tomlev]

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 :

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

Dim dossiersSansQuota = dossiers.Except(dossiersAvecQuota)

[Pol63]

je me rappelais qu'il y avait intersect c'est déjà ca

[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

[Nathanael Marchand]

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 :

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

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 :

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

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 )

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
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 :

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
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))