飛狐股票公式之F10公式《投資評級》 FOR Wind(2)

　　SS:=FLOOR((ZLEND-2-ZLQ)/12);

　　NR:=RTRIM(F10TEXT(ZLQ,ZLEND-2-ZLQ));

　　QZ:=0;KZ:=0;KP:=0;DK:=0;QD:=0;

　　XST:=0;//STRLEN(XSS);

　　KG:=' ';

　　//KG:=' ';

　　KG:=IF(XST>0,KG,STRLEFT(KG,26));

　　XSNR:='';

　　FOR j=1 TO SS DO BEGIN

　　NRT:=STRLEFT(NR,76);

　　XSNR:=XSNR+IF(j=1,'',' \n')+KG+NRT;

　　NR:=(STRMID(NR,77,0));

　　TMP:=STRFIND(NRT,'家',1);

　　QZ:=IF(TMP>0 AND STRFIND(NRT,'強烈看漲',1)>0,STRTONUM(STRMID(NRT,TMP-3,TMP)),QZ);

　　KZ:=IF(TMP>0 AND STRFIND(NRT,'看漲',1)>0,STRTONUM(STRMID(NRT,TMP-3,TMP)),KZ);

　　KP:=IF(TMP>0 AND STRFIND(NRT,'看平',1)>0,STRTONUM(STRMID(NRT,TMP-3,TMP)),KP);

　　DK:=IF(TMP>0 AND STRFIND(NRT,'看跌',1)>0,STRTONUM(STRMID(NRT,TMP-3,TMP)),DK);

　　QD:=IF(TMP>0 AND STRFIND(NRT,'強烈看跌',1)>0,STRTONUM(STRMID(NRT,TMP-3,TMP)),QD);

　　END;

　　評級日期:STRTONUM('1'+F10TEXT(ZLQ+6,8)-'-'),COLOREEEEEE,LINETHICK;

　　強烈看漲:QZ,COLORFF,LINETHICK;

　　看漲:KZ,COLORFF00FF,LINETHICK;

　　看平:KP,COLORFFFF,LINETHICK;

　　看跌:DK,COLORFFFF00,LINETHICK;

　　強烈看跌:QD,COLORFF00,LINETHICK;

　　DRAWTEXT(BARPOS=SYSPARAM(2),10,XSNR),COLOR96FE33,ALIGN4;

　　//

　　// NRT:=RTRIM(LTRIM(IF(j<=3,STRLEFT(NR,68), IF(j=4,STRMID(NR,STRFIND(NR,'┤',20)+1,76),STRLEFT(NR,76)))));

上一頁(yè)  [1] [2]