read coordinates from text files.

[Dj Still]

am using vb6 here is my codes

Open App.Path & "\streetx.txt" For Input As #1 ' Open file
Line Input #1, x

Open App.Path & "\streetxx.txt" For Input As #2 ' Open file
Line Input #2, y

Open App.Path & "\streetx.txt" For Input As #3 ' Open file
Line Input #3, x1

Open App.Path & "\streety.txt" For Input As #4 ' Open file
Line Input #4, y1


For count = 1 To 1242



Line Input #1, x
Line Input #2, y
Line Input #3, x1
Line Input #4, y1
Picture1.Line (x, y)-(x1, y1), CommonDialog1.Color

Close #1
Close #2
Close #3
Close #4
Next

with this i plit the x and y values.
so the x values in one files and y in the other files as you can see.

so i open the x files two times with two different names, and i will use the firet line in the that files for x1, and second line for x2. and i did the same for the y values but am having problems with the looping. there are 1242 line in each of the two files. please help me my loop just kept crashing.

[recursion]

I not going to spoon feed he. I prefer to show him what wrong with what he doing. Better to teach a man to fish than to give him a fish.

Sometime to save you sanity might as well give he a fish. Some people just can't fish, if you get what I'm saying. Not talking bout you DJ Still, just some fishermen I've had to work with at times

[hassanvoyeau]

1242 line in each of the two files. please help me my loop just kept crashing.

Your loop should be 1 to 1241 (since you already read the first line before the start of the loop)

[Ghionw]

Your loop should be 1 to 1241 (since you already read the first line before the start of the loop)

Wouldn't he be safer ending the loop on End Of File (EOF), so that the code can take a file with varying amounts of coordinates.

[recursion]

You mention two files but yet I see three filenames
streetx.txt
streetxx.txt
streety.txt

[samuelmitch]

DJ Still, I notice that these two file reader are link to the same file name that could be a problem.

Open App.Path & "\streetx.txt" For Input As #1 ' Open file
Line Input #1, x

Open App.Path & "\streetx.txt" For Input As #3 ' Open file
Line Input #3, x1

and the next thing you can do is trace your application to see where there error is occurring. Also you need to put in error handler and EOF.

[recursion]

Why not store all the co-ordinates in a single file? Is it a requirement that they be in separate files?
x,y
x1,y1
x2,y2
and so on.........

[icymint3]

why, after structured pseudocode this bredda yah haffi mess up di thread wid VB6 code?

anyway a ur thread still, do u thing.

i still dont see the reason u want seperate the coordinated into different files, they dont make the problem easier to solve, they dont lower the complexity, it doesnt make coding it any easier, and it doesnt get rid of the problem u had before?

(mi nuh really code VB6, dats why mi a chat suh... ignore mi)

but fi who actually do VB6 code, does this line really make sense or he just slap in the pseudocode into he VB6 code :

Picture1.Line (x, y)-(x1, y1), CommonDialog1.Color