Discussion :

[franculo_caoulene]

Salut,

Je souhaite insérer un objet Dictionary en valeur d'un autre Dictionary. En soi, il n'y a pas de problème à l'insertion et à la lecture des objets eux-mêmes. Mon problème vient des clés uniques. Je souhaite insérer des Dictionary ayant des clés communes.

Voici l'illustration de ce que je souhaite faire :

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
Public Function retournerDico() As Dictionary(Of String, Object)
	Dim retour As Dictionary(Of String, Object) = New Dictionary(Of String, Object)
	Dim dicoInterne As Dictionary(Of String, String) = New Dictionary(Of String, String)
 
	For i As Integer = 0 To 10
		If i Mod 2 = 0 Then
			retour.Add(CType(i, String), "coucou")
		Else
			dicoInterne.Add("test", "coucou")
			retour.Add(CType(i, String), destinataire)
			'dicoInterne.Clear()
		End If
	Next
	Return retour
End Function

Si je laisse ou j'enlève dicoInterne.Clear(), j'obtiens deux cas de figure :
- soit je boucle sans rien faire et j'ai un message d'erreur concernant les clés
- soit j'utilise la méthode clear() ce qui nettoie tous les Dictionary que je souhaite insérer et je n'obtiens en retour que des valeurs de clés paires.

Je suis sûr que c'est très simple, mais je ne trouve pas la solution. La voyez-vous?

Merci d'avance.

[franculo_caoulene]

Ne réussissant pas à utiliser clear() comme je l'imagine, j'essaie de supprimer toutes les paires clés/valeurs du Dictionary. Seulement, ceci ne fonctionne pas :

Code :

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

1
2
3
For Each cle As String In dicoInterne.Keys
	dicoInterne.Remove(cle)
Next

L'opération d'énumération ne peux pas se faire puisque je change la collection.

Comment puis-je donc supprimer toutes les clés/valeurs d'un Dictionary? C'est en fait la même question qu'avant, mais je n'avance pas malgré mes différentes tentatives.

[franculo_caoulene]

Bon j'ai trouvé une réponse à 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
Public Function retournerDico() As Dictionary(Of String, Object)
	Dim retour As Dictionary(Of String, Object) = New Dictionary(Of String, Object)
	Dim dicoInterne As Dictionary(Of String, String) = New Dictionary(Of String, String)
 
	For i As Integer = 0 To 10
		If i Mod 2 = 0 Then
			retour.Add(CType(i, String), "coucou")
		Else
			dicoInterne.Add("test", "coucou")
			retour.Add(CType(i, String), destinataire)
			dicoInterne = new Dictionary(Of String, String)
		End If
	Next
	Return retour
End Function

Une question me vient tout de même à l'esprit. N'étant pas un pro de la programmation orientée objet, est-ce que le fait d'instancier un nouvel objet à chaque fois est une façon propre de faire?