LocationTextFieldParser.LineNumber SyntaxDim fileParser As FileIO.TextFieldParser ' ...later... Dim result As Long = fileParser.LineNumber DescriptionThe LineNumber property returns the 1-based current line number (the line about to be read) within the file being parsed by a TextFieldParser object. If the end of the file has been reached, this property returns -1. Usage at a Glance
ExampleThe following example looks for "EOF" as an end-of-file marker. Dim fileParser As FileIO.TextFieldParser Dim oneLine( ) As String Dim lastLine As Long Dim markerFound As Boolean = False fileParser = New FileIO.TextFieldParser(dataFile) fileParser.SetDelimiters(",") Do While (fileParser.LineNumber <> -1) lastLine = fileParser.LineNumber oneLine = fileParser.ReadFields( ) If (UCase(oneLine(0)) = "EOF") Then MsgBox("Found EOF marker at line " & lastLine) markerFound = True Exit Do End If Loop fileParser.Close( ) If (markerFound = False) Then MsgBox("EOF marker not found.") Related Framework Entries
See AlsoEndOfData Property, ErrorLineNumber Property, PeekChars Method, ReadFields Method, ReadLine Method, ReadToEnd Method, TextFieldParser Object |