Function call problem

[ataanis]

Hey everyone
I'm writing this simple function call from a sub , but for some reason
when I click the file to open, it freezes, can anybody tell me what's
the deal?
Thanks

Private Sub MenuItem2_Click (ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MenuItem2.Click
If OpenFileDialog1 .ShowDialog() = DialogResult.OK Then
Dim FullPath As String
Dim BaseName As String
Dim Location As String
FullPath = OpenFileDialog1 .FileName
BaseName = Path.GetFileNam eWithoutExtensi on(FullPath)
Location = Path.GetDirecto ryName(FullPath )
MakeReadable(Lo cation, FullPath, BaseName)
End If
End Sub
Function MakeReadable(By Val Location As String, ByVal FullPath As
String, ByVal BaseName As String)
Dim sr As New System.IO.Strea mReader(FullPat h)
Dim oFile As System.IO.File
Dim oWrite As System.IO.Strea mWriter
oWrite = oFile.CreateTex t(Location + "\" + BaseName + ".txt")
Dim LineIn As String
LineIn = sr.ReadLine()
Dim FrLong As Integer
Dim FrLat As Integer
Dim ToLong As Integer
Dim ToLat As Integer
Dim feFirP As String
Dim feName As String
Dim feType As String
Dim feDirS As String
Dim tlId As Long
Dim version As Short
Dim side1 As Boolean
Dim cfcc As String
While sr.Peek <> -1

'Converting coordinates
feType = LineIn.Substrin g(55, 1)
FrLong = 180000000 + CInt(LineIn.Sub string(191, 9))
FrLat = 90000000 - CInt(LineIn.Sub string(200, 9))
ToLong = 180000000 + CInt(LineIn.Sub string(210, 9))
ToLat = 90000000 - CInt(LineIn.Sub string(219, 9))

'writing new coordinates to new file
oWrite.Write(Fr Long / 1000000)
oWrite.Write(" ")
oWrite.Write(Fr Lat / 1000000)
oWrite.Write(" ")
oWrite.Write(To Long / 1000000)
oWrite.Write(" ")
oWrite.Write(To Lat / 1000000)
oWrite.Write(" ")
'If feType = "A" Then
' oWrite.Write("h wy")
'Else : oWrite.Write("n o")
'End If
oWrite.Write(vb CrLf)
'oWrite.BaseStr eam.Seek(0, SeekOrigin.End)

End While
oWrite.Close()
MessageBox.Show ("Coordinate s written to file")
End Function

[Cor Ligthert [MVP]]

Ataanix,

Why don't you not debug it using the tools.

Set a breakpoint at If OpenFileDialog and see than with clicking at the F11
where it stops.

I hope this helps,

Cor

<at*****@gmail. com> schreef in bericht
news:11******** *************@g 10g2000cwb.goog legroups.com...

Hey everyone
I'm writing this simple function call from a sub , but for some reason
when I click the file to open, it freezes, can anybody tell me what's
the deal?
Thanks

Private Sub MenuItem2_Click (ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MenuItem2.Click
If OpenFileDialog1 .ShowDialog() = DialogResult.OK Then
Dim FullPath As String
Dim BaseName As String
Dim Location As String
FullPath = OpenFileDialog1 .FileName
BaseName = Path.GetFileNam eWithoutExtensi on(FullPath)
Location = Path.GetDirecto ryName(FullPath )
MakeReadable(Lo cation, FullPath, BaseName)
End If
End Sub
Function MakeReadable(By Val Location As String, ByVal FullPath As
String, ByVal BaseName As String)
Dim sr As New System.IO.Strea mReader(FullPat h)
Dim oFile As System.IO.File
Dim oWrite As System.IO.Strea mWriter
oWrite = oFile.CreateTex t(Location + "\" + BaseName + ".txt")
Dim LineIn As String
LineIn = sr.ReadLine()
Dim FrLong As Integer
Dim FrLat As Integer
Dim ToLong As Integer
Dim ToLat As Integer
Dim feFirP As String
Dim feName As String
Dim feType As String
Dim feDirS As String
Dim tlId As Long
Dim version As Short
Dim side1 As Boolean
Dim cfcc As String
While sr.Peek <> -1

'Converting coordinates
feType = LineIn.Substrin g(55, 1)
FrLong = 180000000 + CInt(LineIn.Sub string(191, 9))
FrLat = 90000000 - CInt(LineIn.Sub string(200, 9))
ToLong = 180000000 + CInt(LineIn.Sub string(210, 9))
ToLat = 90000000 - CInt(LineIn.Sub string(219, 9))

'writing new coordinates to new file
oWrite.Write(Fr Long / 1000000)
oWrite.Write(" ")
oWrite.Write(Fr Lat / 1000000)
oWrite.Write(" ")
oWrite.Write(To Long / 1000000)
oWrite.Write(" ")
oWrite.Write(To Lat / 1000000)
oWrite.Write(" ")
'If feType = "A" Then
' oWrite.Write("h wy")
'Else : oWrite.Write("n o")
'End If
oWrite.Write(vb CrLf)
'oWrite.BaseStr eam.Seek(0, SeekOrigin.End)

End While
oWrite.Close()
MessageBox.Show ("Coordinate s written to file")
End Function

[ataanis]

Cor,
I did but It goes on a loop forever ,and I don't see anything wrong
with the loop.

[Cor Ligthert [MVP]]

The least you can tell than where it goes in the loop?

Cor

<at*****@gmail. com> schreef in bericht
news:11******** ************@i3 9g2000cwa.googl egroups.com...

Cor,
I did but It goes on a loop forever ,and I don't see anything wrong
with the loop.

[Branco Medeiros]

at*****@gmail.c om wrote:

Hey everyone
I'm writing this simple function call from a sub , but for some reason
when I click the file to open, it freezes, can anybody tell me what's
the deal? <snip> Function MakeReadable(By Val Location As String, ByVal FullPath As
String, ByVal BaseName As String)
Dim sr As New System.IO.Strea mReader(FullPat h) <snip> LineIn = sr.ReadLine() <snip> While sr.Peek <> -1 <snip> End While

<snip>

You must read the line from inside the loop:

While sr.Peek <> -1
LineIn = sr.ReadLine()
'.
'.
'.
End While

Regards,

Branco.

[Herfried K. Wagner [MVP]]

<at*****@gmail. com> schrieb:

I'm writing this simple function call from a sub , but for some reason
when I click the file to open, it freezes, can anybody tell me what's
the deal?

Your code is lacking a 'ReadLine' call inside the loop. Check out the
anatomy of line-by-line file reading code here:

Reading a text file line-by-line or blockwise with a progress indicator
<URL:http://dotnet.mvps.org/dotnet/faqs/?id=readfile&la ng=en>

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>

[Mythran]

<at*****@gmail. com> wrote in message
news:11******** *************@g 10g2000cwb.goog legroups.com...

Hey everyone
I'm writing this simple function call from a sub , but for some reason
when I click the file to open, it freezes, can anybody tell me what's
the deal?
Thanks

Private Sub MenuItem2_Click (ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MenuItem2.Click
If OpenFileDialog1 .ShowDialog() = DialogResult.OK Then
Dim FullPath As String
Dim BaseName As String
Dim Location As String
FullPath = OpenFileDialog1 .FileName
BaseName = Path.GetFileNam eWithoutExtensi on(FullPath)
Location = Path.GetDirecto ryName(FullPath )
MakeReadable(Lo cation, FullPath, BaseName)
End If
End Sub
Function MakeReadable(By Val Location As String, ByVal FullPath As
String, ByVal BaseName As String)
Dim sr As New System.IO.Strea mReader(FullPat h)
Dim oFile As System.IO.File
Dim oWrite As System.IO.Strea mWriter
oWrite = oFile.CreateTex t(Location + "\" + BaseName + ".txt")
Dim LineIn As String
LineIn = sr.ReadLine()
Dim FrLong As Integer
Dim FrLat As Integer
Dim ToLong As Integer
Dim ToLat As Integer
Dim feFirP As String
Dim feName As String
Dim feType As String
Dim feDirS As String
Dim tlId As Long
Dim version As Short
Dim side1 As Boolean
Dim cfcc As String
While sr.Peek <> -1

'Converting coordinates
feType = LineIn.Substrin g(55, 1)
FrLong = 180000000 + CInt(LineIn.Sub string(191, 9))
FrLat = 90000000 - CInt(LineIn.Sub string(200, 9))
ToLong = 180000000 + CInt(LineIn.Sub string(210, 9))
ToLat = 90000000 - CInt(LineIn.Sub string(219, 9))

'writing new coordinates to new file
oWrite.Write(Fr Long / 1000000)
oWrite.Write(" ")
oWrite.Write(Fr Lat / 1000000)
oWrite.Write(" ")
oWrite.Write(To Long / 1000000)
oWrite.Write(" ")
oWrite.Write(To Lat / 1000000)
oWrite.Write(" ")
'If feType = "A" Then
' oWrite.Write("h wy")
'Else : oWrite.Write("n o")
'End If
oWrite.Write(vb CrLf)
'oWrite.BaseStr eam.Seek(0, SeekOrigin.End)

End While
oWrite.Close()
MessageBox.Show ("Coordinate s written to file")
End Function

sr.Peek never consumes the character it reads. It never moves the pointer
from the current location. Inside the loop, you don't have anything that
moves the pointer forward, just peeks...(no readlines, or reads).

Mythran

[Chris Dunaway]

>> LineIn = sr.ReadLine()

This line needs to be inside your while loop