{鹏博F10股东人数}
//流通: CAPITAL/100,LINETHICK;
控盘:=CAPITAL/100/ FINANCE(50),LINETHICK;
{基于鹏搏资讯，因为F10资料经常变动，所以在变动后，需要对应调整，可做主图}
gdstar:=F10FIND('总户数',500);{查找F10中股东人数的位置}
gdw1:=F10FIND('200',gdstar+40);
gdw2:=F10FIND('200',gdw1+40);
gdw3:=F10FIND('200',gdw2+40);
gdw4:=F10FIND('200',gdw3+40);
IF gdstar<0 THEN EXIT;
{取对应的数据资料}
gdtd1:=F10TEXT(gdw1,10);gdtx1:=LTRIM(F10TEXT(gdw1+14,10));
gdtd2:=F10TEXT(gdw2,10);gdtx2:=LTRIM(F10TEXT(gdw2+14,10));
gdtd3:=F10TEXT(gdw3,10);gdtx3:=LTRIM(F10TEXT(gdw3+14,10));
gdtd4:=F10TEXT(gdw4,10);gdtx4:=LTRIM(F10TEXT(gdw4+14,10));
{转换字符串为数值}
gd1:=STRTONUM(gdtx1),LINETHICK;gd2:=STRTONUM(gdtx2),LINETHICK;
gd3:=STRTONUM(gdtx3),LINETHICK;gd4:=STRTONUM(gdtx4),LINETHICK;
{显示}
本期:=gd1;
前:=gd2;
近:=gd3;
远:=gd4;
d:=BACKSET(ISLASTBAR,88);
A:=D>REF(D,1);
STICKLINE(REF(A,0) AND GD4>1,0,远,40,0),color00ffcc;
STICKLINE(REF(A,20) AND GD3>1,0,近,40,0),color00ff00;
STICKLINE(REF(A,40) AND GD2>1,0,前,40,0),colorffff00;
STICKLINE(REF(A,60) AND GD1>1,0,本期,40,0),colorFF00FF;
最大:=max(远,近);
最大:=max(最大,前);
最大:=max(最大,本期);
增幅:(本期-前)/前*100,linethick0;
BLW:=F10FIND('占流通A股比例',500);
十大流通股东本期占（%）:STRTONUM(STRRIGHT(F10TEXT(BLW,20),6)),PRECISION2,COLORYELLOW,LINETHICK0;
上期占（%）:STRTONUM(STRRIGHT(F10TEXT(F10FIND('占流通A股比例',BLW+20),20),6)),PRECISION2,COLORYELLOW,LINETHICK0;
{-0.1*最大,color;}
DRAWTEXT(ref(a,1) AND GD4>1,1.1*最大,'人数:'+gdtx4),ALIGN,color00ffcc;
DRAWTEXT(ref(a,1) AND GD4>1,-0.02*最大,'（远期）'),ALIGN,color00ffcc;
DRAWTEXT(ref(a,20) AND GD3>1,1.1*最大,'人数:'+gdtx3),ALIGN,color00ff00;
DRAWTEXT(ref(a,20) AND GD3>1,-0.02*最大,'（近期）'),ALIGN,color00ff00;
DRAWTEXT(ref(a,40) AND GD2>1,1.1*最大,'人数:'+gdtx2),ALIGN,colorffff00;
DRAWTEXT(ref(a,40) AND GD2>1,-0.02*最大,'（前期）'),ALIGN,colorffff00;
DRAWTEXT(ref(a,60) AND GD1>1,1.1*最大,'人数:'+gdtx1),ALIGN,colorff00ff;
DRAWTEXT(ref(a,60) AND GD1>1,-0.02*最大,'（本期）'),ALIGN,colorff00ff;
//
{鹏博F10净利润增长}
VARIABLE:SJ[8]='str',SY[8]='str',TT=6;
jdg:=F10FIND('财务指标-增长能力',10000),LINETHICK;
IF jdg=-1 then EXIT;
SJT:=F10TEXT(F10FIND('指标名称',jdg)+4,70);
SJ[1]:=LTRIM(STRMID(SJT,14,10));
FOR i=1 TO 4 DO BEGIN
TMP:=STRFIND(SJT,'│',1);
SJ[i]:=LTRIM(STRMID(SJT,TMP+4,10));
SJT:=LTRIM(STRMID(SJT,TMP+2,0));
END;
WT:=IF(STRLEN(RTRIM(SJ[4]))>4,1,0);
DRAWTEXT(SYSPARAM(2)=BARPOS,10,'最新日期：'+SJ[1]);
SYT:=F10TEXT(F10FIND('净利润增长率',jdg)+6,70);
SYT:=LTRIM(STRRIGHT(SYT,69-STRFIND(SYT,'│ ',10)));
SY[1]:=STRLEFT(SYT,6);
SY[2]:=LTRIM(STRMID(SYT,13,8));
SY[3]:=LTRIM(STRMID(SYT,13*2,8));
SY[4]:=IF(WT,LTRIM(STRMID(SYT,13*3,8)),'');
本期净利润:STRTONUM(SY[1]),PRECISION4,COLORFFFFFF,LINETHICK;
二期:=STRTONUM(SY[2]),PRECISION4,COLORFFFF,LINETHICK;
三期:=STRTONUM(SY[3]),PRECISION4,COLORFF00FF,LINETHICK;
四期:=STRTONUM(SY[4]),PRECISION4,COLORFF00,LINETHICK;
增长:=本期净利润>二期,COLORFFFF00,LINETHICK;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(c>0 ,' 【F10净利润增长】'),COLORred;
EXPLAIN(1,'***近期***\n'+SJ[1]+'：'+NUMTOSTR(STRTONUM(SY[1]),4)),colorcyan;
EXPLAIN(1,SJ[2]+'：'+NUMTOSTR(STRTONUM(SY[2]),4)),colorcyan;
EXPLAIN(1,SJ[3]+'：'+NUMTOSTR(STRTONUM(SY[3]),4)),colorcyan;
EXPLAIN(WT,SJ[4]+'：'+NUMTOSTR(STRTONUM(SY[4]),4)),colorcyan;
IF WT=1 THEN BEGIN
SJT1:=LTRIM(F10TEXT(F10FIND('指标名称',jdg+700)+16,56));
SJ[5]:=STRLEFT(SJT1,8);
SJ[6]:=RTRIM(LTRIM(STRMID(SJT1,14,10)));
SJ[7]:=RTRIM(LTRIM(STRMID(SJT1,14*2,10)));
SJ[8]:=RTRIM(LTRIM(STRMID(SJT1,14*3,10)));
SYT1:=F10TEXT(F10FIND('净利润增长率',jdg+700)+24,50);
SY[5]:=STRLEFT(SYT1,6);
SY[6]:=LTRIM(STRMID(SYT1,14,8));
SY[7]:=LTRIM(STRMID(SYT1,14*2,8));
SY[8]:=LTRIM(STRMID(SYT1,14*3,8));
去年:=STRTONUM(SY[5]),PRECISION4,LINETHICK;
前年:=STRTONUM(SY[6]),PRECISION4,LINETHICK;
前二:=STRTONUM(SY[7]),PRECISION4,LINETHICK;
前三:=STRTONUM(SY[8]),PRECISION4,LINETHICK;
EXPLAIN(WT,'***往年***\n'+SJ[5]+'：'+NUMTOSTR(STRTONUM(SY[5]),4)),colorgreen;
EXPLAIN(WT,SJ[6]+'：'+NUMTOSTR(STRTONUM(SY[6]),4)),colorgreen;
EXPLAIN(WT,SJ[7]+'：'+NUMTOSTR(STRTONUM(SY[7]),4)),colorgreen;
EXPLAIN(WT,SJ[8]+'：'+NUMTOSTR(STRTONUM(SY[8]),4)),colorgreen;
END;
//
{鹏博F10每股收益}
VARIABLE:SJA[5]='str',SYA[5]='str',TTA=1;
jdgA:=F10FIND('主要指标',50),LINETHICK;
SJTA:=F10TEXT(F10FIND(' │',jdgA)+3,50);
SJA[1]:=STRLEFT(SJTA,8);
SJA[2]:=STRMID(SJTA,11,8);
SJA[3]:=STRMID(SJTA,10*2+1,8);
SJA[4]:=STRMID(SJTA,10*3+1,8);
SJA[5]:=STRMID(SJTA,10*4+1,8);
jdg0:=F10FIND('每股收益(元)',jdgA),LINETHICK;
SYTA:=F10TEXT(jdg0,70);
SYTA:=STRRIGHT(SYTA,69-STRFIND(SYTA,'│ ',12));
SYA[1]:=STRLEFT(SYTA,8);
FOR j=1 TO 5 DO BEGIN
SYA[j]:=STRMID(SYTA,TTA,8);
TTA:=TTA+10;
END;
最新每股收益:STRTONUM(SYA[1]),PRECISION4,LINETHICK;
上:=STRTONUM(SYA[2]),PRECISION4,LINETHICK;
三:=STRTONUM(SYA[3]),PRECISION4,LINETHICK;
四:=STRTONUM(SYA[4]),PRECISION4,LINETHICK;
五:=STRTONUM(SYA[5]),PRECISION4,LINETHICK;
增长1:=最新每股收益>上,LINETHICK;
//DRAWTEXT(SYSPARAM(2)=BARPOS,30,'最新日期：'+SJTA);
DRAWTEXT(SYSPARAM(2)=BARPOS,10,'最新日期：'+SJA[1]);
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(c>0 ,' 【F10每股收益】'),COLORred;
EXPLAIN(1,'**主要指标**\n'+SJA[1]+'：'+NUMTOSTR(最新每股收益,4)),coloryellow;
EXPLAIN(1,SJA[2]+'：'+NUMTOSTR(上,4)),coloryellow;
EXPLAIN(1,SJA[3]+'：'+NUMTOSTR(三,4)),coloryellow;
EXPLAIN(1,SJA[4]+'：'+NUMTOSTR(四,4)),coloryellow;
EXPLAIN(1,SJA[5]+'：'+NUMTOSTR(五,4)),coloryellow;
VARIABLE:SJ[8]='str',SY[8]='str',TT=6;
jdg:=F10FIND('财务指标-每股指标:',6000),LINETHICK;
IF jdg=-1 then EXIT;
SJT:=F10TEXT(F10FIND('指标名称',jdg)+4,70);
SJ[1]:=LTRIM(STRMID(SJT,14,10));
FOR i=1 TO 4 DO BEGIN
TMP:=STRFIND(SJT,'│',1);
SJ[i]:=LTRIM(STRMID(SJT,TMP+4,10));
SJT:=LTRIM(STRMID(SJT,TMP+2,0));
END;
WT:=IF(STRLEN(RTRIM(SJ[4]))>4,1,0);
SYT:=F10TEXT(F10FIND('每股收益(元)',jdg)+6,70);
SYT:=LTRIM(STRRIGHT(SYT,69-STRFIND(SYT,'│ ',10)));
SY[1]:=STRLEFT(SYT,6);
SY[2]:=LTRIM(STRMID(SYT,14,8));
SY[3]:=LTRIM(STRMID(SYT,14*2,8));
SY[4]:=IF(WT,LTRIM(STRMID(SYT,14*3,8)),'');
一期:=STRTONUM(SY[1]),PRECISION4,COLORFFFFFF,LINETHICK;
二期:=STRTONUM(SY[2]),PRECISION4,COLORFFFF,LINETHICK;
三期:=STRTONUM(SY[3]),PRECISION4,COLORFF00FF,LINETHICK;
四期:=STRTONUM(SY[4]),PRECISION4,COLORFF00,LINETHICK;
增长2:=一期>二期,COLORFFFF00,LINETHICK;
EXPLAIN(1,'***近期***\n'+SJ[1]+'：'+NUMTOSTR(STRTONUM(SY[1]),4)),colorcyan;
EXPLAIN(1,SJ[2]+'：'+NUMTOSTR(STRTONUM(SY[2]),4)),colorcyan;
EXPLAIN(1,SJ[3]+'：'+NUMTOSTR(STRTONUM(SY[3]),4)),colorcyan;
EXPLAIN(WT,SJ[4]+'：'+NUMTOSTR(STRTONUM(SY[4]),4)),colorcyan;
//DRAWTEXT(SYSPARAM(2)=BARPOS,10,'最新日期：'+SJ[1]);
IF WT=1 THEN BEGIN
SJT1:=LTRIM(F10TEXT(F10FIND('指标名称',jdg+700)+16,56));
SJ[5]:=STRLEFT(SJT1,8);
SJ[6]:=RTRIM(LTRIM(STRMID(SJT1,14,10)));
SJ[7]:=RTRIM(LTRIM(STRMID(SJT1,14*2,10)));
SJ[8]:=RTRIM(LTRIM(STRMID(SJT1,14*3,10)));
SYT1:=F10TEXT(F10FIND('每股收益(元)',jdg+700)+24,50);
SY[5]:=STRLEFT(SYT1,6);
SY[6]:=LTRIM(STRMID(SYT1,14,8));
SY[7]:=LTRIM(STRMID(SYT1,14*2,8));
SY[8]:=LTRIM(STRMID(SYT1,14*3,8));
去年:=STRTONUM(SY[5]),PRECISION4,LINETHICK;
前年:=STRTONUM(SY[6]),PRECISION4,LINETHICK;
前二:=STRTONUM(SY[7]),PRECISION4,LINETHICK;
前三:=STRTONUM(SY[8]),PRECISION4,LINETHICK;
EXPLAIN(WT,'***往年***\n'+SJ[5]+'：'+NUMTOSTR(STRTONUM(SY[5]),4)),colorgreen;
EXPLAIN(WT,SJ[6]+'：'+NUMTOSTR(STRTONUM(SY[6]),4)),colorgreen;
EXPLAIN(WT,SJ[7]+'：'+NUMTOSTR(STRTONUM(SY[7]),4)),colorgreen;
EXPLAIN(WT,SJ[8]+'：'+NUMTOSTR(STRTONUM(SY[8]),4)),colorgreen;
END;
//
{鹏博F10资产负债率}
VARIABLE:SJA[4]='str',FZ[4]='str';
jdg:=F10FIND('财务指标-偿债能力',9000),LINETHICK;
IF jdg<0 THEN EXIT;
jdgA:=F10FIND('指标名称',jdg),LINETHICK;
SJTA:=LTRIM(F10TEXT(F10FIND(' │',jdgA)+3,56));
SJA[1]:=STRLEFT(SJTA,8);
SJA[2]:=STRMID(SJTA,15,8);
SJA[3]:=STRMID(SJTA,14*2+1,8);
SJA[4]:=STRMID(SJTA,14*3+1,8);
DRAWTEXT(SYSPARAM(2)=BARPOS,30,'最新日期：'+SJA[1]);
WT:=IF(STRLEN(RTRIM(SJA[4]))>4,1,0);
jdg0:=F10FIND('资产负债比率(%)',jdgA+50),LINETHICK;
FZT:=F10TEXT(jdg0,74);
FZT:=LTRIM(STRRIGHT(FZT,69-STRFIND(FZT,'│ ',12)));
FZ[1]:=STRLEFT(FZT,8);
FZ[2]:=STRMID(FZT,15,8);
FZ[3]:=STRMID(FZT,14*2+1,8);
FZ[4]:=STRMID(FZT,14*3+1,8);
最新资产负债:STRTONUM(FZ[1]),PRECISION2,LINETHICK;
上:=STRTONUM(FZ[2]),PRECISION2,LINETHICK;
三:=STRTONUM(FZ[3]),PRECISION2,LINETHICK;
四:=STRTONUM(FZ[4]),PRECISION2,LINETHICK;
EXPLAIN(1,'==================================='),colorwhite;
EXPLAIN(c>0 ,' 【F10资产负债率】'),COLORred;
EXPLAIN(1,SJA[1]+'：'+NUMTOSTR(最新资产负债,4)),coloryellow;
EXPLAIN(1,SJA[2]+'：'+NUMTOSTR(上,4)),COLORMAGENTA;
EXPLAIN(1,SJA[3]+'：'+NUMTOSTR(三,4)),colorgreen;
EXPLAIN(WT,SJA[4]+'：'+NUMTOSTR(四,4)),colorred;{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
