vb中调用txt中的数组

来源:百度知道 编辑:UC知道 时间:2024/06/20 05:03:47
程序目录下a.txt文件是这样的

球员1,12,45,78,
球员2,32,34,45,
球员3,45,55,66,
球员4,11,44,77,
球员5,22,34,44,

怎么才能把这些数值赋成

a,a(1),a(2),a(3),
b,b(1),b(2),b(3),
c,c(1),c(2),c(3),
d,d(1),d(2),d(3),
e,e(1),e(2),e(3),

以方便在以后调用,写出详细步骤和注释,越详细越好,在线等,感谢。
下标越界是什么意思?
变量a,b,c,d,e怎么定义?

Dim TextLine
Open "c:\a.txt" For Input As #1 ' 打开文件。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
a=split(textline,",")
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
b=split(textline,",")
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
c=split(textline,",")
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
d=split(textline,",")
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
e=split(textline,",")

Close #1 ' 关闭文件。

split函数就是根据分隔号把一个字符串读入到一个数组中去的函数

运行后,a(1)值就是12,a(2)就是45,以此类推

a\b\c\d\e不用定义,直接可用,当它=split函数返回的值后,就自动是一个数组了,
因为您只有五行,照您的说法,随便定义的,您可以自己定义,比如 A_123 =split(....)

下标越界是指一个数组一共只有5个项目(数组是从0开始的哟),A(0),A(1)....,您输入一个A(5),就会下标越界了

用二维数组,赋值之后变成
a(1,0),a(1,1),a(1,2),a(1,3)
a(2,0),a(2,1),a(2,2),a(2,3)
a(3,0),a(3,1),a(3,2),a(3,3)