中科新闻网闽清坂东浮尸新闻:vb读文本,请教高手
来源：百度文库 编辑：中科新闻网 时间：2024/05/21 17:18:28
我读一个文本文件,代码如下
Open "d:\tool_database.dat" For Input As #fn
Do While Not EOF(fn)
Line Input #fn, linestr
下一步我想判断行linestr中的值,如果第一个字母是#则读下一行
高手帮我写个代码,谢谢
Open "d:\tool_database.dat" For Input As #fn
Do While Not EOF(fn)
Line Input #fn, linestr
下一步我想判断行linestr中的值,如果第一个字母是#则读下一行
高手帮我写个代码,谢谢
dim data as string
Open "d:\tool_database.dat" For Input As #fn
Do While Not EOF(fn)
Line Input #fn, linestr
if linestr<>"#" then data=data+linestr
loop
close #1