有没有办法提取dat，谢谢gwjkkkkk老师！

lhj323323

老师：


请问有没有办法提取这个dat文件

AAA.rar (755 Bytes, 下载次数: 19)

2024-10-19 09:59 上传

点击文件名下载附件

老师如有空，请帮忙看看，先谢谢了。

格式方面，我现在去找实例，但不一定能找到。
也是与股票有关的。

gwjkkkkk

Option Explicit
Type myData
    iData1 As Long
    iData2 As Long
    iData3 As Long
End Type
Sub test()
    Dim strFileName$, strPath$, ar(), r&, vTemp As myData
   
    strPath = ThisWorkbook.Path & "\"
    strFileName = strPath & "AAA.Dat"
   
    Open strFileName For Binary As #1
    ReDim ar(1 To 10 ^ 6, 1 To 6)
    Do While Not EOF(1)
        Get #1, , vTemp
        r = r + 1
        ar(r, 1) = vTemp.iData1
        ar(r, 2) = vTemp.iData2
        ar(r, 3) = vTemp.iData3
    Loop
    Close #1
   
    [A1].Resize(r, 6) = ar
End Sub

gwjkkkkk

也不知道对不对？

lhj323323

gwjkkkkk 发表于 2024-10-19 12:16
也不知道对不对？

多谢老师！

前进一大步！
我找到数据源的格式了
我用3楼的源码，读取如下更新后的AAA.dat
AAA.rar (193 Bytes, 下载次数: 15)

2024-10-19 13:52 上传

点击文件名下载附件

（结构不变，仅是内容有减少）

目前数据，仅包含两组，分别是
000032
300059
应该是对应的C列

同时，
数值对应的是B列的红色区域的值

lhj323323

gwjkkkkk 发表于 2024-10-19 12:16
也不知道对不对？

老师：
你打开的界面，里面的内容，是不是这样的？

ykcbf1100

lhj323323 发表于 2024-10-20 07:12
老师：
你打开的界面，里面的内容，是不是这样的？

没见到这样的数据。

perfect131

lhj323323 发表于 2024-10-20 07:12
老师：
你打开的界面，里面的内容，是不是这样的？

我看到了 你需要按照规律提取字节再转换

lhj323323

ykcbf1100 发表于 2024-10-20 08:50
没见到这样的数据。

我把另外三项补充进来
        ar(r, 4) = vTemp.iData4 '日期
        ar(r, 5) = vTemp.iData5 '输出值+1
        ar(r, 6) = vTemp.iData6

发现这6个输出，是两组差不多相同的数据，如下


只能说明一点
即能提了的数据，种类是够了，不存在漏提取的现象
那么第3个输出，就肯定是指向股票代码

正如7楼的perfect131老师所说
第3个输出，转化为股票代码
需要按照【规律】提取字节再转换

之前，曾有cidanji老师，帮我写过提取DAT文档的语句，但那个DAT对应的股票代码，是与DAT的文件名一致
所以，就没有面对这种【需要转化】的问题。

lhj323323

perfect131 发表于 2024-10-20 09:25
我看到了 你需要按照规律提取字节再转换

的确，我今天一早，就到处寻找这种结构的介绍
但不好找
也把cidanji老师历次的回复也看一遍，仍无果。

gwjkkkkk

lhj323323 发表于 2024-10-20 07:12
老师：
你打开的界面，里面的内容，是不是这样的？

你这个二进制文件，我是简单猜了一下，写了一个，不知道数据结构估计有些难度？