注册 登录
编程论坛 Delphi论坛

请教 VB 中TXT文件中数据的六列分别存入六个数组中怎么编译代码

一笑而过1213 发布于 2013-12-09 20:28, 2202 次点击
实验时间     1号室压力     2号室压力          速度        1号室温度        2号室温度
0.2          0.01        0.06        200          116.1        116
0.4          0.01        0.03        200          116.1        116
0.6          0.01        0.03        200          116.1        116
0.8          0.01        0.03        200          116.1        116
1          0        0.03        200          116.1        116
1.2          0        0.07        200          116.1        116
1.4          0.01        0.07        200          116.1        116
1.6          0.01        0.04        200          116.1        115.9
1.8          0.01        0.04        200          116.1        115.9
2          0.01        0.04        200          116.1        115.9
2.2          0        0.04        200          116.1        115.9
2.4          0        0.04        200          116.1        115.9
2.6          0        0.04        200          116.1        115.9
2.8          0        0.04        200          116.1        115.9
2 回复
#2
veketdelphi2013-12-12 14:03
Private Sub Command1_Click()
    Dim a1(), b1(), c1(), d1(), e1(), f1() As Single
    Dim a, b, c, d, e, f
    Open "c:\test.txt" For Input As #1
    Dim i As Long
    i = 1
    Do While Not EOF(1)
        Input #1, a, b, c, d, e, f
        ReDim Preserve a1(i)
        ReDim Preserve b1(i)
        ReDim Preserve c1(i)
        ReDim Preserve d1(i)
        ReDim Preserve e1(i)
        ReDim Preserve f1(i)
        a1(i) = a
        b1(i) = b
        c1(i) = c
        d1(i) = d
        e1(i) = e
        f1(i) = f
        i = i + 1
    Loop
    Close #1
    Dim n As Integer
    n = i
    For i = 1 To n - 1
        Print Format(a1(i), "0.00"); ","; Format(b1(i), "0.00"); ","; Format(c1(i), "0.00"); ","; Format(d1(i), "0.00"); ","; Format(e1(i), "0.00"); ","; Format(f1(i), "0.00")
    Next
End Sub
#3
wp2319572013-12-16 15:10
关注
1