怎么读TXT文件的数据到数组中啊,急,谢谢帮忙
txt文件数据为
1 2 3 4 5 9 8
4 5 8 6 5 5 8
4 5 8 6 9 6 7
.............
想读到数组arr中,放入Access表中,有什么好方法吗,菜鸟求教
[解决办法]
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
