Instruction du type "If For Each"

Bonjour,

J'ai une classe Dossier qui possède deux états Nom et Type comme suit :

Code:

---

1 2 3 4 5 6 7

Public Class Dossier   Private Nom As String Private Type As Integer   End Class

---

Toutes les instanciations de cette classe son ajouter dans une collection. Mon problème et que lorsque j'instancie un nouveau dossier je veux être sûr que le nom que je lui donne n'est pas déjà utilisé, pour celà j'utilise la méthode suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim i as integer = 0 For Each Dossier as Dossier in MesDossiers If Dossier.Nom = Nom_NouveauDossier then i += 1 Next If i = 0 MesDossiers.Add(NouveauDossier) Else MsgBox("Erreur, ce nom de dossier existe déjà") EndIf

---

Sauf que je trouve cette méthode assez lourde. N'existe-t-il une instruction du type :

Code:

---

1 2	If For Each Dossier In MesDossiers, Dossier.Nom <> Nom_NouveauDossier then MesDossiers.Add(NouveauDossier)

---

? ou quelque chose qui simplifierait la programmation ?

Merci de votre aide !

Nico.

quelques défauts de vocabulaire dans ta description, faudra ptete lire un peu de doc pour avoir les bons termes

plusieurs possibilités pour diminuer le nombre de ligne de code

si tu es sur le framework 3 ou 3.5, tu peux utiliser linq to object

Code:

---

1 2 3 4 5

if (from d as dossier in mesdossiers where d.Nom = Nom_NouveauDossier select d).count = 0 then MesDossiers.Add(NouveauDossier) Else MsgBox("Erreur, ce nom de dossier existe déjà") end If

---

sinon soit en modifiant un peu ta classe avec un design pattern factory et un dictionary (ou un list contenant les noms) et donc juste un .containskey (ou .contains pour le list)

ou encore sans factory avec mesDossiers as dictionary(of string,dossier)
dans le string tu mets le nom (ca permet au passage de retrouver une instance par son nom de manière performante)