利用飞狐交易师,通达信打造自己的交易系统 第一节 怎么获得通达信的股票代码和股票名称

说明

在量化计算中,经常需要取得类似最新的股票代码表等相关的股票信息。虽然可以网络上可以很容易获得这些信息,但当处于离线或网络状况不佳状态时,我们可以从诸如通达信,同花顺,大智慧终端之类的本地数据中获得此类信息。
 

(一) 读取股票代码

  • 数据文件
    一般通达信的股票代码文件,位于"通达信软件的安装目录/T0002/hq_cache/"下。由 shm.tnf 沪市股票信息和 szm.tnf深市股票信息 两个文件。其中包括了在相应市场上的所有交易产品的代码和名称(股票AB,指数,基金等)。每个文件中的信息条目超过2万。

  • 文件格式
    数据文件是二进制字节格式,由文件头和数据体构成。

-- 文件头:包含 50 个Byte,其中
[ 0:40] -> 40个Byte,IPv4地址,记录软件最后登陆的行情主站IP地址,不足的字节由"\x00"填充,以"\x01'"结束;
[40:42] -> 2个Byte,端口号;
[42:46] -> 4个Byte,日期(YYYYMMDD);
[46:50] -> 4个Byte,时间(Hmmss);

-- 数据体:每个股票信息记录在 314 个Byte的数据块内,其中
[ 0: 6] -> 6个Byte,股票代码;
[23:41] -> 18个Byte,股票名称,不足的字节由"\x00"填充;
[276:280] -> 4个Byte,昨收盘价;
[285:293] -> 4个Byte,股票名称拼音字头

 上图是程序界面

Private Sub Command1_Click()
    On Error GoTo zyp
    Dim hFile As Long
    Dim temp(100) As Byte
    Dim dddtemp As SECURITY_ATTRIBUTES
    Dim dwRet, count, ngg, leibie As Integer
    
    For ii = 0 To 1
        tdx_mc = Text1(ii).Text
    hFile = CreateFile(tdx_mc, GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, dddtemp, OPEN_EXISTING, 0, 0)
    If hFile = -1 Then
        MsgBox "打开文件失败"
    End If
    '转到正式文件位置
    SetFilePointer hFile, 50, 0, 0
    '读取个数
    ReadFile hFile, temp(0), 2, dwRet, 0
    '最终的结构体,储存所有信息的
    'Dim bk As WENJIAN
    'wj.nBanKuai = CInt(temp(0)) + CInt(temp(1)) * 256
    'count = wj.nBanKuai
    '定义动态数组
    'ReDim wj.bBanKuai(count) As BANKUAI
    '循环读取板块
    List1.Clear
    cou = FileLen(tdx_mc) \ 314
    Dim bk As BANKUAI
    If InStr(tdx_mc, "shm") > 0 Then ibeg = 19000
    If InStr(tdx_mc, "szm") > 0 Then ibeg = 500
    For I = 0 To cou     '读取板块名
        Dim aa(6) As Byte
        ReadFile hFile, aa(0), 7, dwRet, 0
        bk.sDm = ByteToStr(aa)
        
        SetFilePointer hFile, 50 + 23 + 314 * (I), 0, 0
        ReadFile hFile, temp(0), 18, dwRet, 0
        bk.sMc = ByteToStr(temp)
        Debug.Print I & vbTab & bk.sDm & vbTab & bk.sMc
        SetFilePointer hFile, 50 + 314 * (I + 1), 0, 0
        If Left(bk.sDm, 2) = "30" Or Left(bk.sDm, 2) = "00" Then
           List1.AddItem I & vbTab & bk.sDm & vbTab & bk.sMc
        End If


    Next
    CloseHandle hFile
    Next ii
    'Text1.Text = Text1.Text + "读取完成"
   '显示在界面上
zyp:
    If Err.Number <> 0 Then MsgBox Err.Description
End Sub
Private Sub Command2_Click()
    Me.CommonDialog1.InitDir = "D:\tdx"
    Me.CommonDialog1.FileName = ""
    Me.CommonDialog1.Filter = "txt (*.tnf)|*.tnf|All Files(*.*)|*.*"
    Me.CommonDialog1.ShowOpen
    If CommonDialog1.FileName <> " " Then
        Text1(0) = Me.CommonDialog1.FileName
    End If
    
End Sub

Private Sub Command3_Click()
    Me.CommonDialog1.InitDir = "D:\tdx"
    Me.CommonDialog1.FileName = ""
    Me.CommonDialog1.Filter = "txt (*.tnf)|*.tnf|All Files(*.*)|*.*"
    Me.CommonDialog1.ShowOpen
    If CommonDialog1.FileName <> " " Then
        Text1(1) = Me.CommonDialog1.FileName
    End If
End Sub

本文链接:https://my.lmcjl.com/post/12293.html

展开阅读全文

4 评论

留下您的评论.