怎么查找到二进制文件中的一个“非0”的字节

怎么实现，在HEX编辑器查找中，得到一个字节，该字节的值非0。
"if curren_byte=0 then next_byte"
一个一个字节比对，效率太低了，100M的文件，如果所有字节都是0，最后一个字节非0，那么要循环100000000次。
有没更好的方法？

学过排序没？

既然你数据没有排序，自然要循环100000000次，不然怎么找到那个非0字节？

逐个比对是必须的。我没说清楚，我指的是那种方法执行效率低。

Dim a$, b$, i%
a = String(10000000, 0)
b = String(10000000, 0)
For i = 1 To 10
    If a = b Then Debug.Print i
Next

比如这样的操作就能瞬间比对完100000000个字节，它用汇编当然快
我是说，有没直接的命令或者API来完成查找任务。

好了，基本解决了