TextFieldParser wrapped for most general use cases.

FileParser.vb

Imports Microsoft.VisualBasic.FileIO

Public Class FileParser

        Public Shared Sub ParseDelimitedFile(ByVal sourceFileName As String, ByVal dataReadAction As Action(Of String(), Long), Optional ByVal delimiter As String = ",")
            Dim csvReader As TextFieldParser = New TextFieldParser(sourceFileName)
            csvReader.SetDelimiters(delimiter)
            csvReader.HasFieldsEnclosedInQuotes = True
            csvReader.TrimWhiteSpace = True
            ParseFile(csvReader, dataReadAction)
        End Sub

        Public Shared Sub ParseDelimitedFile(ByVal sourceReader As StringReader, ByVal dataReadAction As Action(Of String(), Long), Optional ByVal delimiter As String = ",")
            Dim csvReader As TextFieldParser = New TextFieldParser(sourceReader)
            csvReader.SetDelimiters(delimiter)
            csvReader.HasFieldsEnclosedInQuotes = True
            csvReader.TrimWhiteSpace = True
            ParseFile(csvReader, dataReadAction)
        End Sub

	
	Public Shared Sub ParseFixedWidth(ByVal sourceFileName As String, ByVal dataReadAction As Action(Of String(), Long), fieldWidths() As Integer, Optional ByVal trimWhiteSpace As Boolean = True)
        Dim fwReader As TextFieldParser = New TextFieldParser(sourceFileName)
		fwReader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.FixedWidth
		fwReader.FieldWidths = fieldWidths
		fwReader.TrimWhiteSpace = trimWhiteSpace
        ParseFile(fwReader, dataReadAction)
    End Sub
	
	
	Public Shared Sub ParseFixedWidth(ByVal sourceReader As StringReader, ByVal dataReadAction As Action(Of String(), Long), fieldWidths() As Integer, Optional ByVal trimWhiteSpace As Boolean = True)
		Dim fwReader As TextFieldParser = New TextFieldParser(sourceReader)
		fwReader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.FixedWidth
		fwReader.FieldWidths = fieldWidths
		fwReader.TrimWhiteSpace = trimWhiteSpace
        ParseFile(fwReader, dataReadAction)
    End Sub
	

    Public Shared Sub ParseFile(ByVal txtFldParser As TextFieldParser, ByVal dataReadAction As Action(Of String(), Long))
        Using parser As TextFieldParser = txtFldParser
	Dim lineCount As Integer = 1
            While Not parser.EndOfData
                Dim data() As String = parser.ReadFields
		dataReadAction(data, lineCount)
		lineCount = LineCount + 1;
            End While
        End Using
    End Sub

End Class