VB怎样将下面的一组数据输入到一个数组中

Question

TXT文件：下面有3个数据：
                   1  0.25
                   2  0.3
                   3  0.35
输出的样子：[3 0.25 0.3 0.35]
第一列为数据的总个数

Answer 1

Option ExplicitPrivate Sub Command1_Click()
Dim a As String
'模拟输入文本
a = a & "1  0.25" & vbCrLf
a = a & "2  0.3" & vbCrLf
a = a & "3  0.35"
Dim aryTmp1() As String
Dim aryTmp2() As String
Dim i As Integer
Dim strOut As String
aryTmp1 = Split(a, vbCrLf)strOut = "["
strOut = strOut & UBound(aryTmp1) + 1
For i = LBound(aryTmp1) To UBound(aryTmp1)
    aryTmp2 = Split(aryTmp1(i), "  ")
    
    strOut = strOut & " " & aryTmp2(1)
Next
strOut = strOut & "]"
Debug.Print strOut
End Sub