请教：如何获取2进制文件的记录数?
有一个2进制文件，每条记录由换行符分割。
请问如何此文件的记录数?
[解决办法]
记录长度是固定的
RecLen = 记录长度 '回车也算上
IntFile = FreeFile()
Open "文件名 " For Random Shared As #IntFile Len = RecLen
RecCount = LOF(IntFile) / RecLen 'Reccount 记录总数
Close #IntFile
[解决办法]
如果记录不等长，可以计算换行符的数量,大致是这个样子：
Dim b() As Byte
Dim L as long
Open Fn For Binary As #fNum
L=LOF(fNum)
ReDim b(L - 1)
Get #fNum, , b
Close #fNum
Dim i as long
dim m as long
for i=0 to L-1
if b(i)=10 then m=m+1
next i
debug.print "记录数 " & m
[解决办法]
也可能是这样的情况:
你仅把回车符作为记录间隔符号,而不是每条记录的结尾,这样你最后一条记录就没有回车符,故而出现非整数.
