杭州交通信息网dnf异界任务colg:vb读文本,请教高手
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/02 03:06:16
我读一个文本文件,代码如下
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