怎样从文件中读取数据？

Question

有这样的文件：
直线一
图层
点 x=222.0  y=333.0 z=0.0
点 x=123.0  y=512.0 z=0.0
.
.
直线二
图层
点 x=123.0  y=134.0 z=0.0
点 x=744.0  y=545.0 z=0.0
.
.
请教各位大侠，怎样从上面的文件中把x=、y=、z=后面的数据读取出来，并每条线的数据分开。

Answer 1

以二进制打开，用get
Get [#]filenumber, [recnumber], varname Get 语句的语法具有以下几个部分：部分 描述 
filenumber 必要。任何有效的文件号。 
recnumber 可选。Variant (Long)。记录号（Random 方式的文件）或字节数（Binary 方式的文件），以表示在此处开始读出数据。 
varname 必要。一个有效的变量名，将读出的数据放入其中。 

Answer 2

Dim strLine As String
Dim i As Integer
Dim strX, strY, strZ As StringOpen "C:\a.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, strLine
        
        Do While InStr(1, strLine, "  ") > 0
            strLine = Replace(strLine, "  ", " ")
        Loop
        
        If Left(strLine, 1) = "揰" Then
            strLine = Mid(strLine, InStr(1, strLine, "x=") + 2)
            strX = Left(strLine, InStr(1, strLine, " ") - 1)
            strLine = Mid(strLine, InStr(1, strLine, "y=") + 2)
            strY = Left(strLine, InStr(1, strLine, " ") - 1)
            strLine = Mid(strLine, InStr(1, strLine, "z=") + 2)
            strZ = Trim(strLine)
        End If
    Loop
Close #1上面的代码作用就是分析一行数据“点 x=xxx y=yyy z=zzz”，至于直线怎么分析，太罗嗦了，你自己研究研究吧。