Question

VB从文本文件读取直接赋值给二维数组?

文本文件中就25列,5行

Answer 1

dim a
dim b
dim z(24,4)
dim c,str as string
open app.apth & "\X.txt" for input as #1
do while not eof(1)
line input#1,c
str=str & c
loop
b=Split(str,vbcrlf) '取每一行的数据，共五行，所以一维数组b有五个元素，最大下标为4

for i=0 to ubound(b)
a=split(b(i)," ")

'对于每一个b的元素，取b中数据到a数组中，25列，所以数组a最大下标为24。

for j=0 to ubound(a)
z(i,j)=a(j)
next i
next i

'z(i,j)就是所得的二维数组

Answer 2

split

Answer 3

每行的分隔符是什么