来源:蜘蛛抓取(WebSpider)
时间:2015-05-27 17:38
标签:
桌面图标最下面一行
你的位置:
怎样判断是否已经到达文本文件的最后一行,已经没有下一行了?
20:14:47 |
来源: 按键精灵资源站
UserVar 变量_1=&C:\Documents and Settings\Administrator\桌面\新建 文本文档.txt& &文件路径&
Const ForReading = 1
Dim fso, f, gg(99)
Set fso = CreateObject(&Scripting.FileSystemObject&)
Set f = fso.OpenTextFile(变量_1, ForReading)
For i=0 To 99
& & ReadLineTextFile = f.ReadLine
& & gg(i)=ReadLineTextFile
& & TracePrint gg(i)
Set f=Nothing浏览器不支持嵌入式框架,或被配置为不显示嵌入式框架。