Public Function lvw_ReadData(ByVal lvw As ListView, _
                                 ByVal DataFile As String, _
                                 Optional ByVal lineseparator As String = _
                                 vbNewLine, _
                                 Optional ByVal fieldseparator As String = _
                                 vbTab, _
                                 Optional ByVal CreateColumns As Integer = -1, _
                                 Optional ByVal AppendData As Boolean = False, _
                                 Optional ByRef LinesRead As Integer = -1) As _
                                 Boolean
 
        Dim bResult As Boolean = False
 
        Try
            ' Existiert die Datei?
            If IO.File.Exists(DataFile) Then
                ' Datei vollständige einlesen und in einzelne Zeilen aufsplitten
                Dim sLines() As String = IO.File.ReadAllText( _
                DataFile, System.Text.Encoding.Default).Split({lineseparator}, _
                        StringSplitOptions.RemoveEmptyEntries)
 
                ' Anzahl ListView-Spalten
                Dim lvwCols As Integer = lvw.Columns.Count
 
                ' ggf. Anzahl Spalten sicher stellen
                If CreateColumns > 0 And lvwCols < CreateColumns Then
                    While lvwCols < CreateColumns
                        lvw.Columns.Add("SP_" & CStr(lvwCols + 1))
                        lvwCols = lvw.Columns.Count
                    End While
                End If
 
                lvw.BeginUpdate()
 
                ' ggf. Zeilen im ListView löschen
                If Not AppendData Then lvw.Items.Clear()
 
                LinesRead = 0 'Zähler für gelesene Zeilen init.
 
                ' Jetzt die Datenzeilen in das ListView übertragen
                For i As Integer = 0 To sLines.Length - 1
                    Dim sData() As String = sLines(i).Split({fieldseparator}, _
                                            StringSplitOptions.RemoveEmptyEntri_
                                            es)
 
                    'Zeile im Listview anhängen / Hauptspalte füllen
                    Dim lvi As ListViewItem = lvw.Items.Add(sData(0))
 
                    'Ermittlung der Anzahl auszugebender Spalten / Subitems
                    Dim cols As Integer = Math.Min(lvwCols, sData.Length)
 
                    'Subitems eintragen 
                    For u As Integer = 1 To cols - 1
                        lvi.SubItems.Add(sData(u))
                    Next u
 
                    LinesRead += 1
                Next i
 
                lvw.EndUpdate()
                bResult = True
            End If
        Catch
        End Try
 
        Return (bResult)
    End Function