求用VBA把通达信block_gn.dat转换到表格的代码

hlrong

通达信block_gn.dat为概念板块文件，文件结构为二进制，前384字节为表头，不用取，从第386字节开始，每个板块占用2813字节，其中前8字节为板块名称，后2800字节为包含股票代码，只需取这两部份，分别放在A、B两列，已完成率成部份代码，转换部份还没弄好，请予帮助。


文件用记事本打开样子如下：

block_gn.dat文件结构

要达到的要求如下：

结果

已完成部份代码，请补充中间转换部份
Filename = ThisWorkbook.Path & "\block_gn.dat"
Open Filename For Binary As #1  
FileLen = LOF(1) - 386
ReDim FileByte(FileLen) As Byte
Get #1, 387, FileByte() '第386位（0起头）开始板块信息，每块点2813字节，至3199字节开始第二板块
Close #1

ReDim FileStr(FileLen) As String
For i = 1 To FileLen
  j = i Mod 2813  '取每个板块记录数
-----------------------------------------
求中间转换部份
---------------------------------------
if j=0 then
         Sheet1.Cells(Int(i / 2813) + 2, 1) = bkname  '板块名称
        Sheet1.Cells(Int(i / 2813) + 2, 2) = gpcode   ’包含股票代码
        bkname = ""
        gpcode = ""
end if
Next i
  


谢谢。
楼主

hlrong

自己来吧，试过用chrB不行，后来用 StrConv(bkName, vbUnicode)解决。

金彦路容

hlrong 发表于 2020-12-2 11:29
自己来吧，试过用chrB不行，后来用 StrConv(bkName, vbUnicode)解决。

请教代码！！！大神！！！！！！！