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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → [原创]筛选主力合约的宏

   

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

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

主题：[原创]筛选主力合约的宏
帅哥哟，离线，有人找我吗？
z7c9
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小飞侠 帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56 		[原创]筛选主力合约的宏  发帖心情 Post By：2011/1/22 19:41:49 [显示全部帖子]

以下内容为程序代码:

1 sub getmydominantcontract()
2     dim marketname
3     dim sblock
4     dim contractvol    
5
6     marketname = array("SQ","DQ","ZQ","ZJ")
7     set sblock = createobject("stock.block")
8     
9     for i=0 to ubound(marketname)
10         n=marketdata.GetReportCount(marketname(i))
11         for j=0 to n-1
12             set myreport = marketdata.GetReportDataByIndex(marketname(i),j)
13             suffixlabel = right(myreport.label,2)            
14             if suffixlabel＞="01" and suffixlabel＜="12" then
15                 if myreport.volume＞contractvol then
16                     contractvol=myreport.volume
17                     contractlabel=myreport.label
18                 end if
19             end if            
20             if suffixlabel = "20" then
21                 sblock.addstock marketname(i),contractlabel
22                 contractvol=0
23                 c自选","自设股"    
28 end sub
29

[此贴子已经被作者于2011-1-22 19:47:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
z7c9
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小飞侠 帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56 		  发帖心情 Post By：2011/1/23 14:59:42 [显示全部帖子]

以下内容为程序代码:

1 sub getdominantcontract()
2     dim block
3     dim market
4     
5     set block=createobject("stock.block")
6     
7     block.open "自设股",1
8     
9     for i=0 to block.count-1
10         block.removeat(0)
11     next    
12     
13     market=array("SQ","DQ","ZQ","ZJ")
14     c"
16     contractvolume=0
17     
18     for i=0 to ubound(market)
19         n=marketdata.GetReportCount(market(i))
20         for j=0 to n-1
21             set report1=marketdata.GetReportDataByIndex(market(i),j)
22             suffixlabel=right(report1.label,2)
23             
24             if suffixlabel="00" then
25                 block.addstock contractmarket,contractlabel
26                 c"
28                 contractvolume=0
29             end if
30             
31             if suffixlabel＞="01" and suffixlabel＜="12" then
32                 if report1.volume＞contractvolume then
33                     contractlabel=report1.label
34                     contractmarket=market(i)
35                     contractvolume=report1.volume
36                 end if
37             end if
38         next
39     next
40     
41     block.addstock contractmarket,contractlabel
42     block.tosave "自选","自设股"
43     msgbox "完成筛选主力合约"
44 end sub
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.04688 秒, 6 次数据查询