Question

VB编写程序读取给定格式的文本文件

很急 跪谢
1 10107.5 10340.2 331.46
2 10110.4 10360.1 331.45
3 10114.4 10377.5 332.67
4 10119.4 10392.4 332.76
5 10122.8 10409.6 333.87
6 10150.4 10309.9 329.23
7 10127.5 10421.5 335.26
8 10160.6 10329.7 337.65
有900行
点号 X坐标 Y坐标 Z坐标
。。。。。
。。。。。。。。。
将X,Y,Z坐标读取赋值给三个一维数组X,Y,Z中
再将三个一维数组X,Y,Z中的数据写到文件中格式如下：

点号 X坐标 Y坐标 Z坐标
。。。。。
。。。。。。。。。

Answer 1

格式是固定的吗？点号和x坐标之间是两个空格吗？

追问

那个应该是随意的
要求如下：将X,Y,Z坐标读取赋值给三个一维数组X,Y,Z中
再将三个一维数组X,Y,Z中的数据写到文件中格式如下：

点号 X坐标 Y坐标 Z坐标

追答

好吧，我设定点号和X坐标之间只有一个空格，文件放在c:\d.txt，写的新文件c:\x.txt（我是在虚拟机下做的，下面没有分区，只有c盘，呵呵），只有8个数据，你可以自己改成900。其实这个点号不是必须的，因为你是按照顺序下来的，点号和数组序号一样即可。代码如下：

Dim x(1 To 8) As Single, y(1 To 8) As Single, z(1 To 8) As Single
Private Sub Command1_Click() '读取坐标
Dim s As String, i As Long
    Open "c:\d.txt" For Input As #1
        For i = 1 To 8
            Line Input #1, s
            fuzhi s
        Next i
    Close #1
End Sub
Private Sub fuzhi(s As String)  '将读到的内容分解后赋值给数组
Dim t As Long, i As Long, n As Long
    t = 1
    i = 1
    i = InStr(t, s, " ")
    n = Str(Mid(s, t, i - t))
    t = i + 1
    i = InStr(t, s, " ")
    x(n) = Str(Mid(s, t, i - t))
    t = i + 1
    i = InStr(t, s, " ")
    y(n) = Str(Mid(s, t, i - t))
    t = i
    i = Len(s)
    z(n) = Str(Mid(s, t, i - t + 1))
End Sub
Private Sub Command2_Click() '写入文件
Dim i As Long
    Open "c:\x.txt" For Output As #1
        For i = 1 To 8
            Print #1, i & " " & x(i) & " " & y(i) & " " & z(i)
        Next i
    Close #1
End Sub

追问

真的谢谢 然后如果我那个900的话除了改8之外还改中间那部分吗？

追答

定义、循环改了就可以了，其他的不用改，也就是上面代码第1、5、30行改了即可。
一定要注意，用多少定义多少，我代码里面没有加入纠错代码，如果定义的多了，但你文件里面没有那么多，就会出错。
也可以在第5行后面加入以下语句：
If EOF(1) Then
MsgBox "超出文件末尾！"
Exit For
End If
这是判断读取到文件末尾，但还有数组没有赋值则不继续赋值，提示后退出

追问

我改完它还是运行不出来啊 可以告诉我具体怎么改