- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2007-4-4
|
|
原帖由 lymanqun 于 2007-4-4 15:16 发表 
就是我前几天发的,只有这种文本:
谢谢,这个版本大智慧L2本身就可以显示出来,不知谁有带06EPS和07EPS的版本?
{大智慧L2--主图评级}
t1:=EXTRASTRING('评级');
t06:=strfind(t1,'06年',1);
t07:=strfind(t1,'07年',1);
if t07>0 then
begin
t3:=strfind(t1,';',t07);
eps07:=strmid(t1,t07+3,t3-t07-4);
pe07:=', 07PE=';
pe07:=pe07+numtostrn(c/strtonum(eps07),2);
t2:=strfind(t1,';',t06);
end
else
begin
pe07:='';
t2:=strfind(t1,'(',t06)-1;
end;
if t06>0 then
begin
eps06:=strmid(t1,t06+3,t2-t06-4);
pe06:=', 06PE=';
pe06:=pe06+numtostrn(c/strtonum(eps06),1);
end
else
pe06:='';
outstr:=EXTRASTRING('评级')
+ pe06 + pe07 + ', 公告EPS='+numtostrn(finance(33),3);
if DISPSTATUS=2 then
DRAWTEXTABS(10,25,outstr),Color80FFFF,LINETHICK3;
但是很多显示不准确,位置也常常发生变化!
[ 本帖最后由 zhbsystem888 于 2007-4-4 15:48 编辑 ] |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
|
|