能否提高读写二进制文件的速度

作者:admin 日期:2008-04-02

字体大小: 小中大

问：
vb6
    win98
    你好：
    如果定义BYTE变量读写二进制文件似乎速度太慢，请问快一点的算法。谢谢

回答：
    关键是一次读写尽可能多的字节，而不是一次读一个字节。我用下面两种方法读220K的文件。如果逐字节读需要9秒，而一次读入的话，不到一秒。
     Dim b As Byte, i
     ' 一次一个字节
     Print Time
     Open "c:\io.sys" For Binary As #1
     For i = 1 To LOF(1)
     Get #1, , b
     Next
     Print Time
     Close 1

     ' 一次多个字节
     Open "c:\io.sys" For Binary As #1
     ReDim arrb(LOF(1)) As Byte
     Get #1, , arrb
     Close 1