将文本文档中坐标导入VB ，并且分离出 x y 怎么办呢

来源：百度知道 编辑：UC知道 时间：2024/06/30 01:58:50
分离 令 x所有值存在一个数组中 y存在另一个数组中
文本文档有两列 第一列为X坐标 第二例为Y坐标

下面代码演示 文本中坐标以逗号为隔届
Private Sub Command3_Click()
Dim x(100), y(100)
i = 0
Open "z:\1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, a
b = Split(a, ",")
x(i) = b(0)
y(i) = b(1)
i = i + 1
Loop
Close #1
Print x(1)
Print y(1)
End Sub