VB通过二进制收索替换

使用二进制模式打开二个文件，一种为源文件，一个为临时文件，建议放到一个目录下。

使用循环一个字节一个字节的读。
每读到一个字节，判断当前值日否等于 02 。
if tmpbyte=&H02 then
   计数=计数+1
   if 计数=3 then
       写入 &H03
       写入 &H05
       写入 &H07
       计数＝0
    end if
else
   for i=1 to 计数
      写入 &H02
   next i
      计数＝0
      写入 tmpbyte
end if

大体上就是这样的流程。
如果不是连续相同的02，那么比较用的数据放到数组里，
然后比较时，根据计数来调用下标进行比较。

查找可以使用instr查找byte数组。不需要手写for查找。文件不大考虑一次读进内存。