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

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

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

共有5040人关注过本帖树形打印复制链接主题：[原创]筛选连续合约的方法

z7c9

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

加好友

发短信

等级：小飞侠帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56

[原创]筛选连续合约的方法 发帖心情

Post By：2011/1/22 19:07:48 [只看该作者]

以下内容为程序代码:

1 sub getcontinuouscontract()
2     dim marketname
3     set b=createobject("stock.block")
4
5     marketname=Array("SQ","DQ","ZQ","ZJ")
6
7     for i=0 to ubound(marketname)
8         n=marketdata.GetReportCount(marketname(i))
9         for j=0 to n-1
10             set myreport = marketdata.GetReportDataByIndex(marketname(i),j)
11             suffixlabel=right(myreport.label,2)
12             if suffixlabel="00" then
13                 b.addstock marketname(i),myreport.label
14             end if
15         next
16     next
17
18     b.tosave "自选","自选股"
19 end sub

[此贴子已经被作者于2011-1-22 19:08:35编辑过]

z7c9

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

加好友

发短信

等级：小飞侠帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56

Post By：2011/1/23 15:00:06 [只看该作者]

以下内容为程序代码:

1 sub getcontinuouscontract()
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
15     for i=0 to ubound(market)
16         n=marketdata.GetReportCount(market(i))
17         for j=0 to n-1
18             set report1=marketdata.GetReportDataByIndex(market(i),j)
19             if right(report1.label,2)="00" then
20                 block.addstock market(i),report1.label
21             end if
22         next
23     next
24
25     block.tosave "自选","自选股"
26     msgbox "完成筛选连续合约"
27 end sub