VB2008 从txt读取数据 到数组

来源：百度知道 编辑：UC知道 时间：2024/06/01 05:20:13
我从excell里复制了数据到txt 一定要是txt的
格式如下
0 0 0.3626
1 0.0078 0.3547
2 0.0156 0.3517
3 0.0234 0.3477
4 0.0312 0.358
5 0.0391 0.3524
6 0.0469 0.3292
7 0.0547 0.3663
8 0.0625 0.3689
9 0.0703 0.3461
10 0.0781 0.3464
11 0.0859 0.3424
12 0.0938 0.354
13 0.1016 0.3408
14 0.1094 0.3411
15 0.1172 0.3563
16 0.125 0.3375
17 0.1328 0.3573
18 0.1406 0.3431
19 0.1484 0.3182
20 0.1562 0.3474
21 0.1641 0.3593
22 0.1719 0.3587
23 0.1797 0.3448
24 0.1875 0.3312
25 0.1953 0.36
26 0.2031 0.36
27 0.2109 0.3567
28 0.2188 0.3501
29 0.2266 0.3328
30 0.2344 0.3514
31 0.2422 0.3408
32 0.25 0.3199
33 0.2578 0.3265
34 0.2656 0.3471
35 0.2734 0.3812
36 0.2812 0.361
37 0.2891 0.3093
38 0.2969 0.3305
39 0.3047 0.3477
40 0.3125 0.3597
41 0.3203 0.3401
我要将这3组数据写到3个数组 用的是double的
一定要是vb2008的 6.0的完全不一样啊

Dim x(4, 12) As double
FileOpen(<txt文件>, 1)
For n = 0 to 41

Dim Temp As String
Temp = Trim(LineInput(1))
Dim y As Integer
y = Instr(Temp, " ") - 1
Dim z As Integer
z = Len(Temp) - y - 1
x(n, 1) = Val(Left(Temp, y)

Dim Temp2 As String
Temp2 = Right(Temp, z)
Dim y2 As Integer
y2 = Instr(Temp2, " ") - 1
Dim z2 As Integer
z2 = Len(Temp2) - y2 - 1
x(n, 2) = Val(Left(Temp2, y2)

Dim Temp3 As String
Temp3 = Right(Temp2, z2)
Dim y3 As Integer
y3 = Instr(Temp3, " ") - 1
x(n, 3) = Val(Left(Temp3, y3)

Next n

定义一个结构 写入的时候按结构写入TXT
读取的时候按结构从TXT读入数组

这样不是很清楚你什么意思，自己可以到MSDN看看相关资料对你也许有很大帮助的！MSDN很好很强悍！