怎么读TXT文件的数据到数组中啊,急,谢谢帮忙

Question

txt文件数据为
1 2 3 4 5 9 8
4 5 8 6 5 5 8 
4 5 8 6 9 6 7
.............
想读到数组arr中,放入Access表中,有什么好方法吗,菜鸟求教

Answer 1

先把整个文件读入字串,然后用split分割字符串即可

Answer 2

读入一个二维数组中,刚学VB,能详细说一下吗,用FSO组件怎么实现啊
最好有代码,谢谢

Answer 3

Private Sub Command1_Click()
    Dim mFSO As New Scripting.FileSystemObject
    Dim TRM As Scripting.TextStream
    Dim mFile As String
    mFile = "D:\NN\test.txt" '换成你的文件路径
    Set TRM = mFSO.OpenTextFile(mFile)
    Dim s As String
    s = TRM.ReadAll
    Dim buff() As String
    buff = Split(s, vbCrLf)
    Dim n As Long, m As Long
    n = UBound(buff)
    Dim buff1()
    ReDim buff1(n)
    Dim i As Long
    For i = 0 To UBound(buff)
        buff1(i) = Split(buff(i), " ")
    Next
    Dim j As Long
    For i = 0 To n
        For j = 0 To UBound(buff1(i))
            'List1.AddItem buff1(i)(j)
            Debug.Print buff1(i)(j)
        Next
    Next
    Erase buff
    Erase buff1
    Set TRM = Nothing
    Set mFSO = Nothing
End Sub