Hallo zusammen,
kann jemanden helfen?
Ich bin neu hier!
ich möchte aus einem CSV Datei Inhalte nach Datum und Uhrzeit (von-bis) einlesen.
Die Daten fängt ab 2. Zeile an und Trendzeichen(;).
Danke,
Ich habe das vorbereitet:
Beispiel:
CodeTags gesetzt ~VaporiZed
kann jemanden helfen?
Ich bin neu hier!
ich möchte aus einem CSV Datei Inhalte nach Datum und Uhrzeit (von-bis) einlesen.
Die Daten fängt ab 2. Zeile an und Trendzeichen(;).
Danke,
Ich habe das vorbereitet:
Beispiel:
VB.NET-Quellcode
- Imports System.IO
- Imports System.Text
- Public Class Form1
- Dim thedatatable As New DataTable
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- ComboBox1.Enabled = False
- DateTimePicker1.Value = DateTime.Now.AddDays(-1)
- DataGridView1.Columns.Clear()
- DataGridView1.DataSource = Nothing
- DataGridView1.Rows.Clear()
- thedatatable.Rows.Clear()
- Label3.Text = ""
- Label4.Text = ""
- Label5.Text = ""
- With thedatatable
- .Columns.Add("Name", System.Type.GetType("System.String"))
- .Columns.Add("Date", System.Type.GetType("System.String"))
- .Columns.Add("Time", System.Type.GetType("System.String"))
- .Columns.Add("True/False", System.Type.GetType("System.String"))
- .Columns.Add("Eb1", System.Type.GetType("System.String"))
- .Columns.Add("Wil", System.Type.GetType("System.String"))
- .Columns.Add("Eb2", System.Type.GetType("System.String"))
- .Columns.Add("Wi2", System.Type.GetType("System.String"))
- .Columns.Add("Stat", System.Type.GetType("System.String"))
- .Columns.Add("Wi_s", System.Type.GetType("System.String"))
- End With
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim thereader As New IO.StreamReader("C:\DATA\test1111.csv", System.Text.Encoding.Default)
- Dim sline As String = ""
- Dim slines(20) As String
- Dim i As Integer = 1
- ''FilePathAndName = App.Path & "" & "log.txt"
- DataGridView1.Columns.Clear()
- DataGridView1.DataSource = Nothing
- DataGridView1.Rows.Clear()
- thedatatable.Rows.Clear()
- Label3.Text = ""
- Label4.Text = ""
- Label5.Text = ""
- Do Until thereader.Peek = -1
- sline = thereader.ReadLine()
- If sline Is Nothing Then Exit Do
- slines(i) = sline
- Dim thecolumns() As String = sline.Split(";")
- Dim NewRow As DataRow = thedatatable.NewRow
- NewRow("Name") = thecolumns(0)
- NewRow("Date") = thecolumns(1)
- NewRow("Time") = thecolumns(2)
- NewRow("True/False") = thecolumns(8)
- NewRow("Eb1") = thecolumns(4)
- NewRow("Wil") = thecolumns(5)
- NewRow("Eb2") = thecolumns(5)
- NewRow("Wi2") = thecolumns(6)
- NewRow("Stat") = thecolumns(7)
- NewRow("Wi_s") = thecolumns(3)
- thedatatable.Rows.Add(NewRow)
- Loop
- thereader.Close()
- '' ComboBox1.DataSource = thedatatable
- '' ComboBox1.DisplayMember = "a"
- DataGridView1.DataSource = thedatatable
- Me.Text = thedatatable.Rows.Count & "rows" ' Oben anzeige
CodeTags gesetzt ~VaporiZed
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()