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

以下内容为程序代码:

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