Splitting a master report file into individual reports

Greetings experts,

I am looking for an efficient way to input a master file and parse the contents into individual reports based on dynamic headings.  A master file could include anywhere from 1 to 20 individual reports, and in any combination.  Each line of text within the master file is prefixed with an identifier code, '0' representing report titles, and '1' representing report detail.

The master report is layed out as such:
0Report 1
1Report 1 detail line
1Report 1 detail line
1Report 1 detail line
0Report 2
1Report 2 detail line
1Report 2 detail line
0Report 3
1Report 3 detail line
..ect


I would like to write a parse function that transforms the 1 master file into individual files.  The report titles are dynamic to the master file.  Below is some sample psuedocode outlining my desired approach:

Private Sub SplitReport(byVal reportname as String)

   dim srInput as new StreamReader(reportname)
   dim chrPrefix as Char = ""
   dim strReportLine as String = ""
   dim strReportName as String = ""
   dim tempRead as string = ""

do
    tempInput = srInput.ReadLine
    chrPrefix = tempInput.substring(0,1)       ' first character
    strReportLine = tempInput.substring(1)   ' rest of line

    switch (chrPrefix)
         case "0"
                 ' create new StreamWriter object here using Report
                 strReportName = strReportLine.substring(0,8) & ".txt" ' first 8 characters is report name
                 dim swOutputFile as New StreamWriter("C:\temp\" strReportName)
                 swOutputFile.writeLine(strReportLine)
         Case "1"
                 swOutputFile.writeLine(strReportLine)

    End Select
loop until srInput.EndOfStream

srInput.Close

End Sub


My problem is that 1) I dont know how to close the file at the end of Report1 and the beginning of Report2, and 2) I get errors with variable scope since I defined the StreamWriter within a case.  Any suggestions would be very helpful at this point.

Thank you for your advice and suggestions.
LVL 2
gwosgoodIT MgrAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

AndyAinscowFreelance programmer / ConsultantCommented:
1)  To close a streamwriter object you can use the member function Close
2)  Scope errors - declare the StreamWriter object outside of your loop.

pseudo code

StreamWriter sw = null
StreamReader sr = open your file for reading here
string sLine

start loop
read a line from sr into sLine

  case statement  --  check first char
     1 then close the currently open sw (IF IT IS NOT NULL)
        open the sw with the required name, write line to it

      2  Write line to sw
  end case
end loop
close sw (possibly should check it is non null - empty input file)
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
mlmccCommented:
I think the case above should be for
    0 - close current output file and create new one
    1 - write line to report file

mlmcc
0
AndyAinscowFreelance programmer / ConsultantCommented:
ooops - well spotted.  :-)
0
Cloud Class® Course: Amazon Web Services - Basic

Are you thinking about creating an Amazon Web Services account for your business? Not sure where to start? In this course you’ll get an overview of the history of AWS and take a tour of their user interface.

gwosgoodIT MgrAuthor Commented:
what is the proper syntax for testing if sw is null?

here is my code snipet so far:

  Dim inputRTF As New StreamReader(strFilename)
  Dim sw As StreamWriter
  Dim fileNameOutput As String = "C:\temp\"
  Dim chrPrefix As Char = ""
  Dim strReportLine As String = ""
  Dim inputText As String = ""

        Do
            inputText = inputRTF.ReadLine
            chrPrefix = inputText.Substring(0, 1)
            strReportLine = inputText.Substring(1)

            Select Case (chrPrefix)
                Case "0"
                    fileNameOutput = fileNameOutput & inputText.Substring(1, 8) & ".TXT"
                    If sw.Null = False Then sw.Close()
                    sw = New StreamWriter(fileNameOutput)
                    sw.WriteLine(strReportLine)
                Case "1"
                    sw.WriteLine(strReportLine)
            End Select

        Loop Until inputRTF.EndOfStream

        inputRTF.Close()
0
AndyAinscowFreelance programmer / ConsultantCommented:
I'm not certain for VB but does this work?
if sw = nothing then
0
gwosgoodIT MgrAuthor Commented:
The correct syntax to check for Null is

        If sw.Equals(StreamWriter.Null) = False Then sw.Close()
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic.NET

From novice to tech pro — start learning today.

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.