请教脚本程序
FILENO = FreeFileFILENM = user.FILENAME.CurrentValue
L = 0
'***************************************************************
'Open file
'***************************************************************
Open FILENM For Random As FILENO Len = Len(Hourlyrptrec(0)).. “.请问Hourlyrptrec(0）中括号里面的参数是什么意思。Hourlyrptrec是一个数组。”
CURPOS = LOF(FILENO) / Len(Hourlyrptrec(0))
For I = 0 To CURPOS
ReDim Preserve Hourlyrptrec(I) “.请问Hourlyrptrec(i）中括号里面的参数是什么意思。Hourlyrptrec是一个数组。”
Get FILENO, I + 1, Hourlyrptrec(I)
Next
Close FILENO
'***************************************************************
'Resize the array dimension to max
'***************************************************************
ReDim MYARRAY(9, UBound(Hourlyrptrec) + 28) "这是什么意思"
'a
'***************************************************************
'Check the last date
'***************************************************************
For I = 1 To UBound(Hourlyrptrec)
MYARRAY(0, I) = Format(Hourlyrptrec(I - 1).Rptdtl.Rpt_Time, "Hh:00")
L = Mid(Format(Hourlyrptrec(I - 1).Rptdtl.Rpt_Time, "Hh:00"), 1, 2)
Chkdate = Format(FileDateTime(user.FILENAME.CurrentValue), "DD-MMM-YYYY") 'use the latest date of the report
Next --------------------编程问答-------------------- 怎么没有人回答呀。 --------------------编程问答-------------------- Hourlyrptrec(0）就是数组里的第一个数啊， i 就是第I个数啦，
ReDim Preserve Hourlyrptrec(I) 是保留原有数据的情况下增加其最末维的大小
ReDim MYARRAY(9, UBound(Hourlyrptrec) + 28) 就是重分配数组，使他的二维下标为Hourlyrptrec的下标+28
整个程序好像就是读取某个文件的数据，然后按照一定的格式存到MYARRAY数组里面去，估计这个数组以后还要添加其他东西进去 --------------------编程问答-------------------- TO SOSben:
你理解得非常对，就是在不断的往文件里写数据，然后在从文件中读出来。其实最主要的是下面这个代码我没有理解。Open FILENM For Random As FILENO Len = Len(Hourlyrptrec(0)) 主要是LEN这个参数到底是什么意思呀。是文件中一条记录的大小吗？ --------------------编程问答-------------------- Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]
reclength 可选。小于或等于 32，767（字节）的一个数。对于用随机访问方式打开的文件，该值就是记录长度。对于顺序文件，该值就是缓冲字符数。
Type Student
No As Integer
Name As String * 20
age As Integer
End Type
Len子句用于设置记录长度,长度由参数Reclength指定.Reclength的值必须大于0,而且必须与定义的记录结构的长度一致.计算记录长度的方法是将记录结构中每个元素的长度相加.例如前面声明的Student的长度应该是2+20+2=24字节.
打开一个记录类型为Student 的随机文件的方法是:
Open "c:/Student.txt " For Random As #1 Len = 25
补充：VB , 基础类
