首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

纳闷的脚本程序,大家帮忙呀

2013-01-06 
困惑的脚本程序,大家帮忙呀。FILENO FreeFile()‘什么意思?Open newfilename For Random As FILENO Len

困惑的脚本程序,大家帮忙呀。

FILENO = FreeFile()  ‘什么意思?
Open newfilename For Random As FILENO Len = Len(Hourlyrptrec)
    CURPOS = LOF(FILENO) / Len(Hourlyrptrec)
    Put FILENO, CURPOS + 1, Hourlyrptrec
Close FILENO
请问上面这段程序中,FILENO 是什么意思。(是一一个可以用的文件号吗?)
                    Len = Len(Hourlyrptrec) 是什么意思呀。是newfilename这个文件的大小吗?
                    如果系统中没有这个文件是不是自动创建这个文件呀。

谢谢帮忙。
[解决办法]
FILENO 是用来保存一个数字,就是文件号FreeFile取出的值

如果一个程序中打开了多个文件,文件号是不同的,用FREEFILE可以自动分配文件号,要是你指定#1,#2,容易重复

newfilename 是你指定的一个文件名
[解决办法]
刚才输入了半天,‘提交回复’后居然没有…… 
-_-!!!

FILENO = FreeFile()
' 返回一个你的程序中‘目前可用’的文件号,赋值给变量:FILENO
Open newfilename For Random As FILENO Len = Len(Hourlyrptrec)
' 以‘随机文件’的模式打开 newfilename ,记录长度为 Len(Hourlyrptrec)
' newfilename 必须是一个合法的文件名(可以用绝对路径)
' 如果 newfilename 不存在,用Random模式打开时它会被创建
' Hourlyrptrec 是自定义的数据类型,它是每一条‘记录’的结构
CURPOS = LOF(FILENO) / Len(Hourlyrptrec)
' 计算文件中已有的‘记录’条数
Put FILENO, CURPOS + 1, Hourlyrptrec
' 向文件中‘增加一条记录’
Close FILENO
' 关闭刚才打开的文件。

热点排行