热心网友
回答时间:2024-09-05 14:06
Do Until EOF(1) 循环直到文件指针指向末尾为止
Line Input #1, Nline '读入一行内容,并赋值给NLine变量
Text1.Text = Text1.Text + Nline + Chr(13) + Chr(10) '将读取到的值追回到 Text文本框中
Loop
功能是将打开的1号文件的内容读入Text1文本框中
提示: 在循环中,最好不要对对象的属性进行引用
正确的做法是:
Do Until EOF(1)
Line Input #1, Nline
S = S+ Nline + Chr(13) + Chr(10)
Loop
Text1.text=S
这样写的程序的效率是你上面的好多倍,不相信的话,你可以找一个行数非常多的文本文件来试验,最好有500行+
收起