- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2006-10-26
|
|
依然能不能把这个公式:
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;
整合在这个公式中...
{五日换手和}
换手率:=VOL/FINANCE(7);
换手率和:=SUM(换手率,5);
{解盘}
if DISPSTATUS=2 then drawtextrel(100,40,bkname),VALIGN0,COLORCYAN;{板块}
if DISPSTATUS=2 then drawtextrel(100,75,'流通 '+NUMTOSTRN(FINANCE(7),0)+'万 '{资料}
+'每股收益 '+NUMTOSTRN(FINANCE(33),2)+'元 '{资料}
+'净资收益率 '+NUMTOSTRN(FINANCE(37),2)+'% '{资料}
+'主营增长 '+NUMTOSTRN(FINANCE(53),2)+'% '{资料}
+'利润增长 '+NUMTOSTRN(FINANCE(54),0)+'%'{资料}
),VALIGN0,COLORCYAN;
if DISPSTATUS=2 then drawtextrel(100,110,'主力持仓 '+NUMTOSTRN(SELFDATA('持仓率'),2)+'% '{资料}
+'三周增仓 '+NUMTOSTRN(SELFDATA('三周增仓'),2)+'% '{资料}
+'上周增仓 '+NUMTOSTRN(SELFDATA('上周增仓'),2)+'% '{资料}
+'基金持股数 '+NUMTOSTRN(SELFDATA('持股数'),2)+'千万 '{资料}
+'基金持股 '+NUMTOSTRN(SELFDATA('持股率'),2)+'% '{资料}
),VALIGN0,COLORCYAN;
if DISPSTATUS=2 then drawtextrel(100,145,'当天增减 '+NUMTOSTRN("主力持筹.当天增减",0)+' '{主力动态}
+'主力仓量 '+NUMTOSTRN("主力持筹.主力仓量",0)+' '
+'获利盘 '+NUMTOSTRN(winner(c)*100,0)+'% '
+'五天换手 '+NUMTOSTRN(换手率和,0)+'% '{五日换手}
),VALIGN0,COLORCYAN;
if DISPSTATUS=2 then drawtextrel(100,180,'三天增减 '+NUMTOSTRN("主力持筹.三天增减",0)+' '),VALIGN0,COLORCYAN;{主力动态}
if DISPSTATUS=2 then drawtextrel(100,215,'五天增减 '+NUMTOSTRN("主力持筹.五天增减",0)+' '),VALIGN0,COLORCYAN;{主力动态}
if DISPSTATUS=2 then drawtextrel(100,250,'十天增减 '+NUMTOSTRN("主力持筹.十天增减",0)+' '),VALIGN0,COLORCYAN;{主力动态}
if DISPSTATUS=2 then drawtextrel(100,285,'廿天增减 '+NUMTOSTRN("主力持筹.廿天增减",0)+' '),VALIGN0,COLORCYAN;{主力动态};
谢谢了...这是大智慧的. |
|
|