软件名称：[B]高管追踪－f10数据提取之四(资料应用终结,源码，附图)[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：1.00 KB
官方主页：Home Page
更新时间：2011-07-02 04:43:43
软件简介:

{图中文字带有应用与说明}
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;
WHILE  WZT<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;

[url=http://www.70822.com/soft/sort013/sort02/down-35678.html]高管追踪－f10数据提取之四(资料应用终结,源码，附图)[/url]