?
Solved

VB.NET - Process a block of text line-by-line

Posted on 2015-02-11
1
Medium Priority
?
279 Views
Last Modified: 2015-02-11
I have blocks of text that I need to process line-by-line. I'm accustomed to using the FileStream and ReadLine methods, but those work on files read from disc, it seems, and I can't translate that over to my need.

The textblocks look something like this, although they are much, much larger in the real world:
//STX12//830CATMF                                           SC
13MF CRTT Dir Global
14Z Z
15+00000000002C150306
15+00000000001D150317
15+00000000001D150416
//STX12//830MORTON      20150210064507 0411                            CAR
14Y Z
15+00000000028C150715
//STX12//830MORTON      20150210064506 0411                            CAR
01050411                          SH150401151202150209HESO51218
14Y Z
15+00000000040C150401
15+00000000040C150422
15+00000000040C150722

Open in new window

I'm breaking them on the lines beginning with "//STX12//", and I need to read each of those sub-blocks line-by-line. I see where .NET Framework 4.5 has the Text.ReadLines method, but I cannot require my client to upgrade to that framework.

What's the most efficient way to read a block of text line by line? Can I somehow "insert" that block of text into a FileStream object, and then use the methods there?
0
Comment
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
1 Comment
 
LVL 85

Accepted Solution

by:
Scott McDaniel (Microsoft Access MVP - EE MVE ) earned 0 total points
ID: 40602974
I found a way to do this using the StringBuilder class:
'/ Read the file from disc
Dim fil As New StreamReader(FileIn)
Dim file As String = fil.ReadToEnd
'/ Break it into chunks
Dim files() As String = Strings.Split(file, "//STX12//")
  '/ loop through the "chunks"
  For i As Integer = 0 To files.GetUpperBound(0)
	'/ get the first "chunk" into a string variable
    Dim edifile As String = files(i)
    If edifile.Length > 0 Then
		'/ use StringReader to get the "chunk" into the object
        Dim block As New StringReader(edifile)
		'/ use methods of the StringReader object to move through the lines
        Do Until block.Peek = -1
            Dim s As String = block.ReadLine
			< do stuff with line here>
		Loop
	End If
Next i

Open in new window

0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

In this post we will learn how to connect and configure Android Device (Smartphone etc.) with Android Studio. After that we will run a simple Hello World Program.
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Six Sigma Control Plans
Progress

764 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