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


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

   

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

  共有7677人关注过本帖树形打印复制链接

主题：[求助]我想用这种方法自动筛选主力合约
帅哥哟，离线，有人找我吗？
明心
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：274 积分：841 威望：0 精华：10 注册：2010/7/12 15:25:05 		[求助]我想用这种方法自动筛选主力合约  发帖心情 Post By：2010/7/30 14:59:15 [只看该作者]

请问如何在整个期货市场或者上海期货市场比较每个品种合约的持仓量

我想用这种方法自动筛选主力合约。

在VBA中如何实现。
 回到顶部
帅哥哟，离线，有人找我吗？
admin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：7302 积分：32559 威望：1000 精华：45 注册：2003/12/30 16:34:32 		  发帖心情 Post By：2010/7/30 18:20:02 [只看该作者]

'该示例从郑州市场筛选SR合约得最大持仓量做为主力合约

 Sub Test()
 
 Dim MaxCode
 Dim MaxVolume
 
 '得到市场所有品种
 Count = MarketData.GetReportCount("ZQ")
 
 For i = 0 To Count-1
  Set Report1 = MarketData.GetReportDataByIndex("ZQ",i)
  '只处理SR合约
  if Left(Report1.Label,2) = "SR" Then
   '只处理有效合约
   if Right(Report1.Label,2) >= "01" And Right(Report1.Label,2) <= "12" Then
    If Report1.Volume > MaxVolume Then
     MaxCode = Report1.Label
     MaxVolume = Report1.Volume
    End if
   end if
  End if
 Next
 
 '显示成交量最大得合约
 MsgBox MaxCode
 
End Sub

[此贴子已经被作者于2010-7-30 18:20:47编辑过]
[本帖被加为精华]
 回到顶部
帅哥哟，离线，有人找我吗？
wattwei
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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个金币奖励好评，获得10个金币奖励
(理由：奖励)
 回到顶部
帅哥哟，离线，有人找我吗？
明心
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：274 积分：841 威望：0 精华：10 注册：2010/7/12 15:25:05 		  发帖心情 Post By：2010/8/1 14:22:48 [只看该作者]

以下是引用wattwei在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

这个测试通不过。
 回到顶部
帅哥哟，离线，有人找我吗？
wattwei
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
wattwei
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：574 积分：3167 威望：0 精华：0 注册：2009/10/10 11:13:01 		  发帖心情 Post By：2010/8/1 15:37:39 [只看该作者]

还是不对，发送之前在哪里预览啊？找不到预览的按钮 图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
明心
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：274 积分：841 威望：0 精华：10 注册：2010/7/12 15:25:05 		  发帖心情 Post By：2010/8/1 15:39:01 [只看该作者]

直接发给我吧。

 
 回到顶部
帅哥哟，离线，有人找我吗？
明心
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：274 积分：841 威望：0 精华：10 注册：2010/7/12 15:25:05 		  发帖心情 Post By：2010/8/1 15:41:44 [只看该作者]

QQ80779898

 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.07813 秒, 5 次数据查询