 | |  |  |
通达信机构持股源码公式：
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('【基金机构持股】',1000)));//起
JSW:=IF(F10=2,F10FIND('【2:大股东介绍】',QSW+300),IF(F10=3,F10FIND('【十大股东】',QSW+500),F10FIND('<!P关联个股>',QSW+300)));//止
IF QSW<0 THEN EXIT;
SJT:=IF(F10=2,F10FIND('流通股东名',QSW+50),F10FIND('截止日期',QSW+10));
IF SJT<0 THEN EXIT;
VARIABLE:TT[4]='STR',持股[4]='STR',比例[4]=0,变化[4]=0;
FOR i=1 to 4 DO BEGIN
TT:=RTRIM(F10TEXT(SJT+IF(F10=2,(-145),IF(F10=3,9,10)),12));//时间
HJW:=F10FIND(IF(F10=2,'总 计',IF(F10=3,'流通A股合计','合 计')),SJT+300);
CGT:=LTRIM(IF(F10=4,F10TEXT(HJW+42,36)-'│'-'─',F10TEXT(HJW+IF(F10=2,20,12),60)));
持股:=IF(F10=4,STRLEFT(CGT,STRFIND(CGT,' ',3)-1),STRLEFT(CGT,STRFIND(CGT,IF(F10=2,' ','(万股'),1)-1));
比例:=STRTONUM(IF(F10=4,STRLEFT(LTRIM(CGT-持股),STRFIND(LTRIM(CGT-持股),' ',3)-1),
IF(F10=2,STRLEFT(LTRIM(CGT-持股),STRFIND(LTRIM(CGT-持股),'%',1)-1),STRMID(CGT,STRFIND(CGT,':',10)+1,STRFIND(CGT,'％',10)-1))));
// 变化:=STRTONUM(STRRIGHT(CGT,STRLEN(CGT)-STRFIND(CGT,' ',16)));//维赛特
SJT:=IF(F10=2,F10FIND('流通股东名',HJW+50),F10FIND('截止日期',HJW+10));
IF SJT>JSW OR SJT<0 THEN BREAK;
END;
当期:STRTONUM(持股[1]),COLORFF,LINETHICK;
当期（%）:比例[1],PRECISION2,COLORCC,LINETHICK;
上期:STRTONUM(持股[2]),COLORFFFF,LINETHICK;
上期（%）:比例[2],PRECISION2,COLORCCDD,LINETHICK;
±比例:当期（%）-上期（%）,PRECISION2,COLORCC00DD,LINETHICK;
前二:STRTONUM(持股[3]),LINETHICK,COLORFFFF00;
前二（%）:比例[3],PRECISION2,COLORCDDD00,LINETHICK;
前三:STRTONUM(持股[4]),COLORFF00,LINETHICK;
前三（%）:比例[4],PRECISION2,COLORAD00,LINETHICK;
DRAWTEXT(BARPOS=SYSPARAM(2),10,'“'+IF(F10=4,'机构持股','十大流通股东')+'”最新日期：'+TT[1]),COLOREEEEEE,ALIGN4;
//画柱线
A3:=SYSPARAM(3);AG:=INTPART((SYSPARAM(3)-SYSPARAM(2))/IF(DATACOUNT>120,30,20));A5:=SYSPARAM(5);
STICKLINE(BARPOS=A3-AG*5 AND 当期>0,0,当期,AG*9,1),colorFF,LINETHICK2;
STICKLINE(BARPOS=A3-AG*9 AND 上期>0,0,上期,AG*9,1),colorFFFF,LINETHICK2;
STICKLINE(BARPOS=A3-AG*13 AND 前二>0,0,前二,AG*9,1),colorFFFF00,LINETHICK2;
STICKLINE(BARPOS=A3-AG*17 AND 前三>0,0,前三,AG*9,1),colorFF00,LINETHICK2;
//显示文字
DRAWNUMBER(BARPOS=A3-AG*3 AND 当期>0,A5,当期,2),,COLORFFD000,ALIGN,PXUP80;
DRAWNUMBER(BARPOS=A3-AG*7 AND 上期>0,A5,上期,2),,COLORFFD000,ALIGN,PXUP80;
DRAWNUMBER(BARPOS=A3-AG*11 AND 前二>0,A5,前二,2),,COLORFFD000,ALIGN,PXUP80;
DRAWNUMBER(BARPOS=A3-AG*15 AND 前三>0,A5,前三,2),,COLORFFD000,ALIGN,PXUP80;
DRAWNUMBER(BARPOS=A3-AG*3 AND 当期>0,A5,当期（%）,2),,COLORDDEE,ALIGN,PXUP55;
DRAWNUMBER(BARPOS=A3-AG*7 AND 上期>0,A5,上期（%）,2),,COLORDDEE,ALIGN,PXUP55;
DRAWNUMBER(BARPOS=A3-AG*11 AND 前二>0,A5,前二（%）,2),,COLORDDEE,ALIGN,PXUP55;
DRAWNUMBER(BARPOS=A3-AG*15 AND 前三>0,A5,前三（%）,2),,COLORDDEE,ALIGN,PXUP55;
{维赛特}
//DRAWNUMBER(BARPOS=A3-AG*3 AND 当期>0,A5,变化[1],2),,COLORDD0E,ALIGN,PXUP30;
//DRAWNUMBER(BARPOS=A3-AG*7 AND 上期>0,A5,变化[2],2),,COLORDD0E,ALIGN,PXUP30;
//DRAWNUMBER(BARPOS=A3-AG*11 AND 前二>0,A5,变化[3],2),,COLORDD0E,ALIGN,PXUP30;
//DRAWNUMBER(BARPOS=A3-AG*15 AND 前三>0,A5,变化[4],2),,COLORDD0E,ALIGN,PXUP30;
DRAWTEXT(BARPOS=A3-AG*3 AND 当期>0,A5,TT[1]),COLORCCEE90,ALIGN,PXUP2;
DRAWTEXT(BARPOS=A3-AG*7 AND 上期>0,A5,TT[2]),COLORCCEE90,ALIGN,PXUP2;
DRAWTEXT(BARPOS=A3-AG*11 AND 前二>0,A5,TT[3]),COLORCCEE90,ALIGN,PXUP2;
DRAWTEXT(BARPOS=A3-AG*15 AND 前三>0,A5,TT[4]),COLORCCEE90,ALIGN,PXUP2;
//-30,COLOR;
DRAWTEXT(SYSPARAM(2)+1=BARPOS AND 当期>0,A5,'持股数(万) \n占流通比 \n \n 时 间'),COLORFFFF,PXUP80;//比前期变 |
| |  | |  |
|
