Question

急求！！有一个文本文件中有x，y，z坐标数据，如何用vb编写程序将这些坐标读出来。

求大神帮助！！

Answer 1

x，y，z

x，y，z

x，y，z

如果在文档里面是用这个方式存储坐标的话  

Private Sub Command1_Click()
Dim Str As String
Dim x As Long, y As Long, z As Long
Dim x1 As Long, x2 As Long
Open "D:\坐标.txt" For Input As #1  '这个D:\坐标.txt 改成你实际文档地址
Do Until EOF(1)                     '在文档中循环
Line Input #1, Str                  '输出当前行的文本 x,y,z
x1 = InStr(Str, ",")                         '获取文本中第一个逗号的位置
x = Mid(Str, 1, x1 - 1)                      '截取从第一个字符开始到逗号之前的字符               为x的值
x2 = InStr(x1 + 1, Str, ",")                 '获取文本中第二个逗号的位置
y = Mid(Str, x1 + 1, x2 - x1 - 1)            '截取从第一个逗号之后的字符 到第二个逗号之前的字符  为y的值
z = Mid(Str, x2 + 1)                         '截取第二个逗号之后的所有字符                       为z的值

MsgBox x & "|" & y & "|" & z
Loop
Close #1
End Sub