假如我的txt的数据是这样的：

假如我的txt的数据是这样的：
1 2 3
4 5 6
7 8 9
想赋值给vb中的数组indata(2,2),我写的程序是：

Open "(文件路径和名称)" For Input As #1

Input #1, indata(0, 0), indata(0, 1), indata(0, 2), indata(1, 0), indata(1, 1), indata(1, 2), _
indata(2, 0), indata(2, 1), indata(2, 2)
我实际要引用的数据是4500*6的,如果数组元素都列出来好麻烦,希望指点

谢谢!!!

用readline（读取文件中的一行）
然后用Array把它读进一维的数组
然后用循环读到你的数组中

[此贴子已经被作者于2006-6-17 17:27:09编辑过]

谢谢你，我这就试试

tang688：你好，再帮帮我，好吗？
我把所有的数据一次性读入了变量中，然后想对它分割，再赋值给二维数组，试了好多次总是得不到正确结果，能写下程序代码吗？

非常感谢！！

谢谢，我弄出来了

楼主是怎么解决的?请赐教!!
我工作中遇到一个同样的问题.暂时没有得到解决
谢谢

我来教教你们，再大的数组也是轻松搞定
Open "(文件路径和名称)" For Input As #1
for i=1 to 行
for j=1 to 列
input #1, indata(i,j)
next j
next i
close #1
可以了

大家赶紧去试试吧！

其实道理很简单，input函数读取数据是一个一个读的，只要按照顺序赋值给数组就行了。