请问用vb程序读文件到一维数组里

来源：百度知道 编辑：UC知道 时间：2024/05/30 18:10:45
我有一个txt文件有大量数据,我要把这些数据掉出来读到一维数组里.
如
txt数据为
星期 一 二 三 四 五 六 日
一周 1 2 3 4 5 6 4
二周 2 3 4 5 7 8 4
三周 1 2 5 7 9 4 5
四周 2 3 4 5 7 9 5
、
、
、数据还很多

读如数组 运行后为
一周一 1
一周二 2
一周三 3
一周四 4
一周五 5
一周六 6
一周日 4
二周一 2
二周二 3
二周三 4
、
、
三周一 1
、
、
一直往下
用程序来回答..

Dim arr()
n = 0
Open "文件.txt" For Input As #1
Do Until EOF(1)
Line Input #1, s
s = Trim(s)
Do While InStr(1, s, " ") > 0
s = Replace(s, " ", " ")
Loop
a = Split(s)
If n > 1 Then
ReDim Preserve arr(n * 7)
For i = 1 To 7
arr(n * 7 - 14 + i) = a(i)
Next
End If
n = n + 1
Loop
Close #1

找一下，日历源码就行了