-- 作者:z7c9
-- 发布时间:2013/4/1 8:46:04
-- [原创]股票主力筛选
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
|