1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Public Shared Function listerRetourEnvoi(ByVal fichier As String, ByVal er 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)
Dim ligne, numero As String
Dim statut As Boolean
Do While fluxRetour.ReadLine IsNot Nothing
ligne = fluxRetour.ReadLine
If Not listeRetour.ContainsKey(ligne.Substring(0, fluxRetour.ReadLine.IndexOf(";"))) Then
numero = formaterNumeroClient(ligne.Substring(0, ligne.IndexOf(";")), er)
statut = IIf(ligne.Substring(ligne.IndexOf(";")) = "OK", True, False)
listeRetour.Add(numero, statut)
End If
Loop
Return listeRetour
End Function |
Partager