this should help
Code:Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click Dim Dateiname As String = "D:\TestFolder\Users.txt" Using csvParser As New TextFieldParser(Dateiname) With csvParser .SetDelimiters(";") .HasFieldsEnclosedInQuotes = False ' or True 'my File has a Header Dim Header As String = .ReadLine() Dim FieldData() As String Do While Not .EndOfData FieldData = .ReadFields() ' Debug.Print(FieldData(0)) ' 1st Field Debug.Print(FieldData(1)) ' 2nd Field 'Debug.Print(FieldData(2)) ' 3rd Field Loop End With End Using End Sub




Reply With Quote
