Hallo zusammen,
leider hatte ich in den letzten Tag sehr viel zu tun, so das ich mich erst jetzt wieder melden kann.
@VaporiZed:
Noch einmal vielen Dank für Deine geduldige Hilfe.
Das Programm läuft jetzt Einwand frei.
Ich habe es noch etwas optimiert, so das ich den sehr Guten Einwand von Kasi mit dem Dateinamen aufgenommen habe.
Auch kann ich jetzt bis zu 10 willkürlichen Daten aus der CSV auslesen.
Auch wenn alle in der letzten Zeile stehen und die Anzahl der Zeilen variiert.
Sicher könnte man den Code vereinfachen. Ich kann es nicht da mein Wissen noch zu klein ist.
Aber es läuft super schnell und ich habe meine Freude daran. Ich stelle mal den Code ein, vielleicht kann ihn ja jemand noch gebrauchen.
Sobald ich Zeit habe, werde ich versuchen die Werte in eine Excel-Tabelle zu bekommen.
Ich glaube das ist nicht ganz so schwer.
@Kasi:
auch an Dich vielen Dank
Spoiler anzeigen
leider hatte ich in den letzten Tag sehr viel zu tun, so das ich mich erst jetzt wieder melden kann.
@VaporiZed:
Noch einmal vielen Dank für Deine geduldige Hilfe.
Das Programm läuft jetzt Einwand frei.
Ich habe es noch etwas optimiert, so das ich den sehr Guten Einwand von Kasi mit dem Dateinamen aufgenommen habe.
Auch kann ich jetzt bis zu 10 willkürlichen Daten aus der CSV auslesen.
Auch wenn alle in der letzten Zeile stehen und die Anzahl der Zeilen variiert.
Sicher könnte man den Code vereinfachen. Ich kann es nicht da mein Wissen noch zu klein ist.
Aber es läuft super schnell und ich habe meine Freude daran. Ich stelle mal den Code ein, vielleicht kann ihn ja jemand noch gebrauchen.
Sobald ich Zeit habe, werde ich versuchen die Werte in eine Excel-Tabelle zu bekommen.
Ich glaube das ist nicht ganz so schwer.
@Kasi:
auch an Dich vielen Dank
Quellcode
- Imports System.IO
- Public Class Form1
- Public Line1, Line2, Line3, Line4, Line5, Line6, Line7, Line8, Line9, Line10 As String
- Private Sub cbx1letzteZeile_CheckedChanged(sender As Object, e As EventArgs) Handles cbx1letzteZeile.CheckedChanged, cbx3letzteZeile.CheckedChanged, cbx2letzteZeile.CheckedChanged, cbx9letzteZeile.CheckedChanged, cbx8letzteZeile.CheckedChanged, cbx7letzteZeile.CheckedChanged, cbx6letzteZeile.CheckedChanged, cbx5letzteZeile.CheckedChanged, cbx4letzteZeile.CheckedChanged, cbx10letzteZeile.CheckedChanged
- If cbx1letzteZeile.Checked = True Then txbZeilennummer1.Text = "0"
- 'If cbx1letzteZeile.Checked = False Then txbZeilennummer1.Text = ""
- If cbx2letzteZeile.Checked = True Then txbZeilennummer2.Text = "0"
- If cbx2letzteZeile.Checked = False Then txbZeilennummer2.Text = ""
- If cbx3letzteZeile.Checked = True Then txbZeilennummer3.Text = "0"
- If cbx3letzteZeile.Checked = False Then txbZeilennummer3.Text = ""
- If cbx4letzteZeile.Checked = True Then txbZeilennummer4.Text = "0"
- If cbx4letzteZeile.Checked = False Then txbZeilennummer4.Text = ""
- If cbx5letzteZeile.Checked = True Then txbZeilennummer5.Text = "0"
- If cbx5letzteZeile.Checked = False Then txbZeilennummer5.Text = ""
- If cbx6letzteZeile.Checked = True Then txbZeilennummer6.Text = "0"
- If cbx6letzteZeile.Checked = False Then txbZeilennummer6.Text = ""
- If cbx7letzteZeile.Checked = True Then txbZeilennummer7.Text = "0"
- If cbx7letzteZeile.Checked = False Then txbZeilennummer7.Text = ""
- If cbx8letzteZeile.Checked = True Then txbZeilennummer8.Text = "0"
- If cbx8letzteZeile.Checked = False Then txbZeilennummer8.Text = ""
- If cbx9letzteZeile.Checked = True Then txbZeilennummer9.Text = "0"
- If cbx9letzteZeile.Checked = False Then txbZeilennummer9.Text = ""
- If cbx10letzteZeile.Checked = True Then txbZeilennummer10.Text = "0"
- If cbx10letzteZeile.Checked = False Then txbZeilennummer10.Text = ""
- End Sub
- Private Sub cmbNeueinlesen_Click(sender As Object, e As EventArgs) Handles cmbNeueinlesen.Click
- 'Call alles_Einlesen()
- Call csv_Daten_Einlesen()
- End Sub
- Sub csv_Daten_Einlesen()
- 'Try
- Dim PathOfTargetFile = String.Empty
- Dim FolderBrows As FolderBrowserDialog = New FolderBrowserDialog
- Dim x As Integer
- x = 0
- If txbBennenung1.Enabled And txbBennenung1.Text <> "" And txbZeilennummer1.Text <> "" And txbSpaltennummer1.Text <> "" Then x = 1
- If txbBennenung2.Enabled And txbBennenung2.Text <> "" And txbZeilennummer2.Text <> "" And txbSpaltennummer2.Text <> "" And x = 1 Then x = 2
- If txbBennenung3.Enabled And txbBennenung3.Text <> "" And txbZeilennummer3.Text <> "" And txbSpaltennummer3.Text <> "" And x = 2 Then x = 3
- If txbBennenung4.Enabled And txbBennenung4.Text <> "" And txbZeilennummer4.Text <> "" And txbSpaltennummer4.Text <> "" And x = 3 Then x = 4
- If txbBennenung5.Enabled And txbBennenung5.Text <> "" And txbZeilennummer5.Text <> "" And txbSpaltennummer5.Text <> "" And x = 4 Then x = 5
- If txbBennenung6.Enabled And txbBennenung6.Text <> "" And txbZeilennummer6.Text <> "" And txbSpaltennummer6.Text <> "" And x = 5 Then x = 6
- If txbBennenung7.Enabled And txbBennenung7.Text <> "" And txbZeilennummer7.Text <> "" And txbSpaltennummer7.Text <> "" And x = 6 Then x = 7
- If txbBennenung8.Enabled And txbBennenung8.Text <> "" And txbZeilennummer8.Text <> "" And txbSpaltennummer8.Text <> "" And x = 7 Then x = 8
- If txbBennenung9.Enabled And txbBennenung9.Text <> "" And txbZeilennummer9.Text <> "" And txbSpaltennummer9.Text <> "" And x = 8 Then x = 9
- If txbBennenung10.Enabled And txbBennenung10.Text <> "" And txbZeilennummer10.Text <> "" And txbSpaltennummer10.Text <> "" And x = 9 Then x = 10
- If x = 0 And ckbLetzteZeile.Checked = True Then x = 11
- If FolderBrows.ShowDialog() = DialogResult.Cancel Then Return 'Abfragen wo die neue Datei liegt. Wenn auf Abbruch gedrückt wird, beenden der Routine
- Using Sfd As New SaveFileDialog
- Sfd.Filter = "CSV-Datei (*.csv)|*.csv"
- If Sfd.ShowDialog = DialogResult.Cancel Then Return
- PathOfTargetFile = Sfd.FileName
- End Using
- Dim FinalDataList As New List(Of String)
- Try
- Select Case x
- Case 0
- MsgBox("Sie müssen mindestens eine Auswahl treffen.", MsgBoxStyle.OkOnly)
- txbBennenung1.Select()
- Case 1
- For Each CsvFile In New IO.DirectoryInfo(FolderBrows.SelectedPath).GetFiles("*.csv")
- Dim FileLinesToAnalyze = IO.File.ReadAllLines(CsvFile.FullName)
- If cbx1letzteZeile.Checked = True Then
- Line1 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer1.Text - 1)
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- ElseIf cbx1letzteZeile.Checked = False Then
- Line1 = FileLinesToAnalyze(txbZeilennummer1.Text - 1).Split(";"c)(txbSpaltennummer1.Text - 1)
- If ckbLetzteZeile.Checked = True Then
- Dim Lastline = FileLinesToAnalyze.Last '.Split(";"c)()
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{Lastline};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- Else
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- End If
- End If
- Next
- IO.File.WriteAllLines(PathOfTargetFile, FinalDataList.ToArray)
- Case 2
- For Each CsvFile In New IO.DirectoryInfo(FolderBrows.SelectedPath).GetFiles("*.csv")
- Dim FileLinesToAnalyze = IO.File.ReadAllLines(CsvFile.FullName)
- 'Line1
- If cbx1letzteZeile.Checked = True Then
- Line1 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer1.Text - 1)
- ElseIf cbx1letzteZeile.Checked = False Then
- Line1 = FileLinesToAnalyze(txbZeilennummer1.Text - 1).Split(";"c)(txbSpaltennummer1.Text - 1)
- End If
- 'Line1
- If cbx2letzteZeile.Checked = True Then
- Line2 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer2.Text - 1)
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- ElseIf cbx2letzteZeile.Checked = False Then
- Line2 = FileLinesToAnalyze(txbZeilennummer2.Text - 1).Split(";"c)(txbSpaltennummer2.Text - 1)
- If ckbLetzteZeile.Checked = True Then
- Dim Lastline = FileLinesToAnalyze.Last '.Split(";"c)()
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{Lastline};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- Else
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- End If
- End If
- Next
- IO.File.WriteAllLines(PathOfTargetFile, FinalDataList.ToArray)
- Case 3
- For Each CsvFile In New IO.DirectoryInfo(FolderBrows.SelectedPath).GetFiles("*.csv")
- Dim FileLinesToAnalyze = IO.File.ReadAllLines(CsvFile.FullName)
- 'Line1
- If cbx1letzteZeile.Checked = True Then
- Line1 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer1.Text - 1)
- ElseIf cbx1letzteZeile.Checked = False Then
- Line1 = FileLinesToAnalyze(txbZeilennummer1.Text - 1).Split(";"c)(txbSpaltennummer1.Text - 1)
- End If
- 'Line1
- 'Line2
- If cbx2letzteZeile.Checked = True Then
- Line2 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer2.Text - 1)
- ElseIf cbx2letzteZeile.Checked = False Then
- Line2 = FileLinesToAnalyze(txbZeilennummer2.Text - 1).Split(";"c)(txbSpaltennummer2.Text - 1)
- End If
- 'Line 2
- If cbx3letzteZeile.Checked = True Then
- Line3 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer3.Text - 1)
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3};Dateiname:;{CsvFile}")
- ElseIf cbx3letzteZeile.Checked = False Then
- Line3 = FileLinesToAnalyze(txbZeilennummer3.Text - 1).Split(";"c)(txbSpaltennummer3.Text - 1)
- If ckbLetzteZeile.Checked = True Then
- Dim Lastline = FileLinesToAnalyze.Last '.Split(";"c)()
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3};{Lastline};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- Else
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- End If
- End If
- 'FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- Next
- IO.File.WriteAllLines(PathOfTargetFile, FinalDataList.ToArray)
- Case 4
- For Each CsvFile In New IO.DirectoryInfo(FolderBrows.SelectedPath).GetFiles("*.csv")
- Dim FileLinesToAnalyze = IO.File.ReadAllLines(CsvFile.FullName)
- 'Line1
- If cbx1letzteZeile.Checked = True Then
- Line1 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer1.Text - 1)
- ElseIf cbx1letzteZeile.Checked = False Then
- Line1 = FileLinesToAnalyze(txbZeilennummer1.Text - 1).Split(";"c)(txbSpaltennummer1.Text - 1)
- End If
- 'Line1
- 'Line2
- If cbx2letzteZeile.Checked = True Then
- Line2 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer2.Text - 1)
- 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- ElseIf cbx2letzteZeile.Checked = False Then
- Line2 = FileLinesToAnalyze(txbZeilennummer2.Text - 1).Split(";"c)(txbSpaltennummer2.Text - 1)
- End If
- 'Line2
- 'Line3
- If cbx3letzteZeile.Checked = True Then
- Line3 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer3.Text - 1)
- ElseIf cbx3letzteZeile.Checked = False Then
- Line3 = FileLinesToAnalyze(txbZeilennummer3.Text - 1).Split(";"c)(txbSpaltennummer3.Text - 1)
- End If
- 'Lin3
- If cbx4letzteZeile.Checked = True Then
- Line4 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer4.Text - 1)
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};Dateiname:;{CsvFile}")
- ElseIf cbx4letzteZeile.Checked = False Then
- Line4 = FileLinesToAnalyze(txbZeilennummer4.Text - 1).Split(";"c)(txbSpaltennummer4.Text - 1)
- If ckbLetzteZeile.Checked = True Then
- Dim Lastline = FileLinesToAnalyze.Last '.Split(";"c)()
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{Lastline};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- Else
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- End If
- End If
- 'FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4}; Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- Next
- IO.File.WriteAllLines(PathOfTargetFile, FinalDataList.ToArray)
- Case 5
- For Each CsvFile In New IO.DirectoryInfo(FolderBrows.SelectedPath).GetFiles("*.csv")
- Dim FileLinesToAnalyze = IO.File.ReadAllLines(CsvFile.FullName)
- 'Line1
- If cbx1letzteZeile.Checked = True Then
- Line1 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer1.Text - 1)
- ElseIf cbx1letzteZeile.Checked = False Then
- Line1 = FileLinesToAnalyze(txbZeilennummer1.Text - 1).Split(";"c)(txbSpaltennummer1.Text - 1)
- End If
- 'Line1
- 'Line2
- If cbx2letzteZeile.Checked = True Then
- Line2 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer2.Text - 1)
- 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- ElseIf cbx2letzteZeile.Checked = False Then
- Line2 = FileLinesToAnalyze(txbZeilennummer2.Text - 1).Split(";"c)(txbSpaltennummer2.Text - 1)
- End If
- 'Line2
- 'Line3
- If cbx3letzteZeile.Checked = True Then
- Line3 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer3.Text - 1)
- ElseIf cbx3letzteZeile.Checked = False Then
- Line3 = FileLinesToAnalyze(txbZeilennummer3.Text - 1).Split(";"c)(txbSpaltennummer3.Text - 1)
- End If
- 'Line3
- 'Line4
- If cbx4letzteZeile.Checked = True Then
- Line4 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer4.Text - 1)
- ElseIf cbx4letzteZeile.Checked = False Then
- Line4 = FileLinesToAnalyze(txbZeilennummer4.Text - 1).Split(";"c)(txbSpaltennummer4.Text - 1)
- End If
- 'Line4
- If cbx5letzteZeile.Checked = True Then
- Line5 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer5.Text - 1)
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5};Dateiname:;{CsvFile}")
- ElseIf cbx5letzteZeile.Checked = False Then
- Line5 = FileLinesToAnalyze(txbZeilennummer5.Text - 1).Split(";"c)(txbSpaltennummer5.Text - 1)
- If ckbLetzteZeile.Checked = True Then
- Dim Lastline = FileLinesToAnalyze.Last '.Split(";"c)()
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5};{Lastline};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- Else
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- End If
- End If
- 'FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4}; {txbBennenung5.Text}:; {Line5}; Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- Next
- IO.File.WriteAllLines(PathOfTargetFile, FinalDataList.ToArray)
- Case 6
- For Each CsvFile In New IO.DirectoryInfo(FolderBrows.SelectedPath).GetFiles("*.csv")
- Dim FileLinesToAnalyze = IO.File.ReadAllLines(CsvFile.FullName)
- 'Line1
- If cbx1letzteZeile.Checked = True Then
- Line1 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer1.Text - 1)
- ElseIf cbx1letzteZeile.Checked = False Then
- Line1 = FileLinesToAnalyze(txbZeilennummer1.Text - 1).Split(";"c)(txbSpaltennummer1.Text - 1)
- End If
- 'Line1
- 'Line2
- If cbx2letzteZeile.Checked = True Then
- Line2 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer2.Text - 1)
- 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- ElseIf cbx2letzteZeile.Checked = False Then
- Line2 = FileLinesToAnalyze(txbZeilennummer2.Text - 1).Split(";"c)(txbSpaltennummer2.Text - 1)
- End If
- 'Line2
- 'Line3
- If cbx3letzteZeile.Checked = True Then
- Line3 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer3.Text - 1)
- ElseIf cbx3letzteZeile.Checked = False Then
- Line3 = FileLinesToAnalyze(txbZeilennummer3.Text - 1).Split(";"c)(txbSpaltennummer3.Text - 1)
- End If
- 'Line3
- 'Line4
- If cbx4letzteZeile.Checked = True Then
- Line4 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer4.Text - 1)
- ElseIf cbx4letzteZeile.Checked = False Then
- Line4 = FileLinesToAnalyze(txbZeilennummer4.Text - 1).Split(";"c)(txbSpaltennummer4.Text - 1)
- End If
- 'Line4
- 'Line5
- If cbx5letzteZeile.Checked = True Then
- Line5 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer5.Text - 1)
- ElseIf cbx5letzteZeile.Checked = False Then
- Line5 = FileLinesToAnalyze(txbZeilennummer5.Text - 1).Split(";"c)(txbSpaltennummer5.Text - 1)
- End If
- 'Line5
- If cbx6letzteZeile.Checked = True Then
- Line6 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer6.Text - 1)
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5}; {txbBennenung6.Text}:; {Line6};Dateiname:;{CsvFile}")
- ElseIf cbx6letzteZeile.Checked = False Then
- Line6 = FileLinesToAnalyze(txbZeilennummer6.Text - 1).Split(";"c)(txbSpaltennummer6.Text - 1)
- If ckbLetzteZeile.Checked = True Then
- Dim Lastline = FileLinesToAnalyze.Last '.Split(";"c)()
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5}; {txbBennenung6.Text}:; {Line6};{Lastline};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- Else
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5}; {txbBennenung6.Text}:; {Line6};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- End If
- End If
- 'FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5};
- '{txbBennenung6.Text}:; {Line6}; Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- Next
- IO.File.WriteAllLines(PathOfTargetFile, FinalDataList.ToArray)
- Case 7
- For Each CsvFile In New IO.DirectoryInfo(FolderBrows.SelectedPath).GetFiles("*.csv")
- Dim FileLinesToAnalyze = IO.File.ReadAllLines(CsvFile.FullName)
- 'Line1
- If cbx1letzteZeile.Checked = True Then
- Line1 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer1.Text - 1)
- ElseIf cbx1letzteZeile.Checked = False Then
- Line1 = FileLinesToAnalyze(txbZeilennummer1.Text - 1).Split(";"c)(txbSpaltennummer1.Text - 1)
- End If
- 'Line1
- 'Line2
- If cbx2letzteZeile.Checked = True Then
- Line2 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer2.Text - 1)
- 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- ElseIf cbx2letzteZeile.Checked = False Then
- Line2 = FileLinesToAnalyze(txbZeilennummer2.Text - 1).Split(";"c)(txbSpaltennummer2.Text - 1)
- End If
- 'Line2
- 'Line3
- If cbx3letzteZeile.Checked = True Then
- Line3 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer3.Text - 1)
- ElseIf cbx3letzteZeile.Checked = False Then
- Line3 = FileLinesToAnalyze(txbZeilennummer3.Text - 1).Split(";"c)(txbSpaltennummer3.Text - 1)
- End If
- 'Line3
- 'Line4
- If cbx4letzteZeile.Checked = True Then
- Line4 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer4.Text - 1)
- ElseIf cbx4letzteZeile.Checked = False Then
- Line4 = FileLinesToAnalyze(txbZeilennummer4.Text - 1).Split(";"c)(txbSpaltennummer4.Text - 1)
- End If
- 'Line4
- 'Line5
- If cbx5letzteZeile.Checked = True Then
- Line5 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer5.Text - 1)
- ElseIf cbx5letzteZeile.Checked = False Then
- Line5 = FileLinesToAnalyze(txbZeilennummer5.Text - 1).Split(";"c)(txbSpaltennummer5.Text - 1)
- End If
- 'Line5
- 'Line6
- If cbx6letzteZeile.Checked = True Then
- Line6 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer6.Text - 1)
- ElseIf cbx6letzteZeile.Checked = False Then
- Line6 = FileLinesToAnalyze(txbZeilennummer6.Text - 1).Split(";"c)(txbSpaltennummer6.Text - 1)
- End If
- 'Line6
- 'Line7
- If cbx7letzteZeile.Checked = True Then
- Line7 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer7.Text - 1)
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5};{txbBennenung6.Text}:; {Line6};{txbBennenung7.Text}:; {Line7};Dateiname:;{CsvFile}")
- ElseIf cbx7letzteZeile.Checked = False Then
- Line7 = FileLinesToAnalyze(txbZeilennummer7.Text - 1).Split(";"c)(txbSpaltennummer7.Text - 1)
- If ckbLetzteZeile.Checked = True Then
- Dim Lastline = FileLinesToAnalyze.Last '.Split(";"c)()
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5};{txbBennenung6.Text}:; {Line6};{txbBennenung7.Text}:; {Line7};{Lastline};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- Else
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5};{txbBennenung6.Text}:; {Line6};{txbBennenung7.Text}:; {Line7};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- End If
- End If
- 'FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5};
- '{txbBennenung6.Text}:; {Line6};{txbBennenung7.Text}:; {Line7}; Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- Next
- IO.File.WriteAllLines(PathOfTargetFile, FinalDataList.ToArray)
- Case 8
- For Each CsvFile In New IO.DirectoryInfo(FolderBrows.SelectedPath).GetFiles("*.csv")
- Dim FileLinesToAnalyze = IO.File.ReadAllLines(CsvFile.FullName)
- 'Line1
- If cbx1letzteZeile.Checked = True Then
- Line1 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer1.Text - 1)
- ElseIf cbx1letzteZeile.Checked = False Then
- Line1 = FileLinesToAnalyze(txbZeilennummer1.Text - 1).Split(";"c)(txbSpaltennummer1.Text - 1)
- End If
- 'Line1
- 'Line2
- If cbx2letzteZeile.Checked = True Then
- Line2 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer2.Text - 1)
- 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- ElseIf cbx2letzteZeile.Checked = False Then
- Line2 = FileLinesToAnalyze(txbZeilennummer2.Text - 1).Split(";"c)(txbSpaltennummer2.Text - 1)
- End If
- 'Line2
- 'Line3
- If cbx3letzteZeile.Checked = True Then
- Line3 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer3.Text - 1)
- ElseIf cbx3letzteZeile.Checked = False Then
- Line3 = FileLinesToAnalyze(txbZeilennummer3.Text - 1).Split(";"c)(txbSpaltennummer3.Text - 1)
- End If
- 'Line3
- 'Line4
- If cbx4letzteZeile.Checked = True Then
- Line4 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer4.Text - 1)
- ElseIf cbx4letzteZeile.Checked = False Then
- Line4 = FileLinesToAnalyze(txbZeilennummer4.Text - 1).Split(";"c)(txbSpaltennummer4.Text - 1)
- End If
- 'Line4
- 'Line5
- If cbx5letzteZeile.Checked = True Then
- Line5 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer5.Text - 1)
- ElseIf cbx5letzteZeile.Checked = False Then
- Line5 = FileLinesToAnalyze(txbZeilennummer5.Text - 1).Split(";"c)(txbSpaltennummer5.Text - 1)
- End If
- 'Line5
- 'Line6
- If cbx6letzteZeile.Checked = True Then
- Line6 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer6.Text - 1)
- ElseIf cbx6letzteZeile.Checked = False Then
- Line6 = FileLinesToAnalyze(txbZeilennummer6.Text - 1).Split(";"c)(txbSpaltennummer6.Text - 1)
- End If
- 'Line6
- If cbx7letzteZeile.Checked = True Then
- Line7 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer7.Text - 1)
- ElseIf cbx7letzteZeile.Checked = False Then
- Line7 = FileLinesToAnalyze(txbZeilennummer7.Text - 1).Split(";"c)(txbSpaltennummer7.Text - 1)
- End If
- 'Line7
- 'Line8
- If cbx8letzteZeile.Checked = True Then
- Line8 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer8.Text - 1)
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5}; {txbBennenung6.Text}:; {Line6};{txbBennenung7.Text}:; {Line7};{txbBennenung8.Text}:; {Line8};Dateiname:;{CsvFile}")
- ElseIf cbx8letzteZeile.Checked = False Then
- Line8 = FileLinesToAnalyze(txbZeilennummer8.Text - 1).Split(";"c)(txbSpaltennummer8.Text - 1)
- If ckbLetzteZeile.Checked = True Then
- Dim Lastline = FileLinesToAnalyze.Last '.Split(";"c)()
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5}; {txbBennenung6.Text}:; {Line6};{txbBennenung7.Text}:; {Line7};{txbBennenung8.Text}:; {Line8};{Lastline};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- Else
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5}; {txbBennenung6.Text}:; {Line6};{txbBennenung7.Text}:; {Line7};{txbBennenung8.Text}:; {Line8};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- End If
- End If
- Next
- IO.File.WriteAllLines(PathOfTargetFile, FinalDataList.ToArray)
- Case 9
- For Each CsvFile In New IO.DirectoryInfo(FolderBrows.SelectedPath).GetFiles("*.csv")
- Dim FileLinesToAnalyze = IO.File.ReadAllLines(CsvFile.FullName)
- 'Line1
- If cbx1letzteZeile.Checked = True Then
- Line1 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer1.Text - 1)
- ElseIf cbx1letzteZeile.Checked = False Then
- Line1 = FileLinesToAnalyze(txbZeilennummer1.Text - 1).Split(";"c)(txbSpaltennummer1.Text - 1)
- End If
- 'Line1
- 'Line2
- If cbx2letzteZeile.Checked = True Then
- Line2 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer2.Text - 1)
- 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- ElseIf cbx2letzteZeile.Checked = False Then
- Line2 = FileLinesToAnalyze(txbZeilennummer2.Text - 1).Split(";"c)(txbSpaltennummer2.Text - 1)
- End If
- 'Line2
- 'Line3
- If cbx3letzteZeile.Checked = True Then
- Line3 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer3.Text - 1)
- ElseIf cbx3letzteZeile.Checked = False Then
- Line3 = FileLinesToAnalyze(txbZeilennummer3.Text - 1).Split(";"c)(txbSpaltennummer3.Text - 1)
- End If
- 'Line3
- 'Line4
- If cbx4letzteZeile.Checked = True Then
- Line4 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer4.Text - 1)
- ElseIf cbx4letzteZeile.Checked = False Then
- Line4 = FileLinesToAnalyze(txbZeilennummer4.Text - 1).Split(";"c)(txbSpaltennummer4.Text - 1)
- End If
- 'Line4
- 'Line5
- If cbx5letzteZeile.Checked = True Then
- Line5 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer5.Text - 1)
- ElseIf cbx5letzteZeile.Checked = False Then
- Line5 = FileLinesToAnalyze(txbZeilennummer5.Text - 1).Split(";"c)(txbSpaltennummer5.Text - 1)
- End If
- 'Line5
- 'Line6
- If cbx6letzteZeile.Checked = True Then
- Line6 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer6.Text - 1)
- ElseIf cbx6letzteZeile.Checked = False Then
- Line6 = FileLinesToAnalyze(txbZeilennummer6.Text - 1).Split(";"c)(txbSpaltennummer6.Text - 1)
- End If
- 'Line6
- If cbx7letzteZeile.Checked = True Then
- Line7 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer7.Text - 1)
- ElseIf cbx7letzteZeile.Checked = False Then
- Line7 = FileLinesToAnalyze(txbZeilennummer7.Text - 1).Split(";"c)(txbSpaltennummer7.Text - 1)
- End If
- 'Line7
- 'Line8
- If cbx8letzteZeile.Checked = True Then
- Line8 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer8.Text - 1)
- ElseIf cbx8letzteZeile.Checked = False Then
- Line8 = FileLinesToAnalyze(txbZeilennummer8.Text - 1).Split(";"c)(txbSpaltennummer8.Text - 1)
- End If
- 'Line8
- 'Line9
- If cbx9letzteZeile.Checked = True Then
- Line9 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer9.Text - 1)
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5};{txbBennenung6.Text}:; {Line6};{txbBennenung7.Text}:; {Line7};{txbBennenung8.Text}:; {Line8};{txbBennenung9.Text}:; {Line9};Dateiname:;{CsvFile}")
- ElseIf cbx9letzteZeile.Checked = False Then
- Line9 = FileLinesToAnalyze(txbZeilennummer9.Text - 1).Split(";"c)(txbSpaltennummer9.Text - 1)
- If ckbLetzteZeile.Checked = True Then
- Dim Lastline = FileLinesToAnalyze.Last '.Split(";"c)()
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5}; {txbBennenung6.Text}:; {Line6};{txbBennenung7.Text}:; {Line7};{txbBennenung8.Text}:; {Line8};{txbBennenung9.Text}:; {Line9};{Lastline};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- Else
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5}; {txbBennenung6.Text}:; {Line6};{txbBennenung7.Text}:; {Line7};{txbBennenung8.Text}:; {Line8};{txbBennenung9.Text}:; {Line9};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- End If
- End If
- 'FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5};
- '{txbBennenung6.Text}:; {Line6};{txbBennenung7.Text}:; {Line7};{txbBennenung8.Text}:; {Line8};{txbBennenung9.Text}:; {Line9}; Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- Next
- IO.File.WriteAllLines(PathOfTargetFile, FinalDataList.ToArray)
- Case 10
- For Each CsvFile In New IO.DirectoryInfo(FolderBrows.SelectedPath).GetFiles("*.csv")
- Dim FileLinesToAnalyze = IO.File.ReadAllLines(CsvFile.FullName)
- 'Line1
- If cbx1letzteZeile.Checked = True Then
- Line1 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer1.Text - 1)
- ElseIf cbx1letzteZeile.Checked = False Then
- Line1 = FileLinesToAnalyze(txbZeilennummer1.Text - 1).Split(";"c)(txbSpaltennummer1.Text - 1)
- End If
- 'Line1
- 'Line2
- If cbx2letzteZeile.Checked = True Then
- Line2 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer2.Text - 1)
- 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- ElseIf cbx2letzteZeile.Checked = False Then
- Line2 = FileLinesToAnalyze(txbZeilennummer2.Text - 1).Split(";"c)(txbSpaltennummer2.Text - 1)
- End If
- 'Line2
- 'Line3
- If cbx3letzteZeile.Checked = True Then
- Line3 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer3.Text - 1)
- ElseIf cbx3letzteZeile.Checked = False Then
- Line3 = FileLinesToAnalyze(txbZeilennummer3.Text - 1).Split(";"c)(txbSpaltennummer3.Text - 1)
- End If
- 'Line3
- 'Line4
- If cbx4letzteZeile.Checked = True Then
- Line4 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer4.Text - 1)
- ElseIf cbx4letzteZeile.Checked = False Then
- Line4 = FileLinesToAnalyze(txbZeilennummer4.Text - 1).Split(";"c)(txbSpaltennummer4.Text - 1)
- End If
- 'Line4
- 'Line5
- If cbx5letzteZeile.Checked = True Then
- Line5 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer5.Text - 1)
- ElseIf cbx5letzteZeile.Checked = False Then
- Line5 = FileLinesToAnalyze(txbZeilennummer5.Text - 1).Split(";"c)(txbSpaltennummer5.Text - 1)
- End If
- 'Line5
- 'Line6
- If cbx6letzteZeile.Checked = True Then
- Line6 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer6.Text - 1)
- ElseIf cbx6letzteZeile.Checked = False Then
- Line6 = FileLinesToAnalyze(txbZeilennummer6.Text - 1).Split(";"c)(txbSpaltennummer6.Text - 1)
- End If
- 'Line6
- If cbx7letzteZeile.Checked = True Then
- Line7 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer7.Text - 1)
- ElseIf cbx7letzteZeile.Checked = False Then
- Line7 = FileLinesToAnalyze(txbZeilennummer7.Text - 1).Split(";"c)(txbSpaltennummer7.Text - 1)
- End If
- 'Line7
- 'Line8
- If cbx8letzteZeile.Checked = True Then
- Line8 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer8.Text - 1)
- ElseIf cbx8letzteZeile.Checked = False Then
- Line8 = FileLinesToAnalyze(txbZeilennummer8.Text - 1).Split(";"c)(txbSpaltennummer8.Text - 1)
- End If
- 'Line8
- 'Line9
- If cbx9letzteZeile.Checked = True Then
- Line9 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer9.Text - 1)
- ElseIf cbx9letzteZeile.Checked = False Then
- Line9 = FileLinesToAnalyze(txbZeilennummer9.Text - 1).Split(";"c)(txbSpaltennummer9.Text - 1)
- End If
- 'Line9
- 'Line10
- If cbx10letzteZeile.Checked = True Then
- Line10 = FileLinesToAnalyze.Last.Split(";"c)(txbSpaltennummer10.Text - 1)
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5}; {txbBennenung6.Text}:; {Line6};{txbBennenung7.Text}:; {Line7};{txbBennenung8.Text}:; {Line8};{txbBennenung9.Text}:; {Line9};{txbBennenung10.Text}:; {Line10};Dateiname:;{CsvFile}")
- ElseIf cbx10letzteZeile.Checked = False Then
- Line10 = FileLinesToAnalyze(txbZeilennummer10.Text - 1).Split(";"c)(txbSpaltennummer10.Text - 1)
- If ckbLetzteZeile.Checked = True Then
- Dim Lastline = FileLinesToAnalyze.Last '.Split(";"c)()
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5}; {txbBennenung6.Text}:; {Line6};{txbBennenung7.Text}:; {Line7};{txbBennenung8.Text}:; {Line8};{txbBennenung9.Text}:; {Line9};{txbBennenung10.Text}:; {Line10};{Lastline};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- Else
- FinalDataList.Add($"{txbBennenung1.Text}:; {Line1};{txbBennenung2.Text}:; {Line2};{txbBennenung3.Text}:; {Line3}; {txbBennenung4.Text}:; {Line4};{txbBennenung5.Text}:; {Line5}; {txbBennenung6.Text}:; {Line6};{txbBennenung7.Text}:; {Line7};{txbBennenung8.Text}:; {Line8};{txbBennenung9.Text}:; {Line9};{txbBennenung10.Text}:; {Line10};Dateiname:;{CsvFile}") '{Lastline}; Dateiname:;{CsvFile}") 'Ipn [mA]:; {ElectricCurrentInmA}; Dateiname:;{CsvFile}")
- End If
- End If
- Next
- IO.File.WriteAllLines(PathOfTargetFile, FinalDataList.ToArray)
- Case 11
- For Each CsvFile In New IO.DirectoryInfo(FolderBrows.SelectedPath).GetFiles("*.csv")
- Dim FileLinesToAnalyze = IO.File.ReadAllLines(CsvFile.FullName)
- Dim Lastline = FileLinesToAnalyze.Last '.Split(";"c)()
- FinalDataList.Add($"{Lastline};Dateiname:;{CsvFile}")
- Next
- IO.File.WriteAllLines(PathOfTargetFile, FinalDataList.ToArray)
- End Select
- Catch ex As Exception
- MessageBox.Show(ex.ToString)
- End Try
- End Sub
- End Class
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()