定义一个Byte的数组,把文件直接读进数组再遍历这个数组换成16进制就可以了. 我这儿没有VB,你可以自己试一下. Open FileName For Binary As #1 ReDim Preserve MyArray(LenB(#1)) Get #1, , MyArray Close #1
好像copymemory可以实现类似指针的操作,msdn上找找看
大致这样:dim buff() as long dim filename as string filename="你的文件路径" dim i as long i=filelen(filename) redim buff(i-1) open filename for binary as #1 get #1,,buff close #1 ' dim s as string,temps as string for i=0 to ubound(buff) temps="00"+hex(buff(i)) temps=right(temps,2) s=s+temps nextdebug.print s
我这儿没有VB,你可以自己试一下.
Open FileName For Binary As #1
ReDim Preserve MyArray(LenB(#1))
Get #1, , MyArray
Close #1
dim filename as string
filename="你的文件路径"
dim i as long
i=filelen(filename)
redim buff(i-1)
open filename for binary as #1
get #1,,buff
close #1
'
dim s as string,temps as string
for i=0 to ubound(buff)
temps="00"+hex(buff(i))
temps=right(temps,2)
s=s+temps
nextdebug.print s