vb中读取数据如何把每一行的具体的某一个数据提出来组成一个数组？具体如下
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循环后的数据。。我要把他们组成数组该怎么操作呢？？？？
最新回答
星雪伊
2024-05-31 19:23:44
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
热门标签
