二进制文件查找数据求助

jonn

二进制文件查找数据求助：
源文件是一个二进制的test.DAT文件,数据规律是8列是一个数据组，
前四列是日期，具有唯一性不重复，后面四列是数据；
日期可以通过转码获取到相应的二进制代码或16进制代码，见A2 和A4  或者A6和A8;

如何通过vba实现十六进制或二进制来查找A4十六进制码(80D37860)后的四列代码(BACC0542)；
或者 A8单元格十六进制码(80BB6360)后的四列代码(ADFDE041)；
请各位excel大侠们帮忙，谢谢！
数据源文件dat及ecel文件请下载附件

二进制.rar (69.72 KB, 下载次数: 14)

2021-5-5 14:28 上传

点击文件名下载附件

一把小刀闯天下

'如果出现弹出框就说明已经找到了，会出现一个偏移地址，然后手工对照一下是否正确，，，

Option Explicit

Sub test()
  Dim data As Long, s, t, n As Long, filename As String, i As Long
  filename = ThisWorkbook.Path & "\test.dat"
  If Dir(filename) = vbNullString Then MsgBox filename: Exit Sub
  s = "80BB6360"
  For i = 7 To 1 Step -2
    t = t & Mid(s, i, 2)
  Next
  n = Val("&H" & t)
  Open filename For Binary Access Read As #1
  For i = 1 To FileLen(filename) Step 8
    Get #1, i, data
    If n = data Then MsgBox "offset:" & Hex(i) & vbNewLine & Hex(data): Exit For
  Next
  Close #1
End Sub

jonn

一把小刀闯天下 发表于 2021-5-5 15:42
'如果出现弹出框就说明已经找到了，会出现一个偏移地址，然后手工对照一下是否正确，，，

Option Explic ...

回复神速，谢谢。
晚上研究一下代码

jonn

一把小刀闯天下 发表于 2021-5-5 15:42
'如果出现弹出框就说明已经找到了，会出现一个偏移地址，然后手工对照一下是否正确，，，

Option Explic ...

是已经找到 日期位置，但如何输出 相应日期位置的后四列代码呢？  
我对二进制文件 了解甚少。烦请大哥能再优化一下代码，
最终要输出后面四列的代码，“41E0FDAD”  或者28.12的数值。
再次感谢


我原先的想法是通过日期代码 用split来找位置，但在二进制文件里面显然是不行的。

jonn

成功解决。谢谢一把小刀闯天下。

一把小刀闯天下

jonn 发表于 2021-5-5 17:20
是已经找到 日期位置，但如何输出 相应日期位置的后四列代码呢？  
我对二进制文件 了解甚少。烦请大哥 ...

    If n = data Then MsgBox "offset:" & Hex(i) & vbNewLine & Hex(data): Exit For 替换为：

'--------------------------

    If n = data Then
      Get #1, i + 4, n
      MsgBox "offset:" & Hex(i) & vbNewLine & Hex(data) & vbNewLine & Hex(n)
      Exit For
    End If

jonn

完美。比我后来改的那一段代码 更简洁

zpy2

一把小刀闯天下 发表于 2021-5-5 15:42
'如果出现弹出框就说明已经找到了，会出现一个偏移地址，然后手工对照一下是否正确，，，

Option Explic ...

80bb6360
是不是unix时间戳
2021-03-31 08:00:00

一把小刀闯天下

zpy2 发表于 2021-5-6 14:27
80bb6360
是不是unix时间戳
2021-03-31 08:00:00

'应该是的吧
'日期一般按long类型存储，但转换成10进制看着也不像，不过价格是float类型的这可以确定。

'用Unix时间戳转换了一下，8:00:00也不是交易时间，怎么会有数据出来的，估计不是我们这市场的吧，，，

-------------------------

一把小刀闯天下

zpy2 发表于 2021-5-6 14:27
80bb6360
是不是unix时间戳
2021-03-31 08:00:00

刚看了一下他这数据对应表，可以确定是Unix时间戳

是日线数据并非是实时数据，前面没有注意。所以日线数据刷新时时间定在08:00:00是正常的，如果定在交易时间倒是不正常，估计是一种约定，，，