该公式适用于Wind的F10资料,是对于股票基本面查找的帮手。
复制内容到剪贴板
代码:
{评级寻星--Wind八步看股}
INPUT:XM(0,0,8),N(5,1,5);//星的个数
QSW:=F10FIND('【2:八步看股】',100);
IF QSW<0 THEN EXIT;
ZTW:=F10FIND('整体评级',QSW+30);
WZT:=F10FIND(':',ZTW+100);
VARIABLE:FXPJ[8]='STR';
FOR i=1 TO 8 DO BEGIN
FXPJ[i]:=F10TEXT(WZT-12,24);
WZT:=F10FIND(':',WZT+20);
END;
VarT:=IF(XM=0,F10TEXT(ZTW,20),FXPJ[XM]);
VarX:=IF(N=5,'★★★★★',IF(N=4,'★★★★',IF(N=3,'★★★',IF(N=2,'★★','★'))));
TJ:STRFIND(VarT,VarX,1),LINETHICK;
DRAWTEXT(BARPOS=SYSPARAM(2),5,VarT);
{参数精灵:
评级项目选择:Param#1(0-8)
0-整体评级 1-优势分析 2-主力分析
3-行业分析 4-估值分析 5-财务分析
6-技术分析 7-回报分析 8-变数分析
评级星在Param#2个以上