|
Format Comma Separated Value (CSV ) est un format couramment utilisé pour échanger des données entre différents programmes pouvant 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 entre Access et MySQL Excel et une autre feuille de calcul ou . Visual Basic ne contient pas une fonction automatique de chargement des fichiers CSV , cependant l'une des raisons de son large soutien est sa simplicité. Comme son nom l'indique , les fichiers CSV sont rien d'autre qu'une liste de valeurs , séparées par une virgule ou une nouvelle ligne. Il est assez simple de créer un lecteur CSV dans Visual Basic. Instructions
1 Créez un nouveau projet en cliquant sur " Fichier" et "Nouveau projet ".
2 glisser un bouton sur votre formulaire de la boîte à outils en utilisant votre souris .
3 Trouver le contrôle " OpenFileDialog " et l'ajouter à votre formulaire ainsi . Depuis ce contrôle est d'abord invisible, il n'apparaît pas sur votre formulaire, 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 As System.EventArgs ) Handles Button1.Click REM obtenir le fichier que l'utilisateur veut load.OpenFileDialog1.ShowDialog () du fichier As String = OpenFileDialog1.FileNameDim fileStream Comme System.IO.StreamReader = New System.IO.StreamReader (filename) REM lire toutes les données du fichier dans un contenu du string.Dim simples As String = fileStream.ReadToEnd
REM diviser la chaîne dans ses valeurs. Une fois cette opération 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 () arr As ArrayList = New ArrayListDim lignes que ArrayList = new ArrayList
REM déplacer les données dans un tableau 2D . Pour x As Integer = 0 To lines.Length - lignes 1Si (x) IsNot String.Empty Thenarr.Add ( lignes ( x ) ) Fin Ifrows.Add ( arr.Clone ) arr.Clear () Suivant
données Dim ( Rows.Count , lignes ( 0) comptent. ) As String
x As Integer = 0 To Rows.Count - 1Pour y As Integer = 0 To lignes ( x ) count - . 1Données ( x , y) = lignes ( x ) ( y) NextNext
End Sub
|
