//机构持股-港澳
n:=12;
S:=F10FIND('【1.机构持股汇总】',100);
S1:=F10FIND('报告日期 ｜',S)+11;
S2:=F10FIND('｜',S1);
季:STRTONUM(F10TEXT(S1,S2-S1)-'-')-19000000,LINETHICK0;
S3:=F10FIND('基金持股 ｜',1);
基金持股:strtonum(f10text(S3+11,11)),LINETHICK0;
//11----"基金持股 ｜"的字符长度
S33:=F10FIND('占流通A比 ｜',S3);
基金占比:if(基金持股>0,strtonum(f10text(S33+12,11)),0),LINETHICK0;
S4:=F10FIND(' QFII持股 ｜',1);
QFII持股:strtonum(f10text(S4+12,11)),LINETHICK0;
S44:=F10FIND('占流通A比 ｜',S4);
QFII占比:if(QFII持股>0,strtonum(f10text(S44+n,11)),0),LINETHICK0;
S5:=F10FIND(' 券商持股 ｜',1);
券商持股:strtonum(f10text(S5+12,11)),LINETHICK0;
S55:=F10FIND('占流通A比 ｜',S5);
券商占比:if(券商持股>0,strtonum(f10text(S55+n,11)),0),LINETHICK0;
S6:=F10FIND(' 社保持股 ｜',1);
社保持股:strtonum(f10text(S6+12,11)),LINETHICK0;
S66:=F10FIND('占流通A比 ｜',S6);
社保占比:if(社保持股>0,strtonum(f10text(S66+n,11)),0),LINETHICK0;
S7:=F10FIND(' 保险持股 ｜',1);
保险持股:strtonum(f10text(S7+12,11)),colorcyan,LINETHICK0;
S77:=F10FIND('占流通A比 ｜',S7);
保险占比:if(保险持股>0,strtonum(f10text(S77+n,11)),0),LINETHICK0;
S8:=F10FIND(' 信托持股 ｜',1);
信托持股:strtonum(f10text(S8+12,11)),LINETHICK0,colorcyan;
S88:=F10FIND('占流通A比 ｜',S8);
信托占比:if(信托持股>0,strtonum(f10text(S88+n,11)),0),LINETHICK0;
机构持股:基金持股+QFII持股+券商持股+社保持股+保险持股+信托持股,colorcyan,LINETHICK0;
机构占比:基金占比+QFII占比+券商占比+社保占比+保险占比+信托占比,colorcyan,LINETHICK0;
DRAWTEXTEX(c,1,300,10,'基金持股:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(c,1,300,160,'QFII持股:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,300,310,'券商持股:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,300,460,'社保持股:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(c,1,300,610,'保险持股:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,300,760,'信托持股:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,300,900,'机构持股:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,400,10,NUMTOSTR(基金持股,0)),ColorAFFF00;
DRAWTEXTEX(c,1,400,160,NUMTOSTR(QFII持股,0)),Color00FFFF;
DRAWTEXTEX(c,1,400,310,NUMTOSTR(券商持股,0)),Color00FFFF;
DRAWTEXTEX(c,1,400,460,NUMTOSTR(社保持股,0)),ColorAFFF00;
DRAWTEXTEX(c,1,400,610,NUMTOSTR(保险持股,0)),Color00FFFF;
DRAWTEXTEX(c,1,400,760,NUMTOSTR(信托持股,0)),Color00FFFF;
DRAWTEXTEX(c,1,400,900,NUMTOSTR(机构持股,0)),Color00FFFF;
DRAWTEXTEX(c,1,500,10,'基金占比:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(c,1,500,160,'QFII占比:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,500,310,'券商占比:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,500,460,'社保占比:'),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(c,1,500,610,'保险占比:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,500,760,'信托占比:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,500,900,'机构占比:'),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,600,10,NUMTOSTR(基金占比,2)),LINETHICK2,ColorAFFF00;
DRAWTEXTEX(c,1,600,160,NUMTOSTR(QFII占比,2)),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,600,310,NUMTOSTR(券商占比,2)),LINETHICK2,ColorFFFF00;
DRAWTEXTEX(c,1,600,460,NUMTOSTR(社保占比,2)),LINETHICK2,Color00FFFF;
DRAWTEXTEX(c,1,600,610,NUMTOSTR(保险占比,2)),LINETHICK2,Color007DFF;
DRAWTEXTEX(c,1,600,760,NUMTOSTR(信托占比,2)),LINETHICK2,ColorFFFF00;
DRAWTEXTEX(c,1,600,910,NUMTOSTR(机构占比,2)),LINETHICK2,ColorFFFF00;
DRAWTEXTEX(CLOSE,1,100,10,STKLABEL+' '+STKNAME+''),colorFFFF;
DRAWTEXTEX(c,1,100,160,'【数据更新:'+NUMTOSTR(季,0)+' 】'),COLORccffff; 【本文仅提供源码，并无公式下载，如需公式，请参照下面公式编辑录像自行编辑成公式】{点击看本软件截图：58股票 公式网 http://www. 58gu. com 整理} |
