我想用FSO组件读取TXT文件中的数据到一个二维数组里,并显示在文本框中
可是调不出来啊,大家帮我看看呗,万分感谢
Public fso As New FileSystemObject
Public ts As TextStream Private Sub Form1_load()
Dim song(0 To 3, 0 To 3) As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(App.Path + "\个人专辑.txt", ForAppending)
Dim i As Integer
j = 0
Do While Not ts.AtEndOfStream
j = j + 1
For i = 0 To 3
song(j, i) = ts.ReadLine
Next i
Loop
ts.Close
Dim n As Integer
n = 1
Public Sub displaydata(n)
Dim i As Integer
For i = 0 To 3
Form1.Text1(i).Text = song(n, i)
Next
End Sub
可是调不出来啊,大家帮我看看呗,万分感谢
Public fso As New FileSystemObject
Public ts As TextStream Private Sub Form1_load()
Dim song(0 To 3, 0 To 3) As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(App.Path + "\个人专辑.txt", ForAppending)
Dim i As Integer
j = 0
Do While Not ts.AtEndOfStream
j = j + 1
For i = 0 To 3
song(j, i) = ts.ReadLine
Next i
Loop
ts.Close
Dim n As Integer
n = 1
Public Sub displaydata(n)
Dim i As Integer
For i = 0 To 3
Form1.Text1(i).Text = song(n, i)
Next
End Sub
1 ForAppending)成了追加了,而你的目的是打开
2 j = j + 1应该放到Next i后面
3 Form1.Text1(i).Text = song(n, i) 也不对