根据txt记事本坐标生成线

当工程打开的时候或者按下按钮以后，根据以下的坐标来生成图像多个（由线连接起来的），希望有大侠来指点下！！

txt里面的记录
x1s=543 y2=233 
X2s=3660 Y2s=900     
X3s=7875 Y3s=825 
Cur_Num=2      （注释Cur_Num的意思是2条线）txt记事本里没有的
X1=3420       Y1=2445       
X2e=4380      Y2e = 3210
X3e=3210      Y3e = 4110
X4e=2235      Y4e = 2835
X5e=3420      Y5e=2445
Cur_Num=4      （注释Cur_Num的意思是4条线）txt记事本里没有的
X1=3420       Y1=2445       
X2e=4380      Y2e = 3210
X3e=3210      Y3e = 4110
X4e=2235      Y4e = 2835
X5e=3420      Y5e=2445
Cur_Num=4      （注释Cur_Num的意思是4条线）txt记事本里没有的

应该再解释一下 啊 想做个电子地图，第一次在地图上画的图，然后重新打开软件的时候那些图还在上面 （在txt里面读取
） 把记录方式改一下，就会更容易处理：

txt里面的记录
0,543,233  
1,3660,900   
2,7875,825  
0,3420,2445   
1,4380,3210
2,3210,4110
3,2235,2835
4,3420,2445
0,3420,2445   
1,4380,3210
2,3210,4110
3,2235,2835
4,3420,2445

Dim x1 As Long, x2 As Long, y1 As Long, y2  As Long, strTmp As String, strArr() As String



Open "test.txt" For Input As #1

Do Until EOF(1)

    Line Input #1, strTmp

    strArr = Split(strTmp, ",")

    If Ubound(strArr) = 2 Then

        If strArr(0) = "0" Then

            x1 = Val(strArr(1))

            y1 = Val(strArr(2))

        Else

            x2 = Val(strArr(1))

            y2 = Val(strArr(2))

            Picture1.Line (x1, y1)-(x2, y2), vbBlack

            x1 = x2

            y1 = y2

        End If

    End If

Loop

Close #1

路过学习..头像好看 谢谢你了哦  呵呵  我还没试 怎么给你分呀
of123 恩  你是办法是好  我记录的太麻烦了 

补充：VB ,  基础类