By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
449,264 Members | 1,743 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 449,264 IT Pros & Developers. It's quick & easy.

convert streamreader string to system.drawing.point?

P: n/a


I have an application where I want to redraw a polygon from points I
retrieve from a file.
The file is read with streamreader line by line each line contains the
points for each polygon.
Below is a typical line from my file.
500,748 500,678 552,678 552,696 584,696 584,714 612,714 612,748

Each set of x,y coordinates is separated by a space.

How can I read this into my points collection. If I currently try I get
can't convert issues.

Here's code I have been hacking and slashing
Dim blueBrush As New SolidBrush(Color.Blue)
Dim curvePoints As Point()
Dim part As Integer
Dim part2 As Integer
Dim pts As Point

Dim formGraphics2 As System.Drawing.Graphics = Me.CreateGraphics()

Try
' Create an instance of StreamReader to read from a file.
Using sr As StreamReader = New StreamReader("Polygon.txt")
Dim line As String
' Read and display the lines from the file until the end
' of the file is reached.
Do
line = sr.ReadLine()
If line <"" Then
part =
Convert.ToInt32(Microsoft.VisualBasic.Left(line, 3))

part2 =
Convert.ToInt32(Microsoft.VisualBasic.Mid(line, 5, 3))
pts = (part,part2)
curvePoints = pts

End If

'formGraphics2.FillPolygon(blueBrush, curvePoints)
Loop Until line Is Nothing
sr.Close()
End Using
Catch E As Exception
' Let the user know what went wrong.
Console.WriteLine("The file could not be read:")
Console.WriteLine(E.Message)
End Try

please respond via email if possible

--
Dave Bootsma
Bradenton Fl.
(941) 224-8298
Sep 8 '08 #1
Share this Question
Share on Google+
5 Replies


P: n/a
why not use split for your line ?
"Dave Bootsma" <da**********@verizon.netwrote in message
news:uK**************@TK2MSFTNGP04.phx.gbl...
>

I have an application where I want to redraw a polygon from points I
retrieve from a file.
The file is read with streamreader line by line each line contains the
points for each polygon.
Below is a typical line from my file.
500,748 500,678 552,678 552,696 584,696 584,714 612,714 612,748

Each set of x,y coordinates is separated by a space.

How can I read this into my points collection. If I currently try I get
can't convert issues.

Here's code I have been hacking and slashing
Dim blueBrush As New SolidBrush(Color.Blue)
Dim curvePoints As Point()
Dim part As Integer
Dim part2 As Integer
Dim pts As Point

Dim formGraphics2 As System.Drawing.Graphics = Me.CreateGraphics()

Try
' Create an instance of StreamReader to read from a file.
Using sr As StreamReader = New StreamReader("Polygon.txt")
Dim line As String
' Read and display the lines from the file until the end
' of the file is reached.
Do
line = sr.ReadLine()
If line <"" Then
part =
Convert.ToInt32(Microsoft.VisualBasic.Left(line, 3))

part2 =
Convert.ToInt32(Microsoft.VisualBasic.Mid(line, 5, 3))
pts = (part,part2)
curvePoints = pts

End If

'formGraphics2.FillPolygon(blueBrush, curvePoints)
Loop Until line Is Nothing
sr.Close()
End Using
Catch E As Exception
' Let the user know what went wrong.
Console.WriteLine("The file could not be read:")
Console.WriteLine(E.Message)
End Try

please respond via email if possible

--
Dave Bootsma
Bradenton Fl.
(941) 224-8298
Sep 8 '08 #2

P: n/a
You can use the Split function a couple of times

Dim Rows(), Rows2() As String
Dim oRead As System.IO.StreamReader
Dim EntireFile As String
oRead = File.OpenText("c:\yourfile.txt")
EntireFile = oRead.ReadToEnd()
Rows = EntireFile.Split(CChar(" "))

For i As Integer = 0 to Rows.Length - 1
Rows2 = Rows(i).Split(CChar(",")
For j As Integer = 0 to Rows2.Length - 1
'--do your polygon thing
Next
Next
Rich

*** Sent via Developersdex http://www.developersdex.com ***
Sep 8 '08 #3

P: n/a
I've tried pts= .split(line," ")
but then I get type cannot be converted to 1-dimensional array
system.drawing.point

"Gillard" <gillard_georges@@@@@@@@@hotmail.comwrote in message
news:#q*************@TK2MSFTNGP06.phx.gbl...
why not use split for your line ?
"Dave Bootsma" <da**********@verizon.netwrote in message
news:uK**************@TK2MSFTNGP04.phx.gbl...
>>

I have an application where I want to redraw a polygon from points I
retrieve from a file.
The file is read with streamreader line by line each line contains the
points for each polygon.
Below is a typical line from my file.
500,748 500,678 552,678 552,696 584,696 584,714 612,714 612,748

Each set of x,y coordinates is separated by a space.

How can I read this into my points collection. If I currently try I get
can't convert issues.

Here's code I have been hacking and slashing
Dim blueBrush As New SolidBrush(Color.Blue)
Dim curvePoints As Point()
Dim part As Integer
Dim part2 As Integer
Dim pts As Point

Dim formGraphics2 As System.Drawing.Graphics = Me.CreateGraphics()

Try
' Create an instance of StreamReader to read from a file.
Using sr As StreamReader = New StreamReader("Polygon.txt")
Dim line As String
' Read and display the lines from the file until the end
' of the file is reached.
Do
line = sr.ReadLine()
If line <"" Then
part =
Convert.ToInt32(Microsoft.VisualBasic.Left(line , 3))

part2 =
Convert.ToInt32(Microsoft.VisualBasic.Mid(line, 5, 3))
pts = (part,part2)
curvePoints = pts

End If

'formGraphics2.FillPolygon(blueBrush, curvePoints)
Loop Until line Is Nothing
sr.Close()
End Using
Catch E As Exception
' Let the user know what went wrong.
Console.WriteLine("The file could not be read:")
Console.WriteLine(E.Message)
End Try

please respond via email if possible

--
Dave Bootsma
Bradenton Fl.
(941) 224-8298

Sep 8 '08 #4

P: n/a
...
Dim k, m As Integer
For i As Integer = 0 to Rows.Length - 1
Rows2 = Rows(i).Split(CChar(",")
k = CInt(Rows2(0))
m = CInt(Rows2(1))
Pt = New Point(k, m)
Next
...

Rich

*** Sent via Developersdex http://www.developersdex.com ***
Sep 8 '08 #5

P: n/a
pts = line.Split(" "c)

or

pts = line.Split(New String() { " " }, StringSplitOptions.None)

You don't pass the string to Split(), you call Split() on the string
you with to split.

If you look at the IntelliSense you will see that String.Split takes
the separators as any of:
Char
Char array
String Array followed by StringSplitOptions

On Mon, 8 Sep 2008 17:52:14 -0400, "Dave Bootsma"
<da**********@verizon.netwrote:
>I've tried pts= .split(line," ")
but then I get type cannot be converted to 1-dimensional array
system.drawing.point

"Gillard" <gillard_georges@@@@@@@@@hotmail.comwrote in message
news:#q*************@TK2MSFTNGP06.phx.gbl...
>why not use split for your line ?
"Dave Bootsma" <da**********@verizon.netwrote in message
news:uK**************@TK2MSFTNGP04.phx.gbl...
>>>

I have an application where I want to redraw a polygon from points I
retrieve from a file.
The file is read with streamreader line by line each line contains the
points for each polygon.
Below is a typical line from my file.
500,748 500,678 552,678 552,696 584,696 584,714 612,714 612,748

Each set of x,y coordinates is separated by a space.

How can I read this into my points collection. If I currently try I get
can't convert issues.

Here's code I have been hacking and slashing
Dim blueBrush As New SolidBrush(Color.Blue)
Dim curvePoints As Point()
Dim part As Integer
Dim part2 As Integer
Dim pts As Point

Dim formGraphics2 As System.Drawing.Graphics = Me.CreateGraphics()

Try
' Create an instance of StreamReader to read from a file.
Using sr As StreamReader = New StreamReader("Polygon.txt")
Dim line As String
' Read and display the lines from the file until the end
' of the file is reached.
Do
line = sr.ReadLine()
If line <"" Then
part =
Convert.ToInt32(Microsoft.VisualBasic.Left(lin e, 3))

part2 =
Convert.ToInt32(Microsoft.VisualBasic.Mid(line , 5, 3))
pts = (part,part2)
curvePoints = pts

End If

'formGraphics2.FillPolygon(blueBrush, curvePoints)
Loop Until line Is Nothing
sr.Close()
End Using
Catch E As Exception
' Let the user know what went wrong.
Console.WriteLine("The file could not be read:")
Console.WriteLine(E.Message)
End Try

please respond via email if possible

--
Dave Bootsma
Bradenton Fl.
(941) 224-8298

Sep 8 '08 #6

This discussion thread is closed

Replies have been disabled for this discussion.