目的是在不打开F10的情况,能了解到F10大概内容
大智慧F10目录下必须有万国F10文本
{F10标题-万国测评}
A1:=F10FIND('●',F10FIND('◆ 八面来风 ◆',1));
DRAWTEXTABS(5,0,'八面来风 '+F10TEXT(A1,0)),COLORGREEN;
B1:=F10FIND('●',F10FIND('◆ 信息快讯 ◆',1));
DRAWTEXTABS(5,15,'信息快讯 '+F10TEXT(B1,0)),COLORGREEN;
C1:=F10FIND('●',F10FIND('◆研报摘要◆',1));
C2:=F10FIND('◆同行业研报摘要◆',1);
C3:=IF(C1-C2<0,C1,C2-80);}
DRAWTEXTABS(5,30,'研报摘要 '+F10TEXT(C3,0)),COLORGREEN;
D1:=F10FIND('●',F10FIND('◆ 行业新闻 ◆',1));
DRAWTEXTABS(5,45,'行业新闻 '+F10TEXT(D1,0)),COLORGREEN;
E1:=F10FIND(STKLABEL,F10FIND('净资产收 排名',F10FIND('◆ 行业地位 ◆',1)));
E2:=F10FIND('截止日期:',F10FIND('◆ 行业地位 ◆',1));
E3:=F10FIND('证监会行业',F10FIND('◆ 行业地位 ◆',1));
E4:=F10FIND('共',F10FIND('证监会行业',F10FIND('◆ 行业地位 ◆',1)));
DRAWTEXTABS(5,60,'行业地位 ●'+F10TEXT(E2+9,0)+' 净资产收益率-排名 '+STRRIGHT(F10TEXT(E1,0),4)+' '+F10TEXT(E4,E2-E4-1)+' '+F10TEXT(E3,E4-E3)),COLORGREEN;
F1:=F10FIND('预测PEG',F10FIND('◆ 盈利预测 ◆',1));
PEG:=STRTONUM(F10TEXT(F1+59,4));
F2:=F10FIND('净利润环比增长(%)',F10FIND('◆ 季度财务状况 ◆',1));
F3:=STRTONUM(STRMID(F10TEXT(F2,0),28,8));{净利润环比};
F4:=F10FIND('两年复合增长率',F10FIND('◆ 盈利预测 ◆',1));
F5:=STRTONUM(F10TEXT(F4+56,7));{两年复合增长率}
DRAWTEXTABS(5,75,'当前业绩 ●'+'PEG:'+NUMTOSTR(PEG)+' 两年复增:'+NUMTOSTRN(F5,2)+' 净利环比:'+NUMTOSTR(F3)+' 同比:'+NUMTOSTRN(FINANCE2(10),2)+' 毛利:'+NUMTOSTRN(FINANCE2(12),2)+' '+F10TEXT(F10FIND('分配预案:',1),0)),COLORGREEN;