可方便的看到股本的变化次数及限shou的状况..........
{股本结构--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股限shou',GDW0+22),LINETHICK;
GDW4A:=F10FIND('流通A股限shou',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  本期限shou股本:'+GDT4+'   \n  \n  本期实际流通A股:'+GDT5),COLORGREEN;//现日期
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,505,4,'  上期总股本:'+GDT2A+' \n  \n  上期流通股本:'+GDT3A+' \n  \n  上期限shou股本:'+GDT4A+'   \n  \n  上期实际流通A股:'+GDT5A),COLORYELLOW;//前日期
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,135,96,'  本期时间:'+GDT1),COLORWHITE;//现日期
DRAWTEXTEX(SYSPARAM(3)=BARPOS,0,505,96,'  上期时间:'+GDT1A),COLORWHITE;//前日期


//