万国测评制作控盘持股情况

3106 5
设置
554639 Lv.2

专栏

发表于 2007-7-25 20:55 复制 显示全部楼层 正序浏览 |
跳转到指定楼层
VARIABLE:TT[4]='STR',持股[4]=0,比例[4]=0,变化[4]=0;
F10:=IF(F10FIND('万国测评制作',1)>0,1,0);
QSW:=F10FIND('◆ 控盘情况 ◆',100);
QSW1:=F10FIND('出]☆',1000)+120;
JSW1:=F10FIND('红]☆',QSW1+300)-80;
{F10数据查找}

BEGIN
{控盘情况数据栏数据提取}
  f10str:=f10text(QSW,320);
  WZ1:=strfind(f10str,'-',0)-5;
  WZ2:=strfind(f10str,'-',WZ1+10)-5;
  WZ3:=strfind(f10str,'-',WZ2+10)-5;
  WZ4:=strfind(f10str,'-',WZ3+10)-5;
  WZ5:=320;{查找结束位}
  {取时间}
  T1:= strmid(f10str,WZ1,10);
  T2:= strmid(f10str,WZ2,10);
  T3:=strmid(f10str,WZ3,10);
  T4:= strmid(f10str,WZ4,10);
  {取股东户数}
  LS:=142;
  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:=205;
  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 i=1 to 4 DO
  BEGIN
     SJT:=strfind(f10str,'占流通股',HJW+15);
     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);
   TT[1]:=strmid(f10str,SJT-(44-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);
   TT[2]:=strmid(f10str,SJT-(44-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);
   TT[3]:=strmid(f10str,SJT-(44-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;
         HJW:=ABC;
   SJT:=strfind(f10str,'占流通股',HJW+15);
   TT[4]:=strmid(f10str,SJT-(44-21),10);{时间}
   HJW:=strfind(f10str,'总  计',SJT+300);
         持股[4]:=strtonum(strmid(f10str,HJW+6,44-12));
         比例[4]:= strtonum(strmid(f10str,HJW+6+45-12,51-45));
         ABC:=HJW+80-5+36;
         HJW:=ABC;
当期:=持股[1];
当期1:=比例[1];
上期:=持股[2];
上期1:=比例[2];
±比例:=当期1-上期1;
前二:=持股[3];
前二1:=比例[3];
前三:=持股[4];
前三1:=比例[4];
{将变化持股数对应显示在对应位置}
{排序}
股东增幅:(HS1-HS2)/HS2*100,PRECIS2,linethick2,Color008987;
持股增幅:(RS1-RS2)/RS2*100,PRECIS2,linethick2,COLORRED;
主力增幅:(当期-上期)/上期*100,PRECIS2,LINETHICK2,ColorFA7D7D;
主力流通:(当期-上期1)/当期1*100,PRECIS2,LINETHICK2,ColorFFA935;

A2:=0;
A3:=1000;
AG:=INTPART((A3-A2)/10);
{显示文字}
DRAWTEXTREL(0,AG*0,'户均持股'),ColorFFC800;
DRAWTEXTREL(0,AG*2,'股东户数'),ColorFA7D7D;
DRAWTEXTREL(0,AG*4,'主力占流通%'),ColorFA7D7D;
DRAWTEXTREL(0,AG*6,'主力持股数(万)'),ColorFA7D7D;
DRAWTEXTREL(0,AG*8,'报表时间'),COLOR00DD00;

{户均持股}
DRAWTEXTREL(AG*8,0,NUMTOSTR(RS1 )),ALIGN2,ColorFFC800;
DRAWTEXTREL(AG*6,0,NUMTOSTR(RS2 )),ALIGN2,ColorFFC800;
DRAWTEXTREL(AG*4,0,NUMTOSTR(RS3 )),ALIGN2,ColorFFC800;
DRAWTEXTREL(AG*2,0,NUMTOSTR(RS4 )),ALIGN2,ColorFFC800;

{股东户数}
DRAWTEXTREL(AG*8,AG*2,NUMTOSTR(HS1)),ALIGN2,ColorFA7D7D;
DRAWTEXTREL(AG*6,AG*2,NUMTOSTR(HS2)),ALIGN2,ColorFA7D7D;
DRAWTEXTREL(AG*4,AG*2,NUMTOSTR(HS3)),ALIGN2,ColorFA7D7D;
DRAWTEXTREL(AG*2,AG*2,NUMTOSTR(HS4)),ALIGN2,ColorFA7D7D;
{主力占流通比}
DRAWTEXTREL(AG*8,AG*4,NUMTOSTR(当期1)),ALIGN2,COLORMAGENTA;
DRAWTEXTREL(AG*6,AG*4,NUMTOSTR(上期1)),ALIGN2,COLORMAGENTA;
DRAWTEXTREL(AG*4,AG*4,NUMTOSTR(前二1)),ALIGN2,COLORMAGENTA;
DRAWTEXTREL(AG*2,AG*4,NUMTOSTR(前三1)),ALIGN2,COLORMAGENTA;
{10大股东持股}
DRAWTEXTREL(AG*8,AG*6,NUMTOSTR(当期)),ALIGN2,COLORRED;
DRAWTEXTREL(AG*6,AG*6,NUMTOSTR(上期)),ALIGN2,COLORRED;
DRAWTEXTREL(AG*4,AG*6,NUMTOSTR(前二)),ALIGN2,COLORRED;
DRAWTEXTREL(AG*2,AG*6,NUMTOSTR(前三)),ALIGN2,COLORRED;
{时间}
DRAWTEXTREL(AG*8,AG*8,T1),ALIGN2,COLOR00DD00;
DRAWTEXTREL(AG*6,AG*8,T2),ALIGN2,COLOR00DD00;
DRAWTEXTREL(AG*4,AG*8,T3),ALIGN2,COLOR00DD00;
DRAWTEXTREL(AG*2,AG*8,T4),ALIGN2,COLOR00DD00;
{柱线}
{持股数柱线}
STICKLINE(BARPOS=A3-AG*1-10 AND HS1>100,0,RS1,AG*3,1),LINETHICK2,ColorFFDDFF;
STICKLINE(BARPOS=A3-AG*2-15 AND HS2>100,0,RS2,AG*3,1),LINETHICK2,ColorF1FFB5;
STICKLINE(BARPOS=A3-AG*3-20 AND HS3>100,0,RS3,AG*3,1),LINETHICK2,ColorB9FFBC;
STICKLINE(BARPOS=A3-AG*4-25 AND HS4>100,0,RS4,AG*3,1),LINETHICK2,ColorB9FFFF;
{10大股东画柱线}
STICKLINE(BARPOS=A3-AG*1-6  AND 当期>0,0,当期,AG*3,0),LINETHICK2,ColorFFDDFF;
STICKLINE(BARPOS=A3-AG*2-11 AND 上期>0,0,上期,AG*3,0),LINETHICK2,ColorF1FFB5;
STICKLINE(BARPOS=A3-AG*3-16 AND 前二>0,0,前二,AG*3,0),LINETHICK2,ColorB9FFBC;
STICKLINE(BARPOS=A3-AG*4-21 AND 前三>0,0,前三,AG*3,0),LINETHICK2,ColorB9FFFF;
END;
来自 安徽省安庆市

举报

使用道具 扔鸡蛋 回复

393770
Lv.3

专栏

发表于 2007-7-26 05:41 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 广东省佛山市

举报

使用道具 点亮 支持 扔鸡蛋 回复

975393
Lv.3

专栏

发表于 2007-7-26 01:12 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 黑龙江省齐齐哈尔市

举报

使用道具 点亮 支持 扔鸡蛋 回复

948594
Lv.2

专栏

发表于 2007-7-25 23:52 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 上海市

举报

使用道具 支持 扔鸡蛋 回复

1010163
Lv.1

专栏

发表于 2007-7-25 22:19 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 吉林省延边州

举报

使用道具 支持 扔鸡蛋 回复

943254
Lv.2

专栏

发表于 2007-7-25 21:59 复制 查看全部楼层
游客,您是(游客)级别,无法查看回复内容,请登录论坛并到新手区学习升级之后才能查看。升级指南请看...
来自 河南省焦作市

举报

使用道具 支持 扔鸡蛋 回复

您需要登录后才可以回帖 登录

本版积分规则 《理想财富服务协议》《免责声明》

楼主
6楼
5楼
4楼
3楼
2楼
优惠券
优惠券
站长推荐 /8
回顶部 到页底
快速回复 返回顶部 返回列表