vb 中怎么将数据文件读入到数组中

Question

数据为txt格式的 ，是将cxcel中的数据粘贴到记事本中得到的
数据的行列数不知道 ，且数据中有为空白的项。
我想要将数据读入到数组（每列一个数组或者是二维数组），在讲数据显示在窗体上
没法 你那个读取不出来啊 不过还是感谢你们 了

Answer 1

其实可以用split语句实现

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

Answer 2

你不如直接用vb读excel，记事本里的数据如果没有分界符，同时各数据项的长度也不一定，基本上是没有办法了。