《高成功率条件选股公式：净利润增长选股.doc》由会员分享，可在线阅读，更多相关《高成功率条件选股公式：净利润增长选股.doc（2页珍藏版）》请在三一文库上搜索。
1、高成功率条件选股公式：净利润增长选股鹏博F10净利润增长VARIABLE:SJ8=str,SY8=str,TT=6;jdg:=F10FIND(财务指标-增长能力,10000),LINETHICK;IF jdg=-1 then EXIT;SJT:=F10TEXT(F10FIND(指标名称,jdg)+4,70);SJ1:=LTRIM(STRMID(SJT,14,10);FOR i=1 TO 4 DO BEGIN TMP:=STRFIND(SJT, ,1); SJ:=LTRIM(STRMID(SJT,TMP+4,10); SJT:=LTRIM(STRMID(SJT,TMP+2,0);END;WT:=
2、IF(STRLEN(RTRIM(SJ4)4,1,0);DRAWTEXT(SYSPARAM(2)=BARPOS,10,最新日期：+SJ1);SYT:=F10TEXT(F10FIND(净利润增长率,jdg)+6,70);SYT:=LTRIM(STRRIGHT(SYT,69-STRFIND(SYT, ,10);SY1:=STRLEFT(SYT,6);SY2:=LTRIM(STRMID(SYT,13,8);SY3:=LTRIM(STRMID(SYT,13*2,8);SY4:=IF(WT,LTRIM(STRMID(SYT,13*3,8),);一期:STRTONUM(SY1),PRECISION4,COL
3、ORFFFFFF,LINETHICK;二期:STRTONUM(SY2),PRECISION4,COLORFFFF,LINETHICK;三期:STRTONUM(SY3),PRECISION4,COLORFF00FF,LINETHICK;四期:STRTONUM(SY4),PRECISION4,COLORFF00,LINETHICK;增长:一期二期,COLORFFFF00,LINETHICK;EXPLAIN(1,*近期*n+SJ1+：+NUMTOSTR(STRTONUM(SY1),4),colorcyan;EXPLAIN(1,SJ2+：+NUMTOSTR(STRTONUM(SY2),4),color
4、cyan;EXPLAIN(1,SJ3+：+NUMTOSTR(STRTONUM(SY3),4),colorcyan;EXPLAIN(WT,SJ4+：+NUMTOSTR(STRTONUM(SY4),4),colorcyan;IF WT=1 THEN BEGIN SJT1:=LTRIM(F10TEXT(F10FIND(指标名称,jdg+700)+16,56); SJ5:=STRLEFT(SJT1,8); SJ6:=RTRIM(LTRIM(STRMID(SJT1,14,10); SJ7:=RTRIM(LTRIM(STRMID(SJT1,14*2,10); SJ8:=RTRIM(LTRIM(STRMID
5、(SJT1,14*3,10); SYT1:=F10TEXT(F10FIND(净利润增长率,jdg+700)+24,50); SY5:=STRLEFT(SYT1,6); SY6:=LTRIM(STRMID(SYT1,14,8); SY7:=LTRIM(STRMID(SYT1,14*2,8); SY8:=LTRIM(STRMID(SYT1,14*3,8); 去年:STRTONUM(SY5),PRECISION4,LINETHICK; 前年:STRTONUM(SY6),PRECISION4,LINETHICK; 前二:STRTONUM(SY7),PRECISION4,LINETHICK; 前三:STRTONUM(SY8),PRECISION4,LINETHICK; EXPLAIN(WT,*往年*n+SJ5+：+NUMTOSTR(STRTONUM(SY5),4),colorgreen; EXPLAIN(WT,SJ6+：+NUMTOSTR(STRTONUM(SY6),4),colorgreen; EXPLAIN(WT,SJ7+：+NUMTOSTR(STRTONUM(SY7),4),colorgreen; EXPLAIN(WT,SJ8+：+NUMTOSTR(STRTONUM(SY8),4),colorgreen;END;/