Question

Visual Basic读取txt文件问题

Private Sub Command1_Click()
Open App.Path & "\金钱.txt" For Output As #2
Print #2, Form3.balance.Caption
Close #2
DoEvents

Private Sub Command2_Click()
Open App.Path & "\金钱.txt" For Input As #500
Dim fuzhu1
Dim Lines2
Dim NextLine2
Do While Not EOF(500)
On Error Resume Next
Line Input #500, NextLine
Lines2 = Lines2 & NextLine2 & Chr(13) & Chr(10)
Loop
Close #500
fuzhu1 = Lines2
balance.Caption = fuzhu1
MsgBox "读取成功！"
End Sub
我的代码不能在balance上显示出来，这是怎么回事？？？求高手！
已经自己解决了，谢谢！

Answer 1

VB6读取TXT文本文件10万行点我猜更代码问题

文本文件读数据程断用控件显示读数据内容慢读程显示任何数据则快倍

频繁用DoEvents降低读取文件内容效率频繁释放CPU间导致速度减慢

我建议读入没任何输提示情况完全文件内容读入数组数据放内存再数组数据操作快操作完再储存文件即