vb 逐个读入数据给数组

来源：百度知道 编辑：UC知道 时间：2024/09/21 20:29:54
数组如下：
12，2343，234。。。
34，355，123。。。
34，243，234。。。
...怎么读入到数组（要做数值分析的），并且以表格形式显示！！！
跪求答案！！
数据在txt文档里，维数不确定，要读入到一个二维数组里，进行计算
各位给帮帮忙啦
小弟感激不尽

看样子是每一行的数据个数都相同的吧，那就用lineinput吧，和split合用，稍后献上代码！！
Option Explicit
Dim a As String, b() As String, c() As Long, x%, i%, y%
Private Sub Command1_Click()
Open "d:\1.txt" For Input As #1 '第一次打开文件是为了测试文件的行数和列数，便于定义数组
Do While Not EOF(1)
Line Input #1, a
b = Split(a, ",")
y = UBound(b) + 1 'y表示每一行的数据个数
x = x + 1 'x表示数据的行数
Loop
Close #1
Print x, y
ReDim c(1 To x, 1 To y) '重新定义数组的维数
x = 0 'x归0
Open "d:\1.txt" For Input As #1 '第二次打开文件是为了读入数据
Do While Not EOF(1)
Line Input #1, a
x = x + 1 ‘行数累计
b = Split(a, ",")
For i = 0 To UBound(b)
c(x, i + 1) = Val(b(i)) '把数据写入数组，此时c是长整型数组
Next i
Loop
Close #1
End Sub

大哥...什么文件啊....