Discussion :

[franculo_caoulene]

Salut,

J'obtiens une NullReferenceException lorsque je teste l'existence d'une clé dans un Dictionary. Je teste l'existence de la clé avant l'ajout éventuel de celle-ci.
Je ne comprends pas pourquoi l'ajout fonctionne, mais pas la condition. L'ajout d'une paire clé/valeur fonctionne dans la mesure où justement il n'y a pas de clé en double, d'où le test sur l'existence de la clé. Voici le code

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 listerRetourEnvoi(ByVal fichier As String) As Dictionary(Of String, Boolean)
	Dim listeRetour As Dictionary(Of String, Boolean) = New Dictionary(Of String, Boolean)
	Dim fluxRetour As StreamReader = New StreamReader(fichier)
 
	Do While fluxRetour.ReadLine IsNot Nothing
		If Not listeRetour.ContainsKey(fluxRetour.ReadLine.Substring(0, fluxRetour.ReadLine.IndexOf(";"))) Then
			listeRetour.Add( _
			 fluxRetour.ReadLine.Substring(0, fluxRetour.ReadLine.IndexOf(";")), _
			 IIf(fluxRetour.ReadLine.Substring(fluxRetour.ReadLine.IndexOf(";")) = "NOK", False, True) _
			)
		End If
	Loop
 
	Return listeRetour
End Function

Ceci me retourne une NullReferenceException :

Code :

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

listeRetour.ContainsKey(fluxRetour.ReadLine.Substring(0, fluxRetour.ReadLine.IndexOf(";")))

Voyez-vous ce qui cloche?

Merci par avance.

[BCmDev]

Je pense que fluxRetour.ReadLine vaut Nothing : dans le code

Code :

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

1
2
 
listeRetour.ContainsKey(fluxRetour.ReadLine.Substring(0, fluxRetour.ReadLine.IndexOf(";")))

tu fais deux appels à ReadLine. Tu lis donc une ligne puis la suivante, je ne crois pas que ce soit ce que tu veuilles faire... En fin de fichier, ReadLine vaut Nothing.

[franculo_caoulene]

Bien joué, un grand merci.

Je n'étais pas du tout sur ça mais plutôt sur le Dictionary.

Encore merci.