Question

VB将多行多列的txt中的每行固定位置的数据数赋值给一个数组

我的代码是这样的:
Dim Strling As String, StrData As String
Dim vq() As Double
i = 0
Open "CO.dat" For Input As #1
Do Until EOF(1)
i = i + 1
Line Input #1, Strling

StrData = Mid(Strling, 5, 11)
ReDim vq(i)
vq(i) = CDbl(StrData)

Loop
Close #1

请大神指导，为什么最后的数组都为0，怎么改啊？
下面是dat文件的部分数据，我用txt打开的

Answer 1

因为你是用行读文本的，读出来的文本行是51 6302.400500 1.170E-23 6.。。。。这样的格式，mid后就是02.400500 1.这样的格式，cdbl后就是0啊，因为这是文本的格式。
我觉得你需要的应该是02.400500这样的数据，所以你可以这样改一下：
StrData = Mid(replace(Strling," ",""), 5, 9)

追问

我要的是6302.400500，51前面有空格，后面也有空格

追答

StrData = Mid(replace(Strling," ",""), 3, 11)空格已经全部被清掉了，省的空格影响位置