黑爵士 第一季 迅雷:怎么一行一行读取文本内容,

来源:百度文库 编辑:高考问答 时间:2024/05/07 14:19:52
怎么一行一行读取文本内容,
建一个Button,点一次,读取一行,再点一次读取下一行 ,谢谢了,最好有源码

public Si as long
public sub button1_click() 参数我就不写了
if Si=0 then open 文件路径 for input as #1
input #1,ss
Si=1
end sub
在退出的时候加上 close #1

fn=freefile
Open "filename" for input AS #Fn
while not eof(fn)
Line Input #Fn,ss
'ss中为一行内容,任你处置
wend
close #fn

整个While循环可能以行方式遍历文件所有行.
FreeFile返回空闲文件号,当你开多个文件可以不必自己指定文件号,由系统自动给你分一个.免于出错.

这其实是QBASIC时代的内容了.