主营构成副图 主业构成、高管持股、股东变化、公司公告’源码。

a:=F10FIND('<聚源资讯>',1);c0:=F10FIND('主营构成',a);a0:=F10FIND('公司公告',a);
mm:=F10TEXT(a0,500);a2:=F10FIND('其中:高管股 ',a);hs:=F10FIND('总户数',500);
q1:=F10FIND('201',hs+10);q2:=F10FIND('201',q1+40);g1:=LTRIM(F10TEXT(q1+14,10));
g2:=LTRIM(F10TEXT(q2+14,10));gd1:=STRTONUM(g1);gd2:=STRTONUM(g2);
GD:=STRTONUM(STRRIGHT(F10TEXT(F10FIND('占流通A股比例:',500),22),8));
近期:=STRTONUM(F10TEXT(a2+20,16));零九:=STRTONUM(F10TEXT(a2+36,16));
零八:=STRTONUM(F10TEXT(a2+52,16));零七:=STRTONUM(F10TEXT(a2+68,16));
户数差:=gd1-gd2;hj:=FINANCE(7)/gd1;EXPLAIN(c,''+mm+''),COLOR00DDDD;
IF c0>0 THEN BEGIN
aa:=F10TEXT(c0+9,46);aa0:=F10TEXT(c0+54,77);aa1:=F10TEXT(c0+131,76);
aa2:=F10TEXT(c0+207,76);aa3:=F10TEXT(c0+283,76);aa4:=F10TEXT(c0+359,76);
aa5:=F10TEXT(c0+435,76);aa6:=F10TEXT(c0+511,76);aa7:=F10TEXT(c0+587,76);
aa8:=F10TEXT(c0+663,76);aa9:=F10TEXT(c0+739,76);a10:=F10TEXT(c0+815,76);
DRAWTEXT(BARPOS=SYSPARAM(3)-130,0,''+aa+'日'+' \n'+aa0+' \n'+aa1+' \n'+aa2+' \n'+aa3+' \n'
+aa4+' \n'+aa5+' \n'+aa6+' \n'+aa7+' \n'+aa8+
' \n'+aa9+' \n'+a10+''),ALIGN4,COLORBBBBBB;
END;
STICKLINE(BARPOS=SYSPARAM(3)-3,0,近期,100,0),COLOR880088;
DRAWNUMBER(BARPOS=SYSPARAM(3)-5,近期,近期,2),COLORWHITE;
STICKLINE(BARPOS=SYSPARAM(3)-16,0,零九,100,0),COLOR000088;
DRAWNUMBER(BARPOS=SYSPARAM(3)-18,零九,零九,2),COLORWHITE;
STICKLINE(BARPOS=SYSPARAM(3)-29,0,零八,100,0),COLORee8800;
DRAWNUMBER(BARPOS=SYSPARAM(3)-31,零八,零八,2),COLORWHITE;
STICKLINE(BARPOS=SYSPARAM(3)-42,0,零七,100,0),COLOR008800;
DRAWNUMBER(BARPOS=SYSPARAM(3)-44,零七,零七,2),COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(3)-5,0,' 近期'),PXUP20,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(3)-18,0,' 零九'),PXUP20,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(3)-31,0,' 零八'),PXUP20,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(3)-44,0,' 零七'),PXUP20,COLORWHITE;
DRAWTEXT(BARPOS=SYSPARAM(3)-53,0,' 高\n \n 管\n \n 持\n \n 股'),ALIGN3,PXUP50,COLOR00DD00;
DRAWTEXT(BARPOS=SYSPARAM(3)-155,0,''),ALIGN4,COLORBBBBBB;
DRAWTEXTex(户数差<0,1,0,810,'市场筹码较上期集中'),color0000FF;
DRAWTEXTex(户数差>0,1,0,810,'市场筹码较上期分散'),color00FF00;
DRAWTEXTEX(C,1,0,10,'证券代码: '+STKLABEL+'\n \n证券名称:'+STKNAME),color00DDDD;
DRAWTEXTEX(C,1,0,410,'户均持股:'+NUMTOSTR(hj,2)+'万股'),Color0000EE;
DRAWTEXTEX(C,1,0,610,'大股东占:'+NUMTOSTR(GD,2)+' %'),ColorFF88FF;