Comma Separated Value (CSV) -Format ist ein gängiges Format verwendet werden, um Daten zwischen verschiedenen Programmen, die nicht unterstützen kann jeweils anderen nativen Format auszutauschen. Zum Beispiel kann es verwendet werden, um Daten zwischen Excel Tabellenkalkulation und anderen Tabellenkalkulation oder Datenbank Daten zwischen Access und MySQL auszutauschen. Visual Basic nicht enthalten eine automatische Funktion zum Laden von CSV-Dateien , aber auch einer der Gründe für seine breite Unterstützung seiner Einfachheit ist . Wie der Name schon sagt, sind CSV-Dateien nichts anderes als eine Liste von Werten , die jeweils durch ein Komma oder eine neue Zeile getrennt. Es ist ziemlich einfach, eine CSV -Leser in Visual Basic erstellen. Anleitung
1

Erstellen eines neuen Projekts durch Klick auf " Datei" und " New Project".
2

Ziehen Sie eine Schaltfläche auf das Formular aus der Toolbox mit Ihrem Maus.
3

finden Sie die " OpenFileDialog " Steuerung und fügen Sie es Ihrer Form als gut. Da diese Kontrolle ist zunächst unsichtbar , wird es nicht auf dem Formular angezeigt werden, sondern darunter.
4

auf den Button Doppelklicken Sie auf eine Veranstaltung , die auftreten , wenn der Benutzer auf die Schaltfläche klickt schaffen . Fügen Sie den folgenden Code, der die Benutzer für eine CSV-Datei fragen wird, und lädt die Daten in einem 2D-Array :

Private Sub Button1_Click (ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click REM Holen Sie die Datei der Benutzer will load.OpenFileDialog1.ShowDialog () Dim Dateiname As String = OpenFileDialog1.FileNameDim fileStream Wie System.IO.StreamReader = New System.IO.StreamReader (Dateiname) REM Lesen Sie alle Daten aus der Datei in ein einzigen string.Dim Inhalt As String = fileStream.ReadToEnd

REM Split die Zeichenfolge in seinen Werten . Nachdem dieser Vorgang abgeschlossen ist , wird es ein eindimensionales Array von Werten , und das Ende der Zeilen durch leere Strings markiert werden.

Dim Werte = contents.Split () Dim arr Wie ArrayList = New ArrayListDim Zeilen wie ArrayList = New ArrayList

REM Verschieben Sie die Daten in ein 2D- Array. Für x As Integer = 0 To lines.Length - 1Wenn Linien (x) IsNot String.Empty Thenarr.Add (Zeilen ( x )) End Ifrows.Add ( arr.Clone ) arr.Clear () Next

Dim Daten ( Rows.Count , Reihen (0) zählen. ) As String

x As Integer = 0 To Rows.Count - 1Für y As Integer = 0 To Zeilen (x) zählen - . 1data ( x , y) = Zeilen (x) (y ) nächsterWeiter

End Sub