Comment lire un fichier CSV dans Visual Basic

Instructions

1. Créez un nouveau projet en cliquant "Fichier" et "Nouveau Projet."

2. Faites glisser un bouton sur votre formulaire de la boîte en utilisant votre souris.

3. Trouvez le "OpenFileDialog" contrôler et l'ajouter à votre formulaire ainsi. Depuis ce contrôle est d'abord invisible, il ne sera pas apparaître sur votre forme, mais plutôt en dessous.

4. Double-cliquez sur le bouton pour créer un événement qui va se produire lorsque l'utilisateur clique sur le bouton. Collez le code suivant qui va demander à l'utilisateur un fichier CSV et charger ses données dans un tableau 2D:

   
   
   
   

   Private Sub Button1_Click (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs) Poignées Button1.Click
   &# 9-
   &# 9-REM Obtenir le fichier que l'utilisateur veut charger.
   OpenFileDialog1.ShowDialog ()
   Filename Dim As String = OpenFileDialog1.FileName
   Dim fileStream Comme System.IO.StreamReader = New System.IO.StreamReader (nom de fichier)

   &# 9-&# 9-
   &# 9-&# 9-REM Lire toutes les données du fichier en une seule chaîne.

   Dim contenu As String = fileStream.ReadToEnd
   REM diviser la chaîne dans ses valeurs. Après cette opération est terminée, il y aura un tableau à une dimension de valeurs, et la fin des lignes sera marquée par des chaînes vides.
   Dim valeurs = contents.Split ()
   Dim arr Comme ArrayList = new ArrayList
   Rangées Dim comme ArrayList = new ArrayList

   
   
   
   

   &# 9-&# 9-REM Déplacez les données dans un tableau 2D.
   &# 9-&N ° 9;

   Pour x As Integer = 0 To lines.Length - 1
   Si les lignes (x) IsNot String.Empty Puis
   arr.Add (lignes (x))
   End If
   rows.Add (arr.Clone)
   arr.Clear ()
   Suivant
   Dim données (rows.Count, rangées (0) .count) As String
   Pour x As Integer = 0 To rows.Count - 1
   Pour y As Integer = 0 To rangées (x) .count - 1
   les données (x, y) = rangées (x) (y)
   Suivant
   Suivant
   End Sub