前些日子,有人利用万国F10编的公式(利用三季报),可看股东户数,户均持股,前十大股东持仓量(比率,数量),但现在年报已公布,万国F10结构稍有改变,发上原公式,请修改适应现在的F10, 非常谢谢。。。。
F10资料
VARIABLE:TT[4]='STR',持股[4]=0,比例[4]=0,变化[4]=0; F10:=IF(F10FIND('万国测评制作',1)>0,1,0); HW1:=F10FIND('每股收益',50); QSW:=F10FIND('◆ 控盘情况 ◆',500); QSW1:=F10FIND('出]☆',1000)+120; JSW1:=F10FIND('红]☆',QSW1+300)-80;
{F10数据查找} IF F10=1 AND QSW>0 AND QSW1>0 AND JSW1>0 THEN{万国测评的资料是否完整,不完整就什么都不做} BEGIN {年报TIP} f10str:=f10text(HW1,1024); 三季收益 := strmid(f10str,23-3,6); HW2:=strfind(f10str,'每股净资产',1); 净资产:= strmid(f10str,HW2+22-3,6); HW3:=strfind(f10str,'预计年报公布日' ,HW2+80); if(HW3>0) then begin 年报日:= strmid(f10str,HW3+18-3,10); end; {控盘情况数据栏数据提取} f10str:=f10text(QSW,320); WZ1:=strfind(f10str,'-',0)-4; WZ2:=strfind(f10str,'-',WZ1+10)-4; WZ3:=strfind(f10str,'-',WZ2+10)-4; WZ4:=strfind(f10str,'-',WZ3+10)-4; WZ5:=F10FIND('◆ 概念题材',WZ1);{查找结束位} {取时间} T1:= strmid(f10str,WZ1,10); T2:= strmid(f10str,WZ2,10); T3:=strmid(f10str,WZ3,10); T4:= strmid(f10str,WZ4,10); {取股东户数} LS:=138; HS1:=STRTONUM(strmid(f10str,WZ1+LS,10)); HS2:=IF(WZ2<WZ5,STRTONUM(strmid(f10str,WZ2+LS,10)),0); HS3:=IF(WZ3<WZ5,STRTONUM(strmid(f10str,WZ3+LS,10)),0); HS4:=IF(WZ4<WZ5,STRTONUM(strmid(f10str,WZ4+LS,10)),0); {取户均持股数} LS:=208; RS1:=STRTONUM(strmid(f10str,WZ1+LS,10)); RS2:=IF(WZ2<WZ5 AND HS2>100,STRTONUM(strmid(f10str,WZ2+LS,10)),0); RS3:=IF(WZ3<WZ5 AND HS3>100,STRTONUM(strmid(f10str,WZ3+LS,10)),0); RS4:=IF(WZ4<WZ5 AND HS4>100,STRTONUM(strmid(f10str,WZ4+LS,10)),0); {大股东数据查找} f10str:=f10text(QSW1,JSW1-QSW1); HJW:=0; {for 循环很慢无法忍受,换成下面的展开 FOR i=1 to 4 DO BEGIN SJT:=strfind(f10str,'占流通股',HJW+16); if SJT<0 OR SJT > JSW1 THEN BREAK; TT:=strmid(f10str,SJT-(44-21),10); HJW:=strfind(f10str,'总 计',SJT+300); 持股:=strtonum(strmid(f10str,HJW+6,44-12)); 比例:= strtonum(strmid(f10str,HJW+6+45-12,51-45)); ABC:=HJW+80-5+36; HJW:=ABC; END; } SJT:=strfind(f10str,'占流通股',HJW+15); TT1:=strmid(f10str,SJT-(45-21),10);{时间} HJW:=strfind(f10str,'总 计',SJT+300); 持股[1]:=strtonum(strmid(f10str,HJW+6,44-12)); 比例[1]:= strtonum(strmid(f10str,HJW+6+45-12,51-45)); ABC:=HJW+80-5+36; HJW:=ABC; SJT:=strfind(f10str,'占流通股',HJW+15); TT2:=strmid(f10str,SJT-(45-21),10);{时间} HJW:=strfind(f10str,'总 计',SJT+300); 持股[2]:=strtonum(strmid(f10str,HJW+6,44-12)); 比例[2]:= strtonum(strmid(f10str,HJW+6+45-12,51-45)); ABC:=HJW+80-5+36; HJW:=ABC; SJT:=strfind(f10str,'占流通股',HJW+15); TT3:=strmid(f10str,SJT-(45-21),10);{时间} HJW:=strfind(f10str,'总 计',SJT+300); 持股[3]:=strtonum(strmid(f10str,HJW+6,44-12)); 比例[3]:= strtonum(strmid(f10str,HJW+6+45-12,51-45)); ABC:=HJW+80-5+36;
|