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


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

   

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

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

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


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

实在是不会上传，只好存到网盘上去 ，有效期不长，给个链接

http://www.brsbox.com/filebox/down/fc/a29b110bff7f2decc685650a9121bc4d

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


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

'枚举合约，将主力合约的代码和对应市场代码分别作为键和值存入字典容器，供后续操作调用
 

以下内容为程序代码:

1 Sub frmTest_CommandButton4_Click()
2     Dim marketName
3     Set dominantContract=CreateObject("Scripting.Dictionary")
4     marketName=Array("SQ","DQ","ZQ","ZJ")
5     prefixStockNameOld=""
6     c"
8     contractVol=0
9         
10     For j=0 To UBound(marketName)
11         n=marketData.GetReportCount(marketName(j))
12         For i=0 To n-1
13             Set reportData=marketdata.GetReportDataByIndex(marketName(j),i)
14             prefixStockNameCur=left(reportData.StockName,2)
15             suffixStockNameCur=right(reportData.StockName,2)
16             If suffixStockNameCur＞="00" And suffixStockNameCur＜"99" And reportData.Volume＞0 Then
17                 If prefixStockNameCur＜＞prefixStockNameOld Then
18                     If contractLabel＜＞"" Then
19                         dominantContract.Add contractLabel,contractMarket
20                     End If
21                     prefixStockNameOld=prefixStockNameCur
22                     contractLabel=reportData.Label
23                     contractMarket=marketName(j)
24                     contractVol=reportData.Volume
25                 ElseIf reportData.Volume＞contractVol then
26                     contractLabel=reportData.Label
27                     contractVol=reportData.Volume
28                 End If
29             End If
30         Next     
31     Next
32     dominantContract.Add contractLabel,contractMarket
33     
34     output="Total:"
35     labels=dominantContract.Keys
36     markets=dominantContract.Items
37     output=output&dominantContract.Count&vbCrLf
38     For i = 0 To dominantContract.Count-1
39         output=output&labels(i)&vbTab&markets(i)&vbCrLf
40     Next
41     MsgBox output
42 End Sub

[此贴子已经被作者于2010-8-11 13:46:21编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wattwei
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 第六行错了，貌似掉了两行
 回到顶部
帅哥哟，离线，有人找我吗？
admin
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

你再发代码时，试试只用代码模式编辑看看
 回到顶部
帅哥哟，离线，有人找我吗？
wattwei
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 搞不清什么原因，我试了好多遍，都不行。我后来找了个一样引擎的网站，贴上去预览是OK的。但是内容和那个网站无关我没有最终发。怎么不把预览功能打开呀

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


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

应该的论坛的安全机制起了作用，请在发贴时，选择上方的一排按钮中的带个小A字的那个，然后点击在那里面插入代码

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