软件名称：[B]股东户数趋势作图（F10资料系列提取公式二,源码、贴图）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2011-06-14 06:44:53
软件简介:

股东户数趋势作图（F10资料系列提取公式二,源码、贴图）
input:阅读(1,1,1000);
KLINE(O,H,L,C,1);
ZXW:=F10FIND('【2.股东户数】',10);
DRAWTEXTex(ZXW<=0,0,100,50,'本公式不适合该种F10资料。只适用于【港澳资讯】'),COLOREEFF;
if ZXW<=0 then EXIT;
ZXEND:=F10FIND('┘',ZXW);//
bt1:F10FIND('｜ 截止日期 ',zxw),LINETHICK;  
bt2:F10FIND('筹码集中度｜',bt1),LINETHICK;  
bt22:F10FIND('筹码集中度 ｜',bt1),LINETHICK;         
bt3:F10FIND('股东户数',bt1),LINETHICK;  tt3:=bt3-bt1;
bt4:F10FIND('户均持股',bt1),LINETHICK;  tt4:=bt4-bt1;
tt:if(bt2<=0,bt22+11,bt2+12)-bt1,LINETHICK;
表头:=F10TEXT(bt1,tt);
行数:(ZXEND-bt1)/tt,LINETHICK;
VARIABLE:da[行数+1]:='',gb[行数+1]='';
NR:='';     KG:='  ';
WZT:=ZXW;ii:=0;
WHILE  WZT<ZXEND and ii<行数 DO BEGIN
   WZT:=F10FIND('｜20',WZT+10); ii:=ii+1;
   tx:=F10TEXT(WZT,0);
   da[ii]:=NUMTOSTR(STRTONUM(strmid(tx,3,4))-1900,0)+strmid(tx,8,2)+strmid(tx,11,2);
   gb[ii]:=strmid(tx,tt4-1,12); //tt3替代 股东户数
   NR:=NR+if(ii>阅读 and  WZT<ZXEND,KG+tx+'('+NUMTOSTR(ii,0)+') '+' \n','');//+da[ii]+' '+gb[ii]
   WZT:=WZT+20;
end
DRAWTEXTex(BARSTATUS=2,0,1,1,'   ■共'+NUMTOSTR(ii-1,0)+'个数据  \n  '+表头+'\n'+NR),COLORDDFE,ALIGN4;
ggb:=STRTONUM(gb[ii]);
for i=ii-1 downto 1 do   
ggb:=if(BARPOS>1 and ref(date,1)<STRTONUM(da[ i ]) and date>=STRTONUM(da[ i ]),STRTONUM(gb[ i ]),ggb) ,color00ff00;
POLYLINE(ref(ggb,1)=0 and ggb>0,ggb),color00ff00;
bn:=barslast(ggb);
股东户数:ref(ggb,bn),color0000ff,LINETHICK;
变动率:=(股东户数/ref(股东户数,ref(bn,1)+2)-1)*100,LINETHICK;
DRAWNUMBER(BARPOS>2 and bn=0,股东户数,变动率,1),pxup30,COLOR00ff00,ALIGN2; //
户数转存:if(BARPOS=2 or bn=0,股东户数,0),linethick1;//让转存自定义数据清晰

 

[url=http://www.70822.com/soft/sort013/sort02/down-34894.html]股东户数趋势作图（F10资料系列提取公式二,源码、贴图）[/url]