小问题：如何将TXT文件中的数据读取到数组中？

Question

在TXT文件中有N行N列数据，如何将其每个数据依次读出到一个数组中，比如dddd()？
例如数据为
0.167 0.231 0.333 0.385 
0.500 0.538 0.667 0.692 
0.833 0.846 1.000 1.000 
请帮忙给出源代码提示，谢谢！

Answer 1

大致就是用Split分割再转换～Private Sub Form_Load()
    Text1.Text = "0.167 0.231 0.333 0.385" & vbCrLf & "0.500 0.538 0.667 0.692" & vbCrLf & "0.833 0.846 1.000 1.000"
End SubPrivate Sub Form_Click()
    Dim tS() As String
    Dim d() As Double
    Dim i As Integer, r As String
    
    tS = Split(Replace(Text1.Text, vbCrLf, " "))    ReDim d(UBound(tS)) As Double
    
    For i = 0 To UBound(tS)
        d(i) = Val(tS(i))
        
        r = r & d(i) & ","
    Next    Me.Caption = r
End Sub

Answer 2

Option ExplicitPrivate Sub Command1_Click()
    Dim S As String
    Dim Arr() As String
    Dim i As Long
    
    S = "0.167 0.231 0.333 0.385"
    S = S & vbCrLf & "0.500 0.538 0.667 0.692"
    S = S & vbCrLf & "0.833 0.846 1.000 1.000"
    Arr = Split(S, vbCrLf)
    S = ""
    For i = LBound(Arr) To UBound(Arr)
        S = S & Arr(i) & " "
    Next
    Erase Arr
    Arr = Split(S, " ")
    For i = LBound(Arr) To UBound(Arr)
        Debug.Print Arr(i)
    Next
End Sub

Answer 3

写个过程给你，挺简单的。Option Explicit
dim C() as SingleSub TxtToSingle()            '该过程将把文本控件中的字符串转化为数字后
dim A as String              '存入公有数组C中
dim L as long 
dim I as long
dim B() as String
A=Text1.Text                 '从文本控件中读入字符串
A=Replace(A,chr(13)," ")     '将换行符转化为空格
A=Replace(A, "  "," ")       '将多余空格删除
B=split(A," ")               '将字符串按空格分割到临时字符串数组
I=Ubound(B)-lBound(B)        '获得字符串数组的元素个数
ReDim C(I)                   '重新分配浮点型数组的数组长度
For L=0 to I                 
   C(L)=Val(B(L))            '将文本转化为数字 
Next
end Sub                      '过程结束