通过以下龙虎榜获取函数,即可进行关键营业部(机构)监控
getlonghubang('字段名','买卖方向',席位排行);
字段名:上榜日期,上榜原因,成交金额,交易营业部名称,买入金额,买入金额占总成交比例,卖出金额,卖出金额占总成交比例,净额
买卖方向:B或S
席位:1-5
例如:
getlonghubang('交易营业部名称','B',1);取买一席位交易营业部名称
通过以下代码即可监控龙虎榜中,出现【机构】买卖席位的
- variable : lhb_rank_buy_list[5]='', lhb_rank_sell_list[5]='',lhb_list[5]='';
- is_lhb_buy_share := 0;
- is_lhb_buy_num := 0;
- is_lhb_buy_amount := 0;
- is_lhb_buy_amount0 := 0;
- is_lhb_buy_temp := 0;
- is_lhb_buy_shareDY := 0;
- is_lhb_buy_numDY := 0;
- is_lhb_buy_amountDY := 0;
- is_lhb_buy_amount0DY := 0;
- is_lhb_buy_tempDY := 0;
- is_lhb_sell_share := 0;
- is_lhb_sell_num := 0;
- is_lhb_sell_amount := 0;
- is_lhb_sell_amount0 := 0;
- is_lhb_sell_temp := 0;
- for num=1 to 5 do
- begin
- lhb_rank_buy_list[num] := getlonghubang('交易营业部名称', 'B', num);
- lhb_rank_sell_list[num] := getlonghubang('交易营业部名称', 'S', num);
- if strfind(lhb_rank_buy_list[num], '机构', 1)<>0 then begin
- is_lhb_buy_share := 1;
- is_lhb_buy_temp := is_lhb_buy_share;
- is_lhb_buy_num:=is_lhb_buy_share+is_lhb_buy_num;
- is_lhb_buy_amount0 :=STRTONUM(getlonghubang('买入金额', 'B', num));
- is_lhb_buy_amount :=is_lhb_buy_amount + is_lhb_buy_amount0;
- end
- if strfind(lhb_rank_sell_list[num], '机构', 1)<>0 then begin
- is_lhb_sell_share := -1;
- is_lhb_sell_temp := is_lhb_sell_share;
- is_lhb_sell_num:=is_lhb_sell_share+is_lhb_sell_num;
- is_lhb_sell_amount0 :=STRTONUM(getlonghubang('卖出金额', 'S', num));
- is_lhb_sell_amount :=is_lhb_sell_amount + is_lhb_sell_amount0;
- end
- end
- 买入机构:is_lhb_buy_num+is_lhb_buy_numDY,colorred;
- 机构买入金额:is_lhb_buy_amount*10000,coloryellow;
- 卖出机构:is_lhb_sell_num,colorgreen;
- 机构卖出金额:-is_lhb_sell_amount*10000,colorwhite;
- 机构净额:机构买入金额+机构卖出金额,COLORSTICK;
- 机构净额占比:机构净额*100/amount,nodraw;
复制代码
机构监控
|