Rows eines DataGridView in ein String-Array konvertieren

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

    '''''' <summary>
    '''''' Konvertiert die Rows eines DGV in ein String-Array mit optionalem Delimiter
    '''''' </summary>
    '''''' <param name="rows">Die RowCollection, welche konvertiert werden soll</param>
    '''''' <param name="delimiter">Das Feldtrennzeichen zum Trennen der einzelnen Cells</param>
    '''''' <returns></returns>
    '''''' <remarks></remarks>
    Private Function RowsToStrings(ByVal rows As DataGridViewRowCollection, Optional ByVal delimiter As String = "") As String()
        Dim lst As New List(Of String)
        For Each r As DataGridViewRow In rows
            If Not r.IsNewRow Then
                ''String zusammen setzten
                Dim s As String = String.Empty
                For Each c As DataGridViewCell In r.Cells
                    s &= c.Value.ToString & delimiter
                Next
                ''den letzten delimiter entfernen
                s = s.Remove(s.Length - delimiter.Length, delimiter.Length)
                lst.Add(s)
            End If
        Next
        Return lst.ToArray
    End Function