Question

vb如何打开1000个txt文件 然后按下按钮按照顺序逐行显示在text1中

我有1000个txt文件，分别为1.txt 2.txt 3.txt------1000.txt
每个文本都很多行，按下command1 将这些文件线加载到内存中 按下command2 将这些文件通过timer1按照顺序每个显示一遍（要逐行，每个txt显示是都要清空一次）

Answer 1

加载到内存这一步就没必要了，这样做并不会比直接读取文件并立刻显示快，而且一次性读取这么多数据到内存，很容易造成系统崩溃。

Private Sub Command2_Click()
Timer1.Interval = 500
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Static o As Boolean, f As Long
Dim s As String, t As String
If Not o Then
Close
f = f + 1
t = App.Path & "\" & f & ".txt"
If f > 1000 Then
Timer1.Enabled = False
MsgBox "全部读取完毕！"
f = 0
Exit Sub
ElseIf Dir(t) = "" Then
If MsgBox(t & "未找到！要退出吗？", vbOKCancel) = vbOK Then Timer1.Enabled = False
Exit Sub
End If
Open t For Input As #1
Text1.Text = ""
End If
Line Input #1, s
Text1.Text = Text1.Text & s & vbCrLf
o = EOF(1)
End Sub

Answer 2

'假设你的内容是在Text1显示
dim s as string
private sub command1_click()
for i=1 to 1000
open app.path & "\" & cstr(i) & ".txt" for input as #i
next i
end sub 'Command1_click 打开1000个文件

private sub command2_click()
Timer1.Enabled=True
for i=1 to 1000
do while not eof(i)
lineinput i,s
loop
next i
end sub 'Command2设置Timer1计时器有效

private sub timer1_timer()
text1.text=""
text1.text=s
end sub