VB读取文本文件记录

最近想编写一个简单程序,读取程序目录下的文本文件如1.text,到文本框中,每按一次"下一次"按钮可以显示一条记录,网上有人说用循环+数组读取,我觉得这个方法不是很好,首先要将文本文件中的所有记录都读到内存里,如果记录较多很吃内存的,有没有办法可以不预先将所有记录读到内存吗?

补充：如何实现点一次下一次按钮就在文本框中显示下一条记录呢,高手在哪?

答案：一般文本文件大小不会超过一两百MB的吧？所以占的内存不会大到哪里去

Option Explicit

Dim iFileNumber As Integer '全局变量，保存打开的文件号

Private Sub Command1_Click()
Dim s As String
If Not EOF(iFileNumber) Then '如果读取位置不在文件末尾
    Line Input #iFileNumber, s '读取文件内一行文本到变量s
    Text1.Text = s
Else
    Text1.Text = "已经到了文件尾"
End If
End Sub

Private Sub Form_Load()
On Error GoTo Err '发生错误则跳转到Err标签位置
iFileNumber = FreeFile '获得一个没有被使用的文件号
Open App.Path & "\1.txt" For Input As iFileNumber '打开文件
Exit Sub
Err:
    MsgBox "打开文件错误：" & Err.Description '错误提示
End Sub

Private Sub Form_Unload(Cancel As Integer)
Close iFileNumber '关闭指定文件号的文件
End Sub

上一个：求vb上机题库
下一个：VB listbox连接数据库