Comment lire un fichier csv dans visual basic

Comma Separated Value (CSV) est un format commun utilisé pour échanger des données entre les différents programmes qui ne peuvent pas soutenir mutuellement format natif. Par exemple, il peut être utilisé pour échanger des données de feuille de calcul entre les données de base de données Excel et une autre feuille de calcul, ou entre Access et MySQL. Visual Basic ne contient pas une fonction automatique pour le chargement de fichiers CSV, mais l`une des raisons de son large soutien est sa simplicité. Comme son nom l`indique, les fichiers CSV ne sont qu`une liste de valeurs, chacune séparée par une virgule ou une nouvelle ligne. Il est assez simple de créer un lecteur CSV dans Visual Basic.

Créer un nouveau projet en cliquant sur "Fichier" et "Nouveau projet."
Faites glisser un bouton sur votre formulaire à partir de la boîte à outils en utilisant votre souris.
Trouvez le "OpenFileDialog" contrôler et l`ajouter à votre formulaire ainsi. Étant donné que cette commande est d`abord invisible, il ne sera pas apparaître sur votre formulaire, mais plutôt en dessous.

Double-cliquez sur le bouton pour créer un événement qui se produira lorsque l`utilisateur clique sur le bouton. Collez le code suivant qui demande à l`utilisateur d`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 As 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.ReadToEndREM diviser la chaîne en 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.
valeurs Dim = contents.Split ()
Dim arr Comme ArrayList = New ArrayList
lignes Dim As ArrayList = New ArrayList

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

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