F10公式《投资评级》 FOR Wind

以前见到的是这个版本：投资评级-知道各家投资机构，对你手中的个股持什么态度

F10公式《投资评级》 FOR Wind

公式适用于Wind的F10资料，可以选股。
由于原公式中的查找语句有点过时，特作调整。——2008.02.01

{投资评级--Wind}
M1:=MA(C,21);
DRAWGBK(C>M1, COLORRGB(110,0,0), COLORRGB(0,0,0),0); {收阳变红}
DRAWGBK(C<M1, COLORRGB(0,110,0), COLORRGB(0,0,0),0); {收阴变绿}
//确定F10种类
F10:=IF(F10FIND('万国测评制作',1)>0,1,IF(F10FIND('Wind资讯就是',1)>0,2,IF(F10FIND('鹏搏资讯',1)>0,3,IF(F10FIND('◇港澳资讯',1)>0,4,0))));
//[投资评级]
IF NOT(F10=2) THEN EXIT;//非Wind退出
ZLW:=F10FIND('[投资评级]',F10FIND('[投资评级]',500)+100);
IF ZLW<0 THEN EXIT;//没找到退出
ZLQ:=F10FIND('截止200',ZLW+10);
ZLEND:=F10FIND('─────────────────────────────────────',ZLQ+100);
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)))));