I/O Reading data by chunks

I'm using VS 2005, .net 2.0, and coding in VB.net.
I want to read in a text file that is 26MB in size.  Each record lengh is139 characters long.  Does someone know of a method to loop thru my file reading 139 characters at a time until I get to the end
of the file?

I explored using the StreamReader method but I'm getting the first 10K characters when I use
the ReadLine method.

Please let me know if you need additional information.

Thanks in advance.
GLlanoAsked:
Who is Participating?
 
Jaime OlivaresConnect With a Mentor Software ArchitectCommented:
Having a StreamReader sr:

String str as String
Dim buffer(139) as Char

sr.Read(c, 0, c.Length)
str = new String(buffer)
0
 
wizrrCommented:
You need to read strings? Not binary data? If so you must know how file is encoded and use StreamReader to decode it. After that use Read instead of ReadLine.
Using sr As StreamReader = New StreamReader("TestFile.txt", Encoding.UTF8)
                Dim line As String
                ' Read and display the lines from the file until the end 
                ' of the file is reached.
                Dim buffer As Char[139];
                Dim str As StringBuilder
                Dim read As Int
                Do
                    
                    read = sr.Read(buffer, 0, 139);
                    str.Append(buffer)
                    Console.WriteLine(buffer)
                Loop Until Not read = 0
                sr.Close()
            End Using

Open in new window

0
 
gnoonCommented:
Simply use TextFieldParser class of .NET 2.0.
See example here http://msdn2.microsoft.com/en-us/library/zezabash(VS.80).aspx
Here is code snippet & modified
Using Reader As New _
Microsoft.VisualBasic.FileIO.TextFieldParser("C:\TestFolder\test.log")
   Reader.TextFieldType = _
   Microsoft.VisualBasic.FileIO.FieldType.FixedWidth
   Reader.SetFieldWidths(139)
   Dim currentRow As String()
   While Not Reader.EndOfData
      Try
         currentRow = Reader.ReadFields()
         Dim currentField As String = currentRow(0)
         Console.WriteLine(currentField)
      Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
         MsgBox("Line " & ex.Message & _
         "is not valid and will be skipped.")
      End Try
   End While
End Using

Open in new window

0
 
Computer101Commented:
Forced accept.

Computer101
EE Admin
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.