UC知道关于VB读取并翻译十六进制文件的问题(急)
来源：百度知道 编辑：UC知道 时间：2024/06/30 17:53:50
本人有许多十六进制的文件,用编辑器打开显示如下(截取其中一小段):
81 01 0d 34 21 11 09 45 ……
00 00 00 00 00 00 00 00 ……
81 0A 34 23 11 34 58 22 ……
00 00 00 00 00 00 00 00 ……
其中“8101”是一个事件代码，代表的意思是“试验开始”，“810A”则代表“试验结束”，这个文件中还有大量的这样的代码，如果想要用VB去读取这个文件，并且能够查找到是否含有指定的事件代码（如查找“8101”没有查到就显示“没有试验”），如果用VB编写这段代码，请各位高手尽快给予答复！
谢谢VB妮可,不过我不太清楚用二进制方式进行读取后怎样进行逐个读取的方法,你能不能写一些代码供我参考一下,我对VB的了解不是太多,正在学习当中,还希望你能够给予一定的指教!
81 01 0d 34 21 11 09 45 ……
00 00 00 00 00 00 00 00 ……
81 0A 34 23 11 34 58 22 ……
00 00 00 00 00 00 00 00 ……
其中“8101”是一个事件代码，代表的意思是“试验开始”，“810A”则代表“试验结束”，这个文件中还有大量的这样的代码，如果想要用VB去读取这个文件，并且能够查找到是否含有指定的事件代码（如查找“8101”没有查到就显示“没有试验”），如果用VB编写这段代码，请各位高手尽快给予答复！
谢谢VB妮可,不过我不太清楚用二进制方式进行读取后怎样进行逐个读取的方法,你能不能写一些代码供我参考一下,我对VB的了解不是太多,正在学习当中,还希望你能够给予一定的指教!
dim lngFileLen as long,i as long , bytB() as byte
lngfilelen=filelen("十六进制的文件")
redim bytb(1 to lngfilelen) as byte
open "十六进制的文件" for binary as 1
get 1,,bytb()
close
for i= 1 to lngfilelen-1
if bytb(i)=&H81 then
if bytb(i+1)=&h1 then print "找到一个""试验开始"""
end if
next i
用二进制方式读取呀.. 然后逐一检验其字节转换为16进制后,是否为810A呀..