求助：TXT数据赋值给数组

你行数要固定，那就存在数组A，数组B。
如果你行数不固定，那只能使用 二维数组。
用二遍读取的方法吧


dim a()    '定义初始数组
第一遍
打开文件，读取第一行。
替换。把 vbtab 换成 空格
使用 do loop  循环，把多个空格 换成一个空格。
用 split 分解第一行，得到元素个数。这个是 每行的数据个数。
然后使用循环继续按行取数据，计算总行数。
关闭文件。
重定义二维数组。

第二遍。
打开文件，
读掉第一行，忽略掉，不处理 。
循环按行读取。计数行数
替换。把 vbtab 换成 空格
使用 do loop  循环，把多个空格 换成一个空格。
用 split 分解第一行，得到元素个数。这个是 每行的数据个数。
然后把每个元素放到二维数组 里去。

最后关闭文件。

代码就不给了。没编程环境，没办法测试。

活用Split()即可实现