求助VB 读写文件！！

来源：百度知道 编辑：UC知道 时间：2024/06/24 23:10:51
我的窗体上有30个Textbox控件数组，把1个文本文件里的数据写入到Textbox中，要求第一个控件显示第一行数据，第二个控件显示第二行数据，第三个控件显示第三行数据。。。。。。直到第三十个控件显示第三十行数据。
有什么办法能够实现吗？先谢谢大家了！！

'textbox的index从0开始

Private Sub Command1_Click()
Dim i As Integer, fname As String
fname = "d:\t.txt"
Open fname For Input As #1
Do While Not EOF(1)
Line Input #1, tmpstr
Text1(i) = tmpstr
i = i + 1
If i > 29 Then MsgBox "文本框不够了！": Exit Do
Loop
Close #1
End Sub

Dim FileLines As Long '文件行数&textbox's index
Dim FileData As String '每行数据
Dim TFile As String '文件路径
TFile = "D:\a.txt"
Open TFile For Input As #1
If LOF(1) < 1 Then
Close
MsgBox "文件为空！", vbOKOnly, "提示！"
Exit Sub '退出过程
End If
Do While Not EOF(1) '循环到文件尾
Line Input #1, FileData '读入一行
If FileLines < 30 Then 'textbox控件数组只有30个元素
Text1(FileLines) = FileData '读入的数据赋值到textbox
End If
FileLines = Fil