读取TXT文件存放到二维数组中

[hzdhzd2181]

txt文本
1 2 3 4
a b c d
行数不固定 列数为6
我写的代码，求大神帮忙改改
Private Sub getTxt()
Dim Str As String
Dim sumStr(10000,5),tmp() As String
Dim n As Integer
Open "D:\abc.txt" For Input As #1
Do Unitl EOF(1)
Line Input #1,Str
tmp=Split(Str,Char(9))
For i=0 to 5
sumStr(n,i)=tmp(i)
next i
n=n+1
Loop
Close #1
End Sub

[hzdhzd2181]

补充一下，我想去掉sumStr(10000,5)去掉，或者变成动态长度的，或者直接获得文本行数与列数定于二维数组，不知道有方法没有

[酷心]

ReDim 为数组变量重新分配存储空间。可选项修饰符 Preserve 当仅更改最后一个维度的大小时，用来保留现有数组中的数据。 Dim sumStr() as string redim sumstr(5,0) Do Unitl EOF(1) Line Input #1,Str tmp=Split(Str,Char(9)) For i=0 to 5 sumStr(i,n)=tmp(i) next i n=n+1 redim Preserve sumStr(5,n) Loop Close #1

[hzdhzd2181]

谢谢，刚转到VB，好多都不知道，学习了