其实可以用split语句实现
如数据粘贴在c:\1.txt中
dimins$,i%,data_ins(1000)assingle,temp_data()assingle,new_data(1000,1000)
为了保证读取全，定义大数组。
也可前面先读一次获取行列数，然后按照读取的行列数定义数组（这里略掉）
open"c:\1.txt"forinputas#1
dountileof(1)
lineinput#1,ins
i=i+1
data_ins(i)=tins
temp_data()=split(data_ins(i),"制表符")
忘记制表符的ascii码了，你自己查查看吧，用chr(ascii码)来实现：）
forj=1toUBound(new_data)
new_data(i,j)=temp_data(j)
nexti
loop
close#1
这样应该就可以了。中间你最好自己加个判断，当temp_data()读到空数据时，不要赋值为0，赋为其他值（不影响你使用其他数据的值）
