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;
WHILEWZT<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>阅读 andWZT<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;//让转存自定义数据清晰 {点击看本软件截图：58股票 公式网 http://www. 58gu. com 整理} |
