苏州罗氏诊断怎么样:F10专集{六个精品指标

股市浪子F10专集{六个精品指标}

思路严谨，语言简练，写法独特，确系精品啊！
代码: [复制] {鹏博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;

//

图片附件: 1 学习.gif (2006-2-19 16:06, 57.17 K) 2006-2-19 16:06 #1             ahfyxl
三级狐友



UID 16492
精华 0
积分 585
帖子 50
阅读权限 30
注册 2005-5-14
状态 离线
代码: [复制] {鹏博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,‘***近期***\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,‘**主要指标**\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股东人数}
流通: 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;
DRAWTEXT(SYSPARAM(2)=BARPOS,GD1*0.6,‘最新日期：‘+gdtd1),COLORYELLOW;
DRAWTEXT(SYSPARAM(2)=BARPOS,GD1*0.3,‘最新户均持股：‘+NUMTOSTR(CAPITAL*100/gd1,2)),COLORYELLOW;
{解盘显示股东人数变动}
EXPLAIN(gd1>1,gdtd1+‘总户数：‘+gdtx1);
EXPLAIN(gd2>1,gdtd2+‘总户数：‘+gdtx2);
EXPLAIN(gd3>1,gdtd3+‘总户数：‘+gdtx3);
EXPLAIN(gd4>1,gdtd4+‘总户数：‘+gdtx4);
TD1:=STRTONUM(‘1‘+STRMID(gdtd1,3,2)+STRMID(gdtd1,6,2)+STRRIGHT(gdtd1,2));
TD2:=STRTONUM(‘1‘+STRMID(gdtd2,3,2)+STRMID(gdtd2,6,2)+STRRIGHT(gdtd2,2));
TD3:=STRTONUM(‘1‘+STRMID(gdtd3,3,2)+STRMID(gdtd3,6,2)+STRRIGHT(gdtd3,2));
TD4:=STRTONUM(‘1‘+STRMID(gdtd4,3,2)+STRMID(gdtd4,6,2)+STRRIGHT(gdtd4,2));
{***********************}
{将变化人数对应显示在 K 线上}
DRAWNUMBER(date=TD1 AND GD1>1,c,gd1,0),colorFF00FF,ALIGN4;
DRAWNUMBER(date=TD2 AND GD2>1,c,gd2,0),colorffff00,ALIGN4;
DRAWNUMBER(date=TD3 AND GD3>1,c,gd3,0),color00ff00,ALIGN4;
DRAWNUMBER(date=TD4 AND GD4>1,c,gd4,0),color00ffcc,ALIGN4;

本期:gd1,linethick0,colorff00ff;
前:gd2,linethick0,colorffff00;
近:gd3,linethick0,color00ff00;
远:gd4,linethick0,color00ffcc;
d:=BACKSET(ISLASTBAR,40);
A:=D>REF(D,1);
STICKLINE(REF(A,6) AND GD4>1,0,远,40,0),color00ffcc;
STICKLINE(REF(A,14) AND GD3>1,0,近,40,0),color00ff00;
STICKLINE(REF(A,22) AND GD2>1,0,前,40,0),colorffff00;
STICKLINE(REF(A,30) 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,6) AND GD4>1,-0.02*最大,gdtx4),ALIGN,color00ffcc;
DRAWTEXT(ref(a,14) AND GD3>1,-0.02*最大,gdtx3),ALIGN,color00ff00;
DRAWTEXT(ref(a,22) AND GD2>1,-0.02*最大,gdtx2),ALIGN,colorffff00;
DRAWTEXT(ref(a,30) AND GD1>1,-0.02*最大,gdtx1),ALIGN,colorff00ff;

//
代码: [复制] {鹏博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,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;
代码: [复制] {鹏博F10公司曾用名}
CYM:=F10FIND(‘曾用名‘,500);{查找曾用名的位置}
MDW1:=F10FIND(‘│‘,CYM+10);
MDW2:=F10FIND(‘│‘,MDW1+68);
MDW3:=F10FIND(‘│‘,MDW2+68);
MDW4:=F10FIND(‘联系电话‘,MDW2+68);
IF CYM<0 THEN EXIT;
{取对应的数据资料}
ZD1:=LTRIM(RTRIM(F10TEXT(MDW1+2,30)));
IF STRFIND(ZD1,‘-‘,1)>0 THEN EXIT;
ZD2:=RTRIM(F10TEXT(MDW2+2,20));
ZD3:=IF(MDW3DRAWTEXT(SYSPARAM(2)=BARPO [ 本帖最后由 ahfyxl 于 2006-2-19 16:10 编辑 ]