vb程序打开超大txt文件(10M)
vb程序打开超大txt文件(10M)
点击按钮,文本框中显示文字
Command1.Click
Text1.Text = ""
Open XXXXXXXXXXXXXX/XXXXX.txt For Input As #1
Do While Not EOF(1)
Line Input #1, st
Text1.Text = Text1.Text st vbCrLf
Loop
Close #1
End Sub
在打开较大文件时,速度很慢,而且经常没有响应
还有,怎样在打开的过程中显示部分文字(现在只有完全打开以后才能显示)
怎样处理??
10M的东西, 放到记忆去运算, 是不成的。
应用资料库。
解决方法
第6行: text1.text=text1.text st vbCrlf
改为:text1.seltext=st vbCrlf
试一下,应当可以边打开边显示.