Question

在vb中如何读取文件并将文件中的数据赋值给一个二维数组

Answer 1

ByVal是表示按传值方式传递参数，
vbCrLf是一常量，表示回车符，
Wend
是循环
openfile
=
s
表示把s的值赋值给openfile
a
=
split(openfile(App.Path
&
"\1.txt"),vbcrlf)表示先读出1.txt的内容，然后按回车符作为
分隔符
把内容分解到一个数组a中。