标题：[原创]股票主力筛选

sub gethsgp() 
 market=array("sh","sz")
 
 set block=createobject("stock.block")
 
 for i=0 to ubound(market)
  for j=0 to marketdata.getreportcount(market(i))-1
   set myreport=marketdata.getreportdatabyindex(market(i),j)
   prefixlabel=left(myreport.label,2)
   
   if market(i)="sh" and prefixlabel="60" then
    block.addstock market(i),myreport.label
   end if
   
   if market(i)="sz" and (prefixlabel="00" or prefixlabel="30") then
    block.addstock market(i),myreport.label
   end if   
  next
 next
 
 block.tosave "自选","沪深股票"
 
 application.msgout("筛选沪深股票完毕")
end sub

sub getgpzl() 
 market=array("sh","sz")
 
 set block=createobject("stock.block")
 
 for i=0 to ubound(market)
  for j=0 to marketdata.getreportcount(market(i))-1
   set myreport=marketdata.getreportdatabyindex(market(i),j)
   prefixlabel=left(myreport.label,2)
   
   if market(i)="sh" and prefixlabel="60" and myreport.amount>100000000 then
    block.addstock market(i),myreport.label
   end if
   
   if market(i)="sz" and (prefixlabel="00" or prefixlabel="30") and myreport.volume>100000000 then
    block.addstock market(i),myreport.label
   end if   
  next
 next
 
 block.tosave "自选","股票主力"
 
 application.msgout("筛选股票主力完毕")
end sub