{图中文字带有应用与说明}
if STKTYPE<>1 then EXIT;
bt1:=F10FIND('☆高层治理☆',1);
if bt1<=0 then EXIT;
bt2:=F10FIND('更新日期：',bt1);
表头:='｜股份变｜变动日期｜变动股｜成交均｜变动原｜变动后｜董监高｜职务｜变动人｜';
ZXW:=F10FIND(表头,bt2),LINETHICK;
if ZXW<=0 then EXIT;
k1:=STRFIND(表头,'｜股份变',1);k2:=STRFIND(表头,'｜变动日期',1);
k3:=STRFIND(表头,'｜变动股',1);k4:=STRFIND(表头,'｜成交均',1);
k5:=STRFIND(表头,'｜变动后',1);k6:=STRFIND(表头,'｜董监高',1);
k7:=STRFIND(表头,'变动人｜',1);
ZXEND:=F10FIND('【2.高管列表】',zxw),LINETHICK;
长度:zxend-zxw,LINETHICK;
ttx:=F10TEXT(zxw,长度);
st0:=zxw;
tt0:k7-k1+8,LINETHICK;
lns:长度/tt0,LINETHICK;
NR:='';KG:=''; WZT:=ZXW;
VARIABLE:da[100]:='',变动股[100]:='', 持股数[100]:='', ii:=0;
WHILEWZT<ZXEND and ii<100 DO BEGIN
WZT:=F10FIND('.',WZT);
ii:=ii+1;
tx:=F10TEXT(WZT-31,0);
dda:=STRMID(tx,k2+2,k3-k2-2);
da[ii]:=NUMTOSTR(STRTONUM(STRMID(dda,1,4))-1900,0)+STRMID(dda,5,4);
变动股[ii]:=STRMID(tx,k3+2,k4-k3-2);
持股数[ii]:=STRMID(tx,k5+2,k6-k5-2);
NR:=NR+KG+if(WZT<ZXEND,tx+'('+NUMTOSTR(ii,0)+')'+' \n',''); //+da[ii]+kg+变动股[ii]+kg+持股数[ii]
WZT:=WZT+40;
end
DRAWTEXTex(BARSTATUS=2,0,1,1,' '+F10TEXT(bt2,20)+' (共'+NUMTOSTR(ii-1,0)+'行)'+' ( wzt='+NUMTOSTR(wzt,0)+')'+'\n'+表头+'\n\n'+NR),COLORDDFE,ALIGN4;
ggb:STRTONUM(变动股[ii]);
for i=ii downto 1 do
ggb:=if(date=STRTONUM(da),SGN(STRTONUM(变动股[ i ])),ggb) ;
高管异动:ggb,color00ff00,LINETHICK1;
bn:=BARSLAST(abs(高管异动));
最新异动:if(bn<n,ref(ggb,bn),0),LINETHICK1,colorffffff;//排序用
异动次:ii-1,LINETHICK;
 {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
