- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2004-11-14
|
|
今晚刚写好的,大家用用看,遗憾的是万国的F10更新的不太及时。
{大智慧L2--万国F10本行业排名}
hydw:=f10find('◆ 行业地位 ◆',1000);
gxsj:=f10find('◇万国测评制作:',hydw);
zjsj:=f10text(gxsj,36);
{取行业}
hydw1:=f10find('所属行业:',hydw+1);
hydw3:=f10find('证监会行业:',hydw1+1);
hydw2:=f10find('截止日期:',hydw3+1);
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);
pm:=strtonum(strright(f10str,3));
{取净利润排名}
gpszh1:=f10find(STKLABEL,mgsy1);
pm1:=strtonum(f10text(gpszh1+56,3));
{--------图解模版---------}
DRAWTEXTREL(300,10,sj+' '+zjsj),ALIGN1,COLORRED;
DRAWTEXTREL(300,110,zjh),ALIGN1,COLORRED;
DRAWTEXTREL(350,210,dm+' 每股收益在本行业内排第 '+pm+' 位'+' 净利润在本行业内排第 '+pm1+' 位'),ALIGN1,COLORRED; |
|
|