如何直接搜索二进制文件的文件内容

存放二进制文件的数据要使用字节型数组,不能是字符型数组： Dim DAT() As Byte Dim FileSize As Long '文件长度 FileSize = FileLen(文件名) '获取文件长度 ReDim DAT(FileSize - 1) As Byte Open 文件名 For Binary As #1 Get #1, , DAT Close

一边读取一边查找。
A1---A8
先读取8个字节放到双向队列，如果找到返回
否则while直到文件结束
每次读取4个，把A1----A8左移4位好把新读取的4字节放进去，再查找，找到返回，找不到继续while
退出while，那就真的没有。

当然，这个算法只是简单的描述了一下，你完全可以自己再优化。