convert streamreader string to system.drawing.point?

  • Thread starter Thread starter Dave Bootsma
  • Start date Start date
D

Dave Bootsma

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
 
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
 
I've tried pts= .split(line," ")
but then I get type cannot be converted to 1-dimensional array
system.drawing.point

Gillard said:
why not use split for your line ?
Click to expand...
 
...
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
 
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

I've tried pts= .split(line," ")
but then I get type cannot be converted to 1-dimensional array
system.drawing.point
Click to expand...
 
Back
Top