用VB 读取txt的数据到一个二维数组

Question

txt里面数据格式如下:
11,04,07
07,02,09
10,03,09
03,01,05
02,05,08
03,08,06
04,09,03
09,08,05
09,04,02
02,07,05
05,06,07
07,01,08
11,02,08
每一行的三个数字都要分别存放到二维数组里
如：11,02,08 存到第i行 a(0,i)=11 a(1,i)=2 a(2,i)=8
因为数据有1~2万行，所以读取速度最好能快，谢谢

Answer 1

最好是a(i,0) a(i,1) a(i,2)，更符合习惯：

dim a(10000,2), i, s, b()
open "xxx.txt" for input as #1
i=0
do while not eof(1)
line input #1,s
b=split(s,",")
for j=0 to 2
a(i,j)=b(j)
next
i=i+1
loop
close #1