{鹏博、Wind十大流通股东}
INPUT:LB(1,0,1);
//设定查找的特定股东
TDGD:='王维庭';//'孙军忠';//修改引号内姓名变更
//确定F10种类
F10:=IF(F10FIND('万国测评制作',1)>0,1,IF(F10FIND('Wind资讯就是',1)>0,2,IF(F10FIND('鹏搏资讯',1)>0,3,IF(F10FIND('◇港澳资讯',1)>0,4,0))));
//F10数据查找
QSW:=IF(F10=2,F10FIND('股东进出】 <<占流通股比例区',1000),IF(F10=3,F10FIND('【十大流通股东】',500),F10FIND('◆ 控盘情况 ◆',100)));//起
IF QSW<0 THEN EXIT;//没找到退出
SJT:=IF(F10=1,F10FIND('占流通股',QSW+30),IF(F10=2,F10FIND('流通股东名',QSW+50),IF(F10=5,F10FIND('十大流通股东情况',QSW+50),F10FIND('截止日期',QSW+10))));//取日期位置1
IF SJT<0 THEN EXIT;
RQZ:=LTRIM(RTRIM(F10TEXT(SJT+IF(F10=1,(-24),IF(F10=2,(-145),IF(F10=3,9,IF(F10=5,(-12),10)))),12)));//时间
截止日期:STRTONUM('1'+STRRIGHT(STRLEFT(RQZ,4),2)+STRRIGHT('0'+NUMTOSTR(STRTONUM(STRMID(RQZ,6,2)),0),2)+STRMID(RQZ,STRFIND(RQZ,'-',6)+1,2)),LINETHICK;
HJW:=F10FIND(IF(F10<3,'总计',IF(F10=3,'流通A股合计',IF(F10=5,'合计持有','合计'))),SJT+300);//止
CGT:=LTRIM(IF(F10=4,F10TEXT(HJW+42,36)-'│'-'─',IF(F10=5,F10TEXT(HJW+8,0)-'流通',F10TEXT(HJW+IF(F10=2,20,12),60)-IF(F10=1,'-',''))));
持股:=IF(F10=4,STRLEFT(CGT,STRFIND(CGT,' ',3)-1),STRLEFT(CGT,STRFIND(CGT,IF(F10=1,' ',IF(F10=2,' ',IF(F10=5,'万','(万股'))),1)-1));
CGT1:=LTRIM(IF(F10=5,STRRIGHT(CGT-持股,STRLEN(CGT-持股)-STRFIND(CGT-持股,'％',1)-3),CGT-持股));
比例:=STRTONUM(IF(F10=4,STRLEFT(CGT1,STRFIND(CGT1,' ',3)-1),IF(F10<3,STRLEFT(CGT1,STRFIND(CGT1,'%',1)-1),
IF(F10=5,STRMID(CGT1,STRFIND(CGT1,'股',1)+2,STRFIND(CGT1,'％',5)),STRMID(CGT,STRFIND(CGT,':',10)+1,STRFIND(CGT,'％',10)-1)))));
JS1:=0;JS2:=0;
VARIABLE:GDW[10]=0,GDT[10]='STR',BJ[10]='STR',ZJT[10]='STR';
FOR j=1 TO 10 DO BEGIN
XH:=RTRIM(LTRIM(NUMTOSTR(j,0)));//将j转换为字符的序号
GDW[j]:=IF(j=1,F10FIND('1',SJT+100),F10FIND(IF(F10=2 AND j=10,'',' ')+XH+IF(F10=3,'│',''),GDW[j-1]+74));//取字符串所在位置
LS:=IF(F10=3,IF(j=1,3,IF(j<10,4,5)),IF(j=1,1,2));
IF j<11 THEN GDT[j]:=XH+IF(F10=3,'.','')+F10TEXT(GDW[j]+LS,IF(F10=3,26,30));//取字符串
PDT:=STRLEN(RTRIM(GDT[j]));
IF PDT>10 THEN JS1:=JS1+1; ELSE JS2:=JS2+1;
BJ[j]:=STRRIGHT(' '+LTRIM(NUMTOSTR(STRTONUM(LTRIM(STRRIGHT(F10TEXT(GDW[j]+27,16),12))),2)),12);
ZJT[j]:=IF(F10=2,STRRIGHT(' '+RTRIM(LTRIM(STRLEFT(F10TEXT(GDW[j]+54,12),8))),10),'');
GDT[j]:=IF(j<10,' ','')+GDT[j]+BJ[j]+''+ZJT[j];
// GDT[j]:=IF(j<10,' ','')+STRLEFT(GDT[j]+' ',IF(j<10,32,32))+BJ[j]+''+ZJT[j];
END;
//DRAWTEXT(SYSPARAM(2)+2=BARPOS AND GDW[1]>1,10,ZJT[6]),COLOR74AFFF;
//查特定股东数值
TDCG:=0;TDT:=0;TDS:=0;
FOR q=1 TO 10 DO BEGIN
//[q]:=LTRIM(STRRIGHT(F10TEXT(GDW[q]+32,14),12));
TDT:=STRFIND(GDT[q],TDGD,1);
IF TDT>0 THEN BEGIN
TDCG:=STRTONUM(BJ[q]);
TDS:=q;
BREAK;
END;
END;
//DRAWTEXT(SYSPARAM(2)+2=BARPOS AND GDW[1]>1,10,GDT[10]),COLOR74AFFF;
十大流通股东占（%）:比例,PRECISION2,COLORYELLOW,LINETHICK;
机构数:JS1,COLORFF,LINETHICK;
个人数:JS2,COLORFF00,LINETHICK;
特定股东持股:TDCG,COLORFF60FF,LINETHICK;
IF LB=1 THEN BEGIN
ZX:=INTPART((SYSPARAM(3)-SYSPARAM(2))/2)+2;
DRAWTEXT(SYSPARAM(2)+2=BARPOS AND GDW[1]>1,10,GDT[1]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+2=BARPOS AND GDW[2]>1,8,GDT[2]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+2=BARPOS AND GDW[3]>1,6,GDT[3]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+2=BARPOS AND GDW[4]>1,4,GDT[4]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+2=BARPOS AND GDW[5]>1,2,GDT[5]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+ZX=BARPOS AND GDW[6]>1,10,GDT[6]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+ZX=BARPOS AND GDW[7]>1,8,GDT[7]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+ZX=BARPOS AND GDW[8]>1,6,GDT[8]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+ZX=BARPOS AND GDW[9]>1,4,GDT[9]),COLOR74AFFF;
DRAWTEXT(SYSPARAM(2)+ZX=BARPOS AND GDW[10]>1,2,GDT[10]),COLOR74AFFF;
END ELSE DRAWTEXT(SYSPARAM(2)+2=BARPOS AND TDT>0,10,GDT[TDS]),COLOR74AFFF;
0,COLORBLACK;
//{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
