Datagridview in CSV-Datei schreiben

toeller · 21. Februar 2013, 17:17

Hallo Zusammen,

ich schreibe mit folgendem Code den Inhalt eines Datagridviews in eine CSV-Datei.

VB.NET-Quellcode

Private Sub CSVDatei()
Dim StrExport As String = ""
For Each C As DataGridViewColumn In BaustellenpreisdateiDataGridView.Columns
StrExport &= """" & C.HeaderText & """;"
Next
StrExport = StrExport.Substring(0, StrExport.Length - 1)
StrExport &= Environment.NewLine
For Each R As DataGridViewRow In BaustellenpreisdateiDataGridView.Rows
For Each C As DataGridViewCell In R.Cells
If Not C.Value Is Nothing Then
StrExport &= """" & C.Value.ToString & """;"
Else
StrExport &= """" & "" & """;"
End If
Next
StrExport = StrExport.Substring(0, StrExport.Length - 1)
StrExport &= Environment.NewLine
Next
Dim tw As IO.TextWriter = New IO.StreamWriter("C:\Test\Test1.CSV")
tw.Write(StrExport)
tw.Close()
Process.Start("C:\Test\Test1.csv")
End Sub

Dieser Code funktioniert soweit ganz gut, nur dass die Umlaute "Ü", "Ä" usw. im Excel nicht richtig dargestellt werden. Hat jemand eine Idee, wie ich meinen Code abändern muss, damit die Umlaute im Excel richtig dargestellt werden?

singu · 21. Februar 2013, 17:34

Versuch mal Encoding auf UTF8 zu stellen, das stellst du beim StreamWriter ein.

RodFromGermany · 21. Februar 2013, 18:10

Wenn Du die Prozedur verallgemeinern willst, gib ihr die Instanz des DataDridViews und den Filenamen als Parameter mit. :thumbsup:

ErfinderDesRades · 21. Februar 2013, 18:34

singu schrieb:

Versuch mal Encoding auf UTF8 zu stellen, das stellst du beim StreamWriter ein.

StreamWriter steht standardmäßig auf utf-8, und es ist ein Trauerspiel, dass Excel das nicht mitbekommt.
probier also mal System.TExt.Encoding.Default.

toeller · 21. Februar 2013, 20:38

Da ich ja leider immer noch Anfänger bin, verstehe ich nicht ganz wie ich das mit "System.TExt.Encoding.Default" anstellen soll.

Ich habe meinen obigen Code um "System.TExt.Encoding.Default" erweitert, jedoch erhalte ich dann folgenden Fehler:

Fehler 1 Eigenschaftenzugriff muss der Eigenschaft zugewiesen werden oder deren Wert verwenden.

Irgendetwas mache ich da falsch oder habe was falsch verstanden.

ErfinderDesRades · 21. Februar 2013, 20:51

VB.NET-Quellcode

... =New IO.StreamWriter("C:\Test\Test1.CSV",System.TExt.Encoding.Default)

guck dir StreamWriter im ObjectBrowser an

toeller · 21. Februar 2013, 20:53

So hatte ich es schon zufälligerweise schon versucht gehabt, jedoch bekomme ich da immer folgenden Fehler:

Fehler 1 Fehler bei der Überladungsauflösung, da keine zugreifbare "New" mit diesen Argumenten aufgerufen werden kann:
"Public Sub New(path As String, append As Boolean)": Der Wert vom Typ "System.Text.Encoding" kann nicht in "Boolean" konvertiert werden.
"Public Sub New(stream As System.IO.Stream, encoding As System.Text.Encoding)": Der Wert vom Typ "String" kann nicht in "System.IO.Stream" konvertiert werden. C:\Users\toeller\Documents\Visual Studio 2010\Projects\Faktura\Faktura\FormBst-Preisdatei.vb 31 35 Faktura

Mein Code sieht jetzt wie folgt aus:

VB.NET-Quellcode

Private Sub CSVDatei()
Dim StrExport As String = ""For Each C As DataGridViewColumn In BaustellenpreisdateiDataGridView.Columns
StrExport &= """" & C.HeaderText & """;"
Next
StrExport = StrExport.Substring(0, StrExport.Length - 1)StrExport &= Environment.NewLine
For Each R As DataGridViewRow In BaustellenpreisdateiDataGridView.RowsFor Each C As DataGridViewCell In R.Cells
If Not C.Value Is Nothing Then
StrExport &= """" & C.Value.ToString & """;"
Else
StrExport &= """" & "" & """;"
End If
Next
StrExport = StrExport.Substring(0, StrExport.Length - 1)StrExport &= Environment.NewLine
Next
'System.Text.Encoding.Default
'Dim tw As IO.TextWriter = New IO.StreamWriter("C:\Test\Test1.CSV")Dim tw As IO.TextWriter = New IO.StreamWriter("C:\Test\Test1.CSV", System.Text.Encoding.Default)
tw.Write(StrExport)
tw.Close()Process.Start("C:\Test\Test1.csv")
End Sub

ErfinderDesRades · 21. Februar 2013, 20:56

ja, habich klein Fehler gemacht.
Aber du weißt doch jetzt, wo du selbst nachgugge kannst: nämlich im ObjectBrowser

Übrigens: Bitte VB-Tag benutzen - aber richtig

toeller · 21. Februar 2013, 21:01

Ich hätte mir soeben das Video angeschaut, jedoch funktioniert es irgendwie nicht. Ich sehe zwar den roten Fortschrittsbalken, jedoch bleibt das Video nur weiß.

ErfinderDesRades · 21. Februar 2013, 21:07

und sonst funzt utube bei dir?

also man kann auch die video-url auskopieren:
youtube.com/watch?feature=player_embedded&v=wlgvbGZxAbY

toeller · 21. Februar 2013, 21:17

Mit diesem Link kann ich mir das Video anschauen. Hab das Video mal kurz überflogen. Das habe ich schon gesehen, dass muss ich mir jetzt mehrmals anschauen damit ich das verstehe.

toeller · 21. Februar 2013, 21:52

Ich glaub ich zu blöde dazu. Ich bringe es einfach nicht hin, zum verzweifeln. Das Programmieren zu lernen ist deutlich schwieriger als wie ich gedacht habe.

ErfinderDesRades · 21. Februar 2013, 21:58

aber die StreamWriter-Klasse hast du doch im ObjectBrowser gefunden, oder?
kannst du Screenshot davon machen?

toeller · 21. Februar 2013, 22:08

Ja, die habe ich gefunden. Siehe beiliegende Word-Datei. Dort habe ich meinen Screenshot eingefügt, weil direkt hier habe ich Ihn nicht reinkopieren können.

ErfinderDesRades · 21. Februar 2013, 22:15

Anleitung (Bild-)DateiAnhänge

toeller · 21. Februar 2013, 22:24

Besser so?

ErfinderDesRades · 21. Februar 2013, 22:26

ja, und da guck die 3. Sub New an - was verlangt die für Parameter, und was ist deren Bedeutung?

toeller · 21. Februar 2013, 22:32

Juhu, ich habs geschafft, vielen dank. Was so eine "false" alles ausmachen kann.

Hier meine komplette Sub, falls Sie noch wer gebrauchen kann:

VB.NET-Quellcode

Private Sub CSVDatei()
Dim StrExport As String = ""
For Each C As DataGridViewColumn In BaustellenpreisdateiDataGridView.Columns
StrExport &= """" & C.HeaderText & """;"
Next
StrExport = StrExport.Substring(0, StrExport.Length - 1)
StrExport &= Environment.NewLine
For Each R As DataGridViewRow In BaustellenpreisdateiDataGridView.Rows
For Each C As DataGridViewCell In R.Cells
If Not C.Value Is Nothing Then
StrExport &= """" & C.Value.ToString & """;"
Else
StrExport &= """" & "" & """;"
End If
Next
StrExport = StrExport.Substring(0, StrExport.Length - 1)
StrExport &= Environment.NewLine
Next
Dim tw As System.IO.TextWriter = New System.IO.StreamWriter("C:\Test\Test1.csv", False, System.Text.Encoding.Default)
tw.Write(StrExport)
tw.Close()
Process.Start("C:\Test\Test1.csv")
End Sub

HaRoWagner · 22. Februar 2013, 18:16

Hallo,

ab und an kam es vor, dass statt lesbarer Zeichen nur "Hieroglyphen" in den erzeugten Textdateien im Notepad zu sehen war. Das lies sich zwar mit einem richtigen Editor dennoch encoden, war aber suboptimal.
Seit dem verwende ich

VB.NET-Quellcode

System.Text.Encoding.GetEncoding("Windows-1252")

anstatt

VB.NET-Quellcode

System.Text.Encoding.Default

Seit dem ist Ruhe mit reinen Texten und auch mit den CSV-Files.

Datagridview in CSV-Datei schreiben

Datagridview in CSV-Datei schreiben

VB.NET-Quellcode

singu schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Benutzer online 1

Ähnliche Themen

4 Benutzer haben hier geschrieben