In DataGridView CSV einlesen und Spaltenanzahl automatisch festlegen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von TonyB.

    In DataGridView CSV einlesen und Spaltenanzahl automatisch festlegen

    Hallo VB'ler Experten,

    zunächst einmal, ich bin jetzt nicht der Profi in diesem Fach. Ausser ein wenig VB Anwendungen in Excel, kenne ich mich nicht ganz so aus.

    Ich möchte folgendens Realisieren und benötige hier ein wenig Hilfe. In den letzten Tagen habe ich schon mehrfach verschiedene Seiten ergoogelt, bin nur zu keinem Ergebnis gekommen.

    Es wird eine CSV Datei in eine DataGridView eingelesen. Aus diesen Werten wird später ein Liniendiagramm erstellt, was mehr oder weniger auch funktioniert.

    Nun hänge ich an einigen Details fest. Es wird von Begin die Anzahl der Spalten in der DataGridView festgelegt. In den zu imortiernden CSV Dateien sind die Anzahl der Spalten jedoch nicht immer gleich.

    Nun dachte ich, man kann die Anzahl der Spalten in der CSV Datei ermitteln und später bei der Erstellung der DataGridView einfließen lassen.

    Mein Ansatz ist, es werden die Trennzeichen "," in der CSV gezählt, welche die Anzahl der Spalten ergibt.

    Es wird jedoch ein falscher Wert ausgegeben und ich weiß nicht warum. Was ist also in diesem Quellcode falsch?

    Bitte nicht über den Quellcode lachen hier ist bestimmt einiges nicht richtig, diesen habe ich aus verschiedenen Codeschnippsel zusammengesucht und angepasst, aber er funktioniert zumindest :)

    Danke


    VB.NET-Quellcode

    1. Public Class Form1
    3. Const ANZAHLSPALTEN As Integer = 30
    4. Const TRENNZEICHEN As Char = ","
    6. Private Sub ÖffnenToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÖffnenToolStripButton.Click
    7. With OpenFileDialog1
    8. .Filter = "CSV Dateien (*.csv)|*.csv" 'Es werden nur CSV Dateien angezeigt
    9. .FilterIndex = 1
    10. .FileName = "" 'Der Filname bleibt leer
    11. .InitialDirectory = "" 'Kann eine Pfad Angabge enthalten
    12. .Title = "Datei auswählen ..." 'Zeigt den Titel des Öffnenfensters
    13. .ShowDialog() 'Der Dialog wird gestartr
    14. End With
    15. End Sub
    17. Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
    18. Dim Felder() As String
    19. Dim Zeile As String
    20. Dim DATEINAME As String = OpenFileDialog1.FileName
    21. Dim dt = New DataTable()
    22. Dim sr = My.Computer.FileSystem.OpenTextFileReader(DATEINAME, System.Text.Encoding.Default)
    24. '--------------------------------------------------------
    25. ' hier ist der Ausschnitt welcher zunächst über eine MsgBox
    26. 'die Anzahl der Trennzeichen ausgeben sollte
    28. Dim pfad As String = (sr.Read - 1)
    29. Dim dateinamesplit() As String = pfad.Split(TRENNZEICHEN)
    30. Dim index As Integer = UBound(dateinamesplit)
    31. Dim dateinamenew As Integer = dateinamesplit(index)
    32. MsgBox(dateinamenew)
    33. '--------------------------------------------------------
    35. For i As Integer = 1 To ANZAHLSPALTEN
    36. dt.Columns.Add("Spalte " & i) ' Spaltenüberrschriften erzeugen
    37. Next
    39. Do While (sr.Peek > -1) ' Dateiende abfragen
    40. Zeile = sr.ReadLine ' Eine Datenzeile lesen
    41. Felder = Zeile.Split(TRENNZEICHEN) ' Splitten in Felder
    42. Dim dr As DataRow = dt.NewRow ' Leere Datenzeile erstellen
    43. dr.ItemArray = Felder ' In DataRow speichern
    44. dt.Rows.Add(dr) ' Felder zur Datatable hinzufügen
    45. Loop
    46. DataGridView1.DataSource = dt ' DataTable in DataGridView zeigen
    47. InitializeDataGridView()
    48. End Sub

    verwende Microsoft.VisualBasic.FileIO.FileSystem.OpenTextFieldParser(String) As Microsoft.VisualBasic.FileIO.TextFieldParser

    Das gibt einen fertigen Parser für csv zurück. Da kann man auch die Trennzeichen dran einstellen, und ob Überschriften enthalten sind, und das Ding ermittelt die Spalten richtig (jdfs. wenn das csv ok ist)

    oder auch CSV mit OleDb einlesen. allerdings kann man damit die Trennzeichen nicht variieren, sondern ist drauf angewiesen, dass das csv mit der Trennzeichen-Einstellung der Registry übereinstimmt.

Facebook
Telefonspende