Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question' demande l'import d'un CSV ici en revanche besoin d'un try/catch si le csv est ilisible 'déclare le streamreader pour lecture Dim sr As StreamReader = Nothing 'selection et lecture du fichier à charger Dim dialogOpen As New OpenFileDialog With dialogOpen .InitialDirectory = Application.StartupPath 'répertoire sur lequel s'ouvrira la boite .Title = "Choisir un fichier pour l'import" 'titre de la barre .Filter = "Fichiers CSV(*.csv)|*.csv" 'filtre, seules les fichiers du soft apparaîtront .SupportMultiDottedExtensions = False ' je ne veux que cette extension .Multiselect = False ' pas de multiselection de fichier .FileName = "" ' fichier par défaut If .ShowDialog() = DialogResult.OK And _ .FileName IsNot Nothing Then 'si clic sur OK et nom de fichier <> nothing essaye d'attribuer le Try nom_fichier = .FileName 'nom du fichier choisi ( avec extension et chemin) 'instancie le streamreader pour lecture sr = New StreamReader(nom_fichier, System.Text.Encoding.Default) 'déclare une nouvelle ligne Dim Ligne As ClS_ligne 'déclare et lit directement la premiére ligne de commentaire (inutile ici) Dim Ligne_csv As String = sr.ReadLine() ' lecture compléte du fichier While Not sr.EndOfStream() ' lit les autres lignes du fichier csv Ligne_csv = sr.ReadLine() 'instancie cette nouvelle ligne Ligne = New ClS_ligne 'et rempli la ligne de compte With (Ligne) .L_date = CDate(Ligne_csv.Split(";"c)(0)) .L_type = Ligne_csv.Split(";"c)(1) If Ligne_csv.Split(";"c)(2) <> "" Then .L_budget = Ligne_csv.Split(";"c)(2) Else .L_budget = "aucun" End If .L_commentaire = Ligne_csv.Split(";"c)(3) If Ligne_csv.Split(";"c)(4) <> "" Then .L_credit = CDbl(Ligne_csv.Split(";"c)(4)) Else .L_credit = 0 'rajoute les zéros End If If Ligne_csv.Split(";"c)(5) <> "" Then .L_debit = CDbl(Ligne_csv.Split(";"c)(5)) Else .L_debit = 0 'rajoute les zéros End If .L_pointage = CBool(Ligne_csv.Split(";"c)(6)) .L_mensuel = CBool(Ligne_csv.Split(";"c)(7)) End With 'Ajoute la ligne ainsi formée mon_compte.lignes.Add(Ligne) ' puis la détruit pour la ligne suivante Ligne = Nothing End While ' ferme le ficher sr.Close()