![\"Entwurf](\"..\/fileadmin\/_temp_\/2021_03\/pic_270_001.png\")
<\/p>\nIm Artikel “CSV-Datei in Klassen importieren” haben wir bereits gezeigt, wie Sie die Daten aus CSV-Dateien in .NET-Anwendungen importieren und diese auf die enthaltenen Klassen aufteilen können. Dazu haben wir das NuGet-Paket CsvHelper verwendet. Im vorliegenden Artikel schauen wir uns den umgekehrten Weg an: Wie können wir die Daten aus den Objekten eines Entity Data Models in eine CSV-Datei exportieren Dazu setzen wir direkt an der Beispieldatenbank für den oben genannten Artikel an und speichern die darauf importierten Daten direkt wieder in eine neue CSV-Datei.<\/b><\/p>\nCsvHelper hinzufügen<\/h2>\n
Das erwähnte NuGet-Paket CsvHelper <\/b>fügen wir über den Nuget-Paket-Manager hinzu, den Sie über den Menüeintrag Projekt|NuGet-Pakete verwalten… <\/b>öffnen. Hier wechseln Sie zum Bereich Durchsuchen <\/b>und geben csvhelper <\/b>in das Suchfeld ein. Es erscheint der Eintrag CsvHelper<\/b>, den wir auswählen und mit einem Klick auf die Schaltfläche Installieren <\/b>zum Projekt hinzufügen.<\/p>\nBeispielanwendung<\/h2>\n
Die Benutzeroberfläche der Beispielanwendung bauen wir auf dem Beispiel aus dem oben genannten Artikel auf. Dort finden wir bereits Steuerelemente, mit denen Sie eine CSV-Datei zum Importieren ihrer Inhalte auswählen können. Die Inhalte werden dann in einem DataGrid<\/b>-Steuerelement angezeigt. Hier fügen wir einen weiteren Bereich an, der die Auswahl eines Dateinamens zum Speichern der Inhalte des DataGrid<\/b>-Elements in einer weiteren CSV-Datei erlaubt. Dieses sieht wie in Bild 1 aus.<\/p>\n
<\/p>\n
Bild 1: Entwurf des Hauptfensters der Anwendung<\/span><\/b><\/p>\n Hier ist der XAML-Code der hier enthaltenen Steuerelemente. Wir verwenden das DataGrid dgrKunden<\/b>, um die zu exportierenden Daten zu ermitteln. Das TextBox<\/b>-Steuerelement txtExportfile <\/b>nimmt den Pfad der zu erstellenden Datei auf.<\/p>\n Diesen ermittelt der Benutzer durch einen Klick auf die Schaltfläche btnChooseSaveFile<\/b>. Und der eigentliche Export (die erste Version, es folgen weitere), erfolgt über die Schaltfläche btnExport11<\/b>:<\/p>\n Die Schaltfläche btnChooseSaveFile <\/b>löst die folgende Methode aus. Diese erfordert das Vorhanden des folgenden Namespaces:<\/p>\n Die Methode ermittelt das Startverzeichnis, das gleich beim Öffnen des Dialogs angezeigt werden soll, aus dem Verzeichnis aus dem Textfeld txtImportfile<\/b>. Ist dieses leer oder enthält es keine vorhandene Datei, wird stattdessen das Verzeichnis der .exe<\/b>-Datei dieser Anwendung genutzt.<\/p>\n Danach stellt die Methode die Dateiendung auf .csv <\/b>ein und öffnet den Speichern unter<\/b>-Dialog. Enthält dieser beim Schließen eine Zieldatei, wird diese samt Pfad in das Textfeld txtExportFile <\/b>geschrieben:<\/p>\n Wir gehen an dieser Stelle davon aus, dass das DataGrid<\/b>-Steuerelement wie in Bild 2 einige Datensätze enthält. In der durch die Schaltfläche btnExport11 <\/b>aufgerufenen Methode überprüfen wir diese Voraussetzung. Falls Datensätze enthalten sind, liest sie diese in die List(Of Kunde)<\/b>-Variable objKunden <\/b>ein. Dann erstellt die Prozedur ein neues Objekt des Typs StreamWriter <\/b>und übergibt den Namen der zu erzeugenden Datei als Parameter des Konstruktors.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span> ...\r\n <Label Grid.Row=\"1\">Eingelesene Einträge:<\/Label>\r\n <DataGrid x:Name=\"dgrKunden\" Grid.Row=\"2\"><\/DataGrid>\r\n <GroupBox Header=\"Beispiele Artikel ''EDM-Daten in CSV exportieren''\" FontWeight=\"Bold\" Grid.Row=\"3\">\r\n <ContentControl FontWeight=\"Normal\" HorizontalAlignment=\"Stretch\">\r\n <StackPanel Orientation=\"Vertical\" HorizontalAlignment=\"Stretch\">\r\n <Grid>\r\n <Grid.ColumnDefinitions>\r\n <ColumnDefinition Width=\"Auto\"><\/ColumnDefinition>\r\n <ColumnDefinition Width=\"*\"><\/ColumnDefinition>\r\n <ColumnDefinition Width=\"Auto\"><\/ColumnDefinition>\r\n <\/Grid.ColumnDefinitions>\r\n <Label Grid.Column=\"0\">Datei:<\/Label>\r\n <TextBox x:Name=\"txtExportfile\" Grid.Column=\"1\"><\/TextBox>\r\n <Button x:Name=\"btnChooseSaveFile\" Grid.Column=\"2\" Click=\"btnChooseSaveFile_Click\" HorizontalAlignment=\"Right\">Datei auswählen<\/Button>\r\n <\/Grid>\r\n <StackPanel Orientation=\"Horizontal\">\r\n <Button x:Name=\"btnExport11\" Click=\"btnExport11_Click\">1:1 exportieren<\/Button>\r\n <\/StackPanel>\r\n <\/StackPanel>\r\n <\/ContentControl>\r\n <\/GroupBox>\r\n<\/Grid><\/pre>\n
Datei zum Speichern festlegen<\/h2>\n
Imports Microsoft.Win32<\/pre>\n
Private Sub <\/span>btnChooseSaveFile_Click(sender As Object<\/span>, e As <\/span>RoutedEventArgs)\r\n Dim <\/span>objSaveFileDialog As <\/span>New<\/span> SaveFileDialog\r\n If <\/span>File.Exists(txtImportfile.Text) Then<\/span>\r\n objSaveFileDialog.InitialDirectory = Path.GetDirectoryName(txtImportfile.Text)\r\n Else<\/span>\r\n objSaveFileDialog.InitialDirectory = AppDomain.CurrentDomain.BaseDirectory\r\n End If<\/span>\r\n objSaveFileDialog.DefaultExt = \".csv\"\r\n If <\/span>(objSaveFileDialog.ShowDialog = True<\/span>) Then<\/span>\r\n txtExportfile.Text = objSaveFileDialog.FileName\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nEinfacher Export in eine CSV-Datei<\/h2>\n
![\"Zu](\"..\/fileadmin\/_temp_\/2021_03\/pic_270_002.png\")
<\/p>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t