Pausing for an open file to be closed

[jcrouse]

This is sort of a revisited item from about two months ago (don't get
mad Cor) with additional code. I am creating a batch file called
CreateMameGames .bat. I am then running that batch file to create a text file
called MameGames.cfg. Later on in my code I parse through the file and pull
out information. This all worked great but the file is 25MB. In an attempt
to spped up the parsing I added code to take the MameGames.cfg file, open
it, read it a line at a time and if I need that line later, write it to
another text file called Games.cfg. The problem is that the creation on the
25MB file, MameGames.cfg doesn't complete before I declare it with a
streamreader of the slimming down of the file. I have even put in a timer to
pause 60 seconds, but no luck. The few times it has run it did great,
reducing the file to 700kb in size. What are some of my options here? I run
it as a process and thought the the process.wait for exit would do it, but
it doesn't. Here is my code:

Dim strInput As String = Application.Sta rtupPath & "\CreateMameGam esCFG.bat"

MsgBox("Please be patient. This operation could take a minute or two to
complete.", MsgBoxStyle.Inf ormation, "CPViewer")

Me.Cursor = Cursors.WaitCur sor

Dim p As New System.Diagnost ics.ProcessStar tInfo

p.CreateNoWindo w = True

p.WindowStyle = ProcessWindowSt yle.Hidden

p.FileName = strInput

p.UseShellExecu te = True

System.Diagnost ics.Process.Sta rt(p)

Dim pr As System.Diagnost ics.Process = System.Diagnost ics.Process.Sta rt(p)

pr.WaitForExit( )

pr.Close()

pr.Dispose()

Me.Cursor = Cursors.Default

Start = Microsoft.Visua lBasic.DateAndT ime.Timer

Finish = Start + 60.0

Do While Microsoft.Visua lBasic.DateAndT ime.Timer < Finish

Loop

MsgBox("Your file has been created successfully.", MsgBoxStyle.Inf ormation,
"CPViewer")

Dim srMameGamesCFG As StreamReader = New
StreamReader(Ap plication.Start upPath & "\mamegames.cfg ")

Dim sw As StreamWriter = New StreamWriter(Ap plication.Start upPath &
"\Games.cfg ")

strLine = "1"

Do Until strLine Is Nothing

strLine = srMameGamesCFG. ReadLine()

If strLine Is Nothing Then

Exit Do

ElseIf strLine.StartsW ith("game (") = True Then

sw.WriteLine(st rLine)

ElseIf strLine.StartsW ith(vbTab & "name ") = True Then

sw.WriteLine(st rLine)

ElseIf strLine.StartsW ith(vbTab & "descriptio n ") = True Then

sw.WriteLine(st rLine)

ElseIf strLine.StartsW ith(vbTab & "video ( screen") = True Then

sw.WriteLine(st rLine)

ElseIf strLine.Equals( ")") = True Then

sw.WriteLine(st rLine)

End If

Loop

sw.Close()

Thanks,

John

[jcrouse]

Oh yeah, here is the line that it is erroring out on saying that the file is
already open:

Dim srMameGamesCFG As StreamReader = New
StreamReader(Ap plication.Start upPath & "\mamegames.cfg ")

Thanks,

John

"jcrouse" <me> wrote in message news:eG******** *****@TK2MSFTNG P12.phx.gbl...

This is sort of a revisited item from about two months ago (don't get
mad Cor) with additional code. I am creating a batch file called
CreateMameGames .bat. I am then running that batch file to create a text file called MameGames.cfg. Later on in my code I parse through the file and pull out information. This all worked great but the file is 25MB. In an attempt
to spped up the parsing I added code to take the MameGames.cfg file, open
it, read it a line at a time and if I need that line later, write it to
another text file called Games.cfg. The problem is that the creation on the 25MB file, MameGames.cfg doesn't complete before I declare it with a
streamreader of the slimming down of the file. I have even put in a timer to pause 60 seconds, but no luck. The few times it has run it did great,
reducing the file to 700kb in size. What are some of my options here? I run it as a process and thought the the process.wait for exit would do it, but
it doesn't. Here is my code:

Dim strInput As String = Application.Sta rtupPath & "\CreateMameGam esCFG.bat"
MsgBox("Please be patient. This operation could take a minute or two to
complete.", MsgBoxStyle.Inf ormation, "CPViewer")

Me.Cursor = Cursors.WaitCur sor

Dim p As New System.Diagnost ics.ProcessStar tInfo

p.CreateNoWindo w = True

p.WindowStyle = ProcessWindowSt yle.Hidden

p.FileName = strInput

p.UseShellExecu te = True

System.Diagnost ics.Process.Sta rt(p)

Dim pr As System.Diagnost ics.Process = System.Diagnost ics.Process.Sta rt(p)

pr.WaitForExit( )

pr.Close()

pr.Dispose()

Me.Cursor = Cursors.Default

Start = Microsoft.Visua lBasic.DateAndT ime.Timer

Finish = Start + 60.0

Do While Microsoft.Visua lBasic.DateAndT ime.Timer < Finish

Loop

MsgBox("Your file has been created successfully.", MsgBoxStyle.Inf ormation, "CPViewer")

Dim srMameGamesCFG As StreamReader = New
StreamReader(Ap plication.Start upPath & "\mamegames.cfg ")

Dim sw As StreamWriter = New StreamWriter(Ap plication.Start upPath &
"\Games.cfg ")

strLine = "1"

Do Until strLine Is Nothing

strLine = srMameGamesCFG. ReadLine()

If strLine Is Nothing Then

Exit Do

ElseIf strLine.StartsW ith("game (") = True Then

sw.WriteLine(st rLine)

ElseIf strLine.StartsW ith(vbTab & "name ") = True Then

sw.WriteLine(st rLine)

ElseIf strLine.StartsW ith(vbTab & "descriptio n ") = True Then

sw.WriteLine(st rLine)

ElseIf strLine.StartsW ith(vbTab & "video ( screen") = True Then

sw.WriteLine(st rLine)

ElseIf strLine.Equals( ")") = True Then

sw.WriteLine(st rLine)

End If

Loop

sw.Close()

Thanks,

John