主题：[原创]筛选主力合约的宏

以下内容为程序代码:

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