Dim myTextReader As TextReader
Try
' big.csv (266 MB ~ 790.000 lines)
myTextReader.Initialize(File.OpenInput("D:\data\", "big.csv") )
Dim LineCounter As Int = 0
Dim line As String = myTextReader.ReadLine
Do While line <> Null
LineCounter = LineCounter + 1
line = myTextReader.ReadLine
If LineCounter Mod 10000 = 0 Then
Log("Line: " & NumberFormat(LineCounter, 0, 0))
End If
Loop
myTextReader.Close
Catch
Log("Error --> " & LastException.Message)
If myTextReader.IsInitialized Then
myTextReader.Close
End If
End Try