Imports System
Imports System.IO
 
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'TODO: Diese Codezeile lädt Daten in die Tabelle "DataSet1.allott". Sie 
        ' können sie bei Bedarf verschieben oder entfernen.
        Me.AllottTableAdapter.Fill(Me.DataSet1.allott)
        Me.FillBy1ToolStripButton.PerformClick()
    End Sub
 
    Private Sub FillByToolStrip_ItemClicked(ByVal sender As System.Object, _
      ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs)
 
    End Sub
 
    'Private Sub FillByToolStripButton_Click(ByVal sender As System.Object, 
    ' ByVal e As System.EventArgs)
    '   Try
    '      Me.AllottTableAdapter.FillBy.DataSet1.allott()
    ' Catch ex As System.Exception
    '    System.Windows.Forms.MessageBox.Show(ex.Message)
    'End Try
 
    ' End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim Filename As String = "c:\Test\test.txt"
        Dim Separator As Char = ","c
        DataGridView1_Export2File(DataGridView1, Filename, Separator)
    End Sub
 
    ''' <summary>
    ''' Inhalt eines Datagridview ausgeben in eine Textdatei
    ''' </summary>
    ''' <param name="DataGridView1">das Datagridview</param>
    ''' <param name="FileName">Ausgabedatei</param>
    ''' <param name="Separator">Feldtrenner, z.Bsp Tab oder Komma</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function DataGridView1_Export2File(ByVal DataGridView1 As _
      DataGridView, ByVal FileName As String, ByVal Separator As Char) As _
      Boolean
 
        Try
            IO.File.Delete(FileName)
            Using SW As New IO.StreamWriter(FileName, False)
                'Header schreiben
                Using SW1 As New IO.StringWriter
                    Dim s As String = Nothing
                    For i As Integer = 0 To DataGridView1.Columns.Count - 1
                        SW1.Write(DataGridView1.Columns(i).HeaderText & _
                          Separator)
                    Next
                    s = SW1.ToString
                    'Header ohne letzten Separator
                    SW.WriteLine(s.Substring(0, s.Length - 1))
                End Using
 
                'Zeilenweise schreiben
                For i As Integer = 0 To DataGridView1.Rows.Count - 1
                    'New Row für Dateneingabe wird nicht geschrieben
                    If Not DataGridView1.Rows(i).IsNewRow Then
                        Using SW2 As New IO.StringWriter
                            Dim s As String = Nothing
                            For j As Integer = 0 To DataGridView1.Columns.Count _
                              - 1
                                SW2.Write(DataGridView1.Rows(i).Cells( _
                                j).Value.ToString & Separator)
                            Next
                            s = SW2.ToString
                            'Zeile ausgeben
                            SW.WriteLine(s.Substring(0, s.Length - 1))
                        End Using
                    End If
                Next
            End Using
            Return True
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
            Return False
        End Try
    End Function