Using oParser As TextFieldParser = New TextFieldParser(oPfad, oEncoding)
                oParser.SetDelimiters(delimiter)                        ' 
                ' delimeter ist das Trennzeichen
                oParser.HasFieldsEnclosedInQuotes = Anführungszeichen   
                oParser.TrimWhiteSpace = True                           
 
                Dim columnHeaders As String() = oParser.ReadFields()

Hänk

(Wer früh aufsteht hat mehr vom Tag)

EALA FREYA FRESENA

        Using objReader As New StreamReader(oPfad, oEncoding, True)   
 
             ' ------- maximal 50 Datensätze genügen 
             ' ---------------------------------------------------
            Dim oZeile As String
            Try
                For a As Integer = 0 To Math.Min(50, Datenmenge)
                    oZeile = objReader.ReadLine()
                    If Not oZeile Is Nothing Then
                        If a = 0 Then
                            If oZeile.Contains("#") Then
                                oZeile = oZeile.Replace("#", ".")
                            End If
                        End If
                        Me.ListBox1.Items.Add(oZeile)
                    End If
                Next
            Catch ex As Exception
 
            End Try
            ' -----------------------------------------------------------------
            ' ------------------------
 
        End Using

Hänk

(Wer früh aufsteht hat mehr vom Tag)