Solved

I/O Reading data by chunks

Posted on 2007-11-28
6
155 Views
Last Modified: 2013-11-26
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.
0
Comment
Question by:GLlano
6 Comments
 
LVL 6

Accepted Solution

by:
-DJL- earned 250 total points
ID: 20370378
0
 
LVL 55

Assisted Solution

by:Jaime Olivares
Jaime Olivares earned 250 total points
ID: 20370405
Having a StreamReader sr:

String str as String
Dim buffer(139) as Char

sr.Read(c, 0, c.Length)
str = new String(buffer)
0
 
LVL 3

Expert Comment

by:wizrr
ID: 20370446
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
 
LVL 16

Expert Comment

by:gnoon
ID: 20370522
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
 
LVL 1

Expert Comment

by:Computer101
ID: 20615326
Forced accept.

Computer101
EE Admin
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Creating an analog clock UserControl seems fairly straight forward.  It is, after all, essentially just a circle with several lines in it!  Two common approaches for rendering an analog clock typically involve either manually calculating points with…
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…
Exchange organizations may use the Journaling Agent of the Transport Service to archive messages going through Exchange. However, if the Transport Service is integrated with some email content management application (such as an antispam), the admini…

733 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question