Hallo,
ich will eine komplette Excel.csv auslesen und erstmal in einer .txt Datei speichern, anschließend soll der Inhalt der Excel.csv gelöscht werden.
Mit dem aktuellen Code wird lediglich die 1. Spalte ausgelesen wie kann ich es umsetzen, dass die ganze Excel.csv ausgelesen wird?
Welches Dateiformat wäre sinnvoll zu wählen, um später wieder auf die ausgelesenen Daten zuzugreifen?
ich will eine komplette Excel.csv auslesen und erstmal in einer .txt Datei speichern, anschließend soll der Inhalt der Excel.csv gelöscht werden.
Mit dem aktuellen Code wird lediglich die 1. Spalte ausgelesen wie kann ich es umsetzen, dass die ganze Excel.csv ausgelesen wird?
Welches Dateiformat wäre sinnvoll zu wählen, um später wieder auf die ausgelesenen Daten zuzugreifen?
VB.NET-Quellcode
- Imports System.IO
- Public Class Form1
- Private Sub CmdLesen_Click(sender As Object, e As EventArgs) Handles CmdLesen.Click
- Try
- Dim fs As New FileStream("E:\Messwerte.csv", FileMode.Open)
- Dim sr As New StreamReader(fs)
- LblAnzeige.Text = ""
- Dim anzahl = 0
- Do While sr.Peek() <> -1
- anzahl += 1
- Dim zeile = sr.ReadLine()
- Dim teil() = zeile.Split(";")
- Dim name = teil(0)
- LblAnzeige.Text &= $"{name} #"
- Loop
- sr.Close()
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- End Try
- End Sub
- Private Sub CmdSchreiben_Click(sender As Object, e As EventArgs) Handles CmdSchreiben.Click
- Schreiben(FileMode.Create)
- End Sub
- Private Sub CmdAnhaengen_Click(sender As Object, e As EventArgs)
- Schreiben(FileMode.Append)
- End Sub
- Private Sub Schreiben(fm As FileMode)
- Try
- Dim fs As New FileStream("E:\datei.txt", fm)
- Dim sw As New StreamWriter(fs)
- sw.WriteLine(LblAnzeige.Text)
- sw.Close()
- LblAnzeige.Text = ""
- Catch ex As Exception
- Dim value = MessageBox.Show(ex.Message)
- End Try
- End Sub
- End Class