'Hauptfunktion #########
 
    Private Function LoadCSV(file As String) As cDataTableCSV
        'CSV Datei laden - ggf. Schlüssel festlegen
        Dim dt As New cDataTableCSV
        dt.TableName = IO.Path.GetFileNameWithoutExtension(file)
        If Not dt.LoadFile(file, System.Text.Encoding.Default) Then Return _
          Nothing
        'dt.PrimaryKey = New DataColumn() {dt.Columns(0)}
        Return dt
    End Function
 
    'CSV-File lesen #########
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
 
        Dim file_open As New OpenFileDialog
        file_open.Filter = "csv-dateien|*.csv"
        file_open.AddExtension = True
 
        If file_open.ShowDialog = DialogResult.OK Then
 
            ds.Tables.Clear()
            ds.Tables.Add(LoadCSV(file_open.FileName))
 
            If Not ds.Tables.Count = 1 Then
                MessageBox.Show("Eine Datei konnte nicht gelesen werden")
                Exit Sub
            End If
 
            'Spalten in Ausgabedatei erstellen
            dtout = New cDataTableCSV
 
            dtout.Columns.Add("Action") : dtout.Columns.Add("Category")
            dtout.Columns.Add("Title") : dtout.Columns.Add("Beschreibung")
            dtout.Columns.Add("Kato")
 
	    '+++++++ Habe ich etwas gekürzt ++++++++++++
 
            'Spalteninhalte einer Zeile als Zeichenfolge kombinieren
            Dim line As New System.Text.StringBuilder
 
           'Zeilen als Zeichenfolge kombinieren
            Dim text As New System.Text.StringBuilder
            dtout.Rows.Add({"*Action", "*Category", "*Title",
                    "*Description", "Kato"})
            Try
                For rowindex As Integer = 1 To ds.Tables(0).Rows.Count - 1
                    'zusätzliche Zeile einfügen
                    Dim row As DataRow = ds.Tables(0).Rows(rowindex)
 
                   'Ausgabedatensatz aufbauen
                    Dim orow As DataRow = dtout.NewRow
 
                    orow("Action") = "Add"
                    orow("Category") = KategoriennummerTextBox.Text
                    orow("Title") = row("SP_0") & " " & row("SP_1") & " " & _
                      ComboBox.Text & " - Art.Nr. " & row("SP_2")
                    orow("Beschreibung") = TextBox5.Text & row("SP_3").ToString _
                    & TextBox6.Text
 
 		    '+++++++ Habe ich etwas gekürzt ++++++++++++