Hallo,
Habe einen Code wo ich eine CSV-Datei einlese und in einen DGV wiedergebe.
Das funktioniert soweit ok. Nun möchte ich aufgrund der "blöden" immer gleichen Datei in Zeile zwei beginnen und dort die Tabellenfelder bestimmen, da die erste Zeile leer ist.
Des Weiterem habe ich als Texttrenner für die anschließenden Felder folgendes: "1159";"Test123";
Leider weiß ich hier nicht wie ich ihm die Anführungszeichen gebe.
Über eure Hilfe würde ich mich sehr freuen.
Hier der Code:
Habe einen Code wo ich eine CSV-Datei einlese und in einen DGV wiedergebe.
Das funktioniert soweit ok. Nun möchte ich aufgrund der "blöden" immer gleichen Datei in Zeile zwei beginnen und dort die Tabellenfelder bestimmen, da die erste Zeile leer ist.
Des Weiterem habe ich als Texttrenner für die anschließenden Felder folgendes: "1159";"Test123";
Leider weiß ich hier nicht wie ich ihm die Anführungszeichen gebe.
Über eure Hilfe würde ich mich sehr freuen.
Hier der Code:
VB.NET-Quellcode
- Private Sub Filepath(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- filename = "C:\Dokumente und Einstellungen\Home\Eigene Dateien\Downloads\Test.csv"
- End Sub
- Private Sub bNeueK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bNeueK.Click
- Try
- Dim splits As String()
- Using sr As StreamReader = New StreamReader(filename)
- 'read the first line for the table column headers
- splits = sr.ReadLine().Split(";")
- For i As Integer = 0 To UBound(splits)
- dtFriends.Columns.Add(splits(i))
- Next
- 'read the rest of the lines to add rows to the table
- Do While Not sr.EndOfStream
- splits = sr.ReadLine.Split(";")
- dtFriends.Rows.Add(splits)
- Loop
- End Using
- Catch ex As Exception
- Finally
- DGVImport.DataSource = dtFriends.DefaultView
- End Try
- End Sub