⊙5#股本结构----F10指标
可方便的看到股本的变化次数及限售的状况..........
{股本结构--Wind}
//确定F10种类
F10:=IF(F10FIND('Wind资讯就是',1)>0,2,0);
IF F10=0 THEN EXIT;//非Wind资讯退出
{历史流通盘历次变更}
QSW:=F10FIND('股本结构→',1000);//起
LTW:=F10FIND('├────',F10FIND('【2:历次变更状况】',QSW+150))+74;//取起始行位置
IF LTW<0 THEN EXIT;
JSW:=F10FIND('└────',LTW+100);//取尾部行位置
FHS:=CEILING((JSW-LTW)/74),LINETHICK;//数据行数
JS:=1;
VARIABLE:GBW[FHS]=0,GBT[FHS]='STR',GBS[FHS]='STR';
HW:=0;
FOR j=1 TO FHS DO BEGIN
HW:=F10FIND('｜',IF(j=1,LTW,HW+74));//取字符串所在位置
IF HW>JSW THEN BREAK;//超出尾部行位置跳出循环
LS:=2;
SJT:=F10TEXT(HW+LS,10);//取时间字符串
IF j<FHS AND STRLEN(LTRIM(RTRIM(SJT)))>4 THEN BEGIN
GBW[js]:=HW;
GBT[js]:=SJT;//时间
GBS[js]:=RTRIM(F10TEXT(HW+30,10));//取流通股字符串
JS:=JS+1;
END;
END;
JS:=JS-1;
历史流通股本变动次数:IF(STRTONUM(GBS[JS])=0,JS-1,JS),LINETHICK,ColorFFB9FF;
{股本结构}
GDW0:=F10FIND('三、股本结构',100),LINETHICK;
GDW1:=F10FIND('单位(万股)',GDW0+24),LINETHICK;
GDW1A:=F10FIND('单位(万股)',GDW0+36),LINETHICK;
GDW2:=F10FIND('总股本',GDW0+24),LINETHICK;
GDW2A:=F10FIND('总股本',GDW0+36),LINETHICK;
GDW3:=F10FIND('流通股本',GDW0+24),LINETHICK;
GDW3A:=F10FIND('流通股本',GDW0+22),LINETHICK;
GDW4:=F10FIND('流通A股限售',GDW0+22),LINETHICK;
GDW4A:=F10FIND('流通A股限售',GDW0+34),LINETHICK;
GDW5:=F10FIND('实际流通A股',GDW0+24),LINETHICK;
GDW5A:=F10FIND('实际流通A股',GDW0+36),LINETHICK;
GDT1:=F10TEXT(GDW1+24,10);
GDT1A:=F10TEXT(GDW1A+36,10);
GDT2:=F10TEXT(GDW2+24,10);
GDT2A:=F10TEXT(GDW2A+36,10);
GDT3:=F10TEXT(GDW3+24,10);
GDT3A:=F10TEXT(GDW3A+36,10);
GDT4:=F10TEXT(GDW4+22,10);
GDT4A:=F10TEXT(GDW4A+34,10);
GDT5:=F10TEXT(GDW5+24,10);
GDT5A:=F10TEXT(GDW5A+36,10);
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,135,4,'本期总股本:'+GDT2+' \n\n本期流通股本:'+GDT3+' \n\n本期限售股本:'+GDT4+' \n\n本期实际流通A股:'+GDT5),COLORGREEN;//现日期
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,505,4,'上期总股本:'+GDT2A+' \n\n上期流通股本:'+GDT3A+' \n\n上期限售股本:'+GDT4A+' \n\n上期实际流通A股:'+GDT5A),COLORYELLOW;//前日期
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,135,96,'本期时间:'+GDT1),COLORWHITE;//现日期
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,505,96,'上期时间:'+GDT1A),COLORWHITE;//前日期
//{点击看本软件截图：58股票 公式网 http://www. 58gu. com 整理} |
