Question

vb中读取数据如何把每一行的具体的某一个数据提出来组成一个数组？具体如下

Private Sub Command1_Click()Dim data As String, a() As String, b As SingleDim str, I%

Open App.Path + "\全部误差.txt" For Input As #1 '打开文件Line Input #1, temp '跳过第一行Do While Not EOF(1)Line Input #1, data '按行读取数据a = Split(data, vbTab, , vbTextCompare) '分割成数组，以tab空格为分界b = Val(a(2)) - Val(a(11))Print b;LoopClose 1Print: PrintEnd Sub

这是运行的结果。。。。。就是每一行的某一个数据loop循环后的数据。。我要把他们组成数组该怎么操作呢？？？？

Answer 1

Private Sub Command1_Click()
Dim data As String, a() As String, b As Single
Dim str, I%
'@@@@@@@@@@@@@@@
dim i
i=0
dim brr() as string 
'@@@@@@@@@@@@@@@
Open App.Path + "\全部误差宴嫌.txt" For Input As #1 '打开文件
Line Input #1, temp '跳过第一行
Do While Not EOF(1)

Line Input #1, data '按行读取数旦祥亏据
a = Split(data, vbTab, , vbTextCompare) '分割成数组，以tab空格为分界
'@@@@@@@@@@@@@@@
i=i+1
redim preserve brr(1 to i)
brr(i) = 模神Val(a(2)) - Val(a(11))
'@@@@@@@@@@@@@@@
Print b;
Loop
Close 1
Print: Print
End Sub