'CSV-File lesen
   ds.Tables.Add(LoadCSV("E:\csv\csv22.csv"))
 
   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("SP_0") : dtout.Columns.Add("SP_1")
   dtout.Columns.Add("SP_2") : dtout.Columns.Add("SP_3")
   dtout.Columns.Add("SP_4")
 
   'Spalteninhalte einer Zeile als Zeichenfolge kombinieren
   Dim line As New System.Text.StringBuilder
   'Zeilen als Zeichenfolge kombinieren
   Dim text As New System.Text.StringBuilder
 
   Try
      'Schleife über Tabellen-Zeilen 
      For Each row As DataRow In ds.Tables(0).Rows
 
          'Ausgabedatensatz aufbauen
          Dim orow As DataRow = dtout.NewRow
          orow("SP_0") = "End"
          orow("SP_1") = "test"
          orow("SP_2") = "NotAvailable"
          orow("SP_3") = row("SP_4")
          orow("SP_4") = row("SP_5")
 
          dtout.Rows.Add(orow)
 
          'Ausgabe-Datensatz als Text aufbereiten
          line.Clear()
          For i As Integer = 0 To orow.ItemArray.Length - 1
              line.Append(orow(i).ToString & ";")
          Next i
 
          text.AppendLine(line.ToString)
 
      Next row
  Catch ex As Exception
      MessageBox.Show("Abbruch - Fehler: " & ex.Message)
      Exit Sub
  End Try
 
  'Ausgabe als Text anzeigen
  textbox1.Text = text.ToString
 
  'Zeilen als csv-Datei ausgeben
  If Not dtout.SaveFile("....\csv_out.csv", ";"c) Then
     MessageBox.Show("Fehler beim Schreiben der Datei")
  Else
     MessageBox.Show _
     (dtout.Rows.Count.ToString & " Zeilen sind geschrieben worden")
  End If