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

VB技巧问答10000例 VB技巧问答10000例

关 键 是 一 次 读 写 尽 可 能 多 的 字 节 ， 而 不 是 一 次 读 一 个 字 节 。 我 用 下 面 两 种 方 法 读 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 
<END>