- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2007-4-4
|
|
再次更新！增加主营收入及净资产收益率排名，及综合排名（在本行业内），都可以排序，还是没有用for循环实现方便，可恶的分析家，for循环巨慢无比。（不知各位有没有什么解决办法？）
依然大哥！
请教主营收入同比增长、净利润同比增长、主营收入金额、每股收益、净利润金额、净资产收益，这几个在欧奈尔模型中的权重各是多少啊？我觉得要做综合排名就要用这个每项权重来综合计算。
{大智慧L2--万国F10本行业排名}
cpbd:=f10find('☆[操盘必读]☆',1);
zxzb:=f10find('◆ 最新指标',cpbd+1);
zxsjsj:=f10find('◇万国测评制作',cpbd+1);
hydw:=f10find('◆ 行业地位 ◆',1000);
gxsj:=f10find('◇万国测评制作:',hydw);
zjsj:=f10text(gxsj,36);
{取行业}
hydw1:=f10find('所属行业:',hydw+1);
hydw3:=f10find('证监会行业:',hydw1+1);
hydw2:=f10find('截止日期:',hydw3+1);
{万国测评的资料是否完整，不完整就什么都不做}{文本数据不足，退出}
IF hydw1>0 and hydw3>0 and hydw2>0 THEN
BEGIN
zjh:=f10text(hydw3,hydw2-hydw3);{证监会描叙段}
hydw4:=f10find('共',hydw3+1);
js:=strtonum(f10text(hydw4+2,3));{取行业内企业家数}
{取时间}
sj:=f10text(hydw2,19);
{取每股收益排名}
mgsy:=f10find('每股收益 排名',hydw2+1);
mgsy1:=f10find('净资产收 排名',mgsy+1);
{wz:=mgsy+164;
FOR i=1 to js DO BEGIN
if pm=1 then break;
f10str:=f10text(wz,73);
dm:=strleft(f10str,15);
pm:=strtonum(strright(f10str,3));
wz:=wz+4+73;
END;}
gpszh:=f10find(STKLABEL,mgsy);
f10str:=f10text(gpszh,73);
dm:=strleft(f10str,15);
每股收益排:strtonum(strright(f10str,3)),linethick0,PRECIS2,colorgray;
{取净利润排名}
gpszh1:=f10find(STKLABEL,mgsy1);
f10str1:=f10text(gpszh1,73);
净利润排:strtonum(f10text(gpszh1+56,3)),linethick0,PRECIS2,colorgray;
{取主营收入及净资产收益率排名}
主营收入排:strtonum(f10text(gpszh+56,3)),linethick0,precis2,colorgray;
净资产收益排:strtonum(strright(f10str1,3)),linethick0,precis2,colorgray;
综合排名值:每股收益排+净利润排+主营收入排+净资产收益排,linethick0,precis2,colorff00a0;
{取最新净利润同比增长率、主营收入同比增长率及净资产收益率及数据时间}
zytb:=f10find('主营收入同比增长',cpbd+1);
主营收入同比:strtonum(f10text(zytb+20,10)),linethick0,PRECIS2,colorgray;
jll:=f10find('净利润同比增长',zytb+1);
净利润同比:strtonum(f10text(jll+20,10)),linethick0,PRECIS2,colorgray;
jzc:=f10find('净资产收益率',jll+1);
净资产收益率:strtonum(f10text(jzc+20,10)),linethick0,precis2,colorgray;
zxsj:=f10text(zxzb,zxsjsj-5-zxzb);
gxsjy:=f10text(zxsjsj,34);
{--------图解模版---------}
DRAWTEXTREL(350,10,zxsj+' '+gxsjy),ALIGN1,COLORRED;
DRAWTEXTREL(350,110,'主营收入同比增长 '+主营收入同比+' ％'+' 净利润同比增长 '+净利润同比+' ％'+' 净资产收益率 '+净资产收益率+' ％'),ALIGN1,COLORRED;
DRAWTEXTREL(300,310,sj+' '+zjsj),ALIGN1,COLORRED;
DRAWTEXTREL(300,410,zjh),ALIGN1,COLORRED;
DRAWTEXTREL(350,510,'每股收益在本行业内排第 '+每股收益排+' 位 '+' 净利润金额在本行业内排第 '+净利润排+' 位'),ALIGN1,COLORRED;
DRAWTEXTREL(350,610,'主营收入在本行业内排第 '+主营收入排+' 位 '+' 净资产收益在本行业内排第 '+净资产收益排+' 位'),ALIGN1,COLORRED;
DRAWTEXTREL(500,810,dm+' 在本行业综合排名分值 '+综合排名值),ALIGN1,COLORff00a0,linethick4;
END;
[ 本帖最后由 zhbsystem888 于 2007-4-4 08:30 编辑 ] |
|
|
[复制链接]
发表于 2007-4-3 22:07
楼主
