目的是在不打开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;  |
