[求助]我想用这种方法自动筛选主力合约 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → [求助]我想用这种方法自动筛选主力合约

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

共有7951人关注过本帖树形打印复制链接主题：[求助]我想用这种方法自动筛选主力合约

wattwei

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游侠帖子：574 积分：3167 威望：0 精华：0 注册：2009/10/10 11:13:01

Post By：2010/7/30 22:03:55 [显示全部帖子]

'枚举合约，将主力合约的代码和对应市场代码分别作为键和值存入字典容器，供后续操作调用
sub test()
   Dim marketName
   Set dominantContract=CreateObject("Scripting.Dictionary")
   marketName=Array("SQ","DQ","ZQ","ZJ")
   prefixStockNameOld=""
   c00" And suffixStockNameCur<"99" Then
               If prefixStockNameCur<>prefixStockNameOld Then
                   If contractLabel<>"" Then
                       dominantContract.Add contractLabel,marketName(j)
                   End If
                   prefixStockNameOld=prefixStockNameCur
                   contractLabel=reportData.Label
                   contractVol=reportData.Volume
               ElseIf reportData.Volume>contractVol then
                   contractLabel=reportData.Label
                   contractVol=reportData.Volume
               End If
           End If
       Next
   Next
   dominantContract.Add contractLabel,marketName(j-1)

   output=""
   labels=dominantContract.Keys
   markets=dominantContract.Items
   For i = 0 To dominantContract.Count-1
       output=output+labels(i)+vbTab+markets(i)+vbCrLf
   Next
   MsgBox output

end sub

版主评定：

好评，获得10个金币奖励

(理由：奖励)

wattwei

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游侠帖子：574 积分：3167 威望：0 精华：0 注册：2009/10/10 11:13:01

Post By：2010/8/1 14:48:30 [显示全部帖子]

不太会贴代码啊，贴上来的代码掉了一截，我试试再贴上来

[此贴子已经被作者于2010-8-1 14:52:54编辑过]

wattwei

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游侠帖子：574 积分：3167 威望：0 精华：0 注册：2009/10/10 11:13:01

Post By：2010/8/1 14:57:24 [显示全部帖子]

'枚举合约，将主力合约的代码和对应市场代码分别作为键和值存入字典容器，供后续操作调用
sub test()
        Dim marketName
        Set dominantContract=CreateObject("Scripting.Dictionary")
        marketName=Array("SQ","DQ","ZQ","ZJ")
        prefixStockNameOld=""
        c00" And suffixStockNameCur < "99" Then
                                If prefixStockNameCur <> prefixStockNameOld Then
                                        If contractLabel <> "" Then
                                                dominantContract.Add contractLabel,marketName(j)
                                        End If
                                        prefixStockNameOld=prefixStockNameCur
                                        contractLabel=reportData.Label
                                        contractVol=reportData.Volume
                                ElseIf reportData.Volume > contractVol then
                                        contractLabel=reportData.Label
                                        contractVol=reportData.Volume
                                End If
                        End If
                Next
        Next
        dominantContract.Add contractLabel,marketName(j-1)
        output=""
        labels=dominantContract.Keys
        markets=dominantContract.Items
        For i = 0 To dominantContract.Count-1
                output=output+labels(i)+vbTab+markets(i)+vbCrLf
        Next
        MsgBox output

end sub

[此贴子已经被作者于2010-8-1 15:21:28编辑过]

wattwei

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游侠帖子：574 积分：3167 威望：0 精华：0 注册：2009/10/10 11:13:01

Post By：2010/8/1 15:29:14 [显示全部帖子]

'枚举合约，将主力合约的代码和对应市场代码分别作为键和值存入字典容器，供后续操作调用
sub test()
        Dim marketName
        Set dominantContract=CreateObject("Scripting.Dictionary")
        marketName=Array("SQ","DQ","ZQ","ZJ")
        prefixStockNameOld=""
        c00" And suffixStockNameCur < "99" Then
                                If prefixStockNameCur <> prefixStockNameOld Then
                                        If contractLabel <> "" Then
                                                dominantContract.Add contractLabel,marketName(j)
                                        End If
                                        prefixStockNameOld=prefixStockNameCur
                                        contractLabel=reportData.Label
                                        contractVol=reportData.Volume
                                ElseIf reportData.Volume > contractVol then
                                        contractLabel=reportData.Label
                                        contractVol=reportData.Volume
                                End If
                        End If
                Next
        Next
        dominantContract.Add contractLabel,marketName(j-1)
        output=""
        labels=dominantContract.Keys
        markets=dominantContract.Items
        For i = 0 To dominantContract.Count-1
                output=output+labels(i)+vbTab+markets(i)+vbCrLf
        Next
        MsgBox output

end sub