{券商持股--Wind}
//确定F10种类
F10:=2;
//F10数据查找
QSW:=F10FIND('股东进出】 <<占流通股比例区',1000);//起
IF QSW<0 THEN EXIT;//没找到退出
SJT:=F10FIND('流通股东名',QSW+50);//取日期位置1

IF SJT>0 THEN BEGIN

RQZ:=LTRIM(RTRIM(F10TEXT(SJT+(-145),12)));//时间
TT:=F10FIND('券商持股(万股)',1000);
DC:=STRTONUM(F10TEXT(TT+20,0));//当期
QC:=STRTONUM(F10TEXT(TT+34,0));//前期
ZJE:=(DC-QC);

DRAWGBK(ZJE>0, COLORRGB(150,80,0), COLORRGB(0,0,0),1); {增仓变红}
DRAWGBK(ZJE<0, COLORRGB(0,50,110), COLORRGB(0,0,0),1); {减仓变绿}

JSW:=F10FIND('总  计',SJT+200);//取结尾
KG1:=' \n';
KG2:='   ';//空格
GDS:='十大流通股东中包括：';//显示
JS:=1;//计数
{查找当期明细}
JS1:=0;JS2:=0;
VARIABLE:GDW[10]=0,GDT[10]='',DQCG[10]='STR',ZJT[10]='STR';
FOR i=1 TO 10 DO BEGIN
   XH:=RTRIM(LTRIM(NUMTOSTR(i,0)));//将i转换为字符的序号
   GDW:=IF(i=1,F10FIND('1',SJT+100),F10FIND(IF(F10=2 AND i=10,'',' ')+XH,GDW[i-1]+74));//取字符串所在位置
   IF GDW>JSW THEN BREAK;//越过“总计”退出
   LS:=IF(i=1,1,2);
   IF i<11 THEN TMP:=F10TEXT(GDW+LS,30);//取字符串
   IF (STRFIND(TMP,'证券股份',1)>0 or STRFIND(TMP,'证券有限',1)>0) THEN BEGIN
      GDT:=TMP;//取字符串
      JS1:=JS1+1;//统计证券公司家数
      DQCG:=STRRIGHT('        '+LTRIM(NUMTOSTR(STRTONUM(LTRIM(STRRIGHT(F10TEXT(GDW+27,16),12))),2)),10);
      ZJT:=STRRIGHT('    '+RTRIM(LTRIM(STRLEFT(F10TEXT(GDW+54,12),8))),9);
      GDT:=IF(JS<10,' ','')+NUMTOSTR(JS,0)+STRLEFT(LTRIM(GDT),9)+DQCG+'  '+ZJT;
      GDS:=GDS+KG1+GDT;
      JS:=JS+1;
   END;
END;

截止日期:STRTONUM('1'+STRRIGHT(STRLEFT(RQZ,4),2)+STRRIGHT('0'+NUMTOSTR(STRTONUM(STRMID(RQZ,6,2)),0),2)+STRMID(RQZ,STRFIND(RQZ,'-',6)+1,2)),LINETHICK;
家数:JS1,COLORDDAAAA,LINETHICK;
券商持股:DC,COLOREEFF,LINETHICK;
前期持股:QC,PRECISION2,COLOREE00,LINETHICK;
增减额:ZJE,COLORFFFF00,LINETHICK;//(券商持股-前期持股)
持仓率:(券商持股/CAPITAL)*10000,PRECISION2,COLORAFFF,LINETHICK;

DRAWTEXT(BARPOS=SYSPARAM(2),10,GDS),COLORCCFF,ALIGN4;
END;

{主力动向速览}
ZLW:=F10FIND('主力动向速览',500);
ZLQ:=F10FIND('┌',ZLW-100);
ZLQ1:=F10FIND('┐',ZLQ-100);
ZLEND:=F10FIND('┘',ZLQ+100);
SS:=FLOOR((ZLEND+2-ZLQ)/(ZLQ1-ZLQ+2));
NR:=RTRIM(F10TEXT(ZLQ,ZLEND+2-ZLQ));
KG:='                                                    ';
KG:=STRLEFT(KG,36);
XSNR:='';
FOR j=1 TO SS DO BEGIN
   NRT:=RTRIM(LTRIM(IF(j<=3,STRLEFT(NR,74), IF(j=4,STRMID(NR,STRFIND(NR,'┤',20)+1,76),STRLEFT(NR,76)))));
   XSNR:=XSNR+IF(j=1,'',' \n')+KG+NRT;
   NR:=LTRIM(STRMID(NR,75,0));
END;
DRAWTEXT(BARPOS=SYSPARAM(2),10,XSNR),COLORA9FE63,ALIGN4;

{上季以来均价}
BJ:=ROUND(MONTH/3+0.3);JB:=BJ-REF(BJ,1)<>0 OR BARPOS=1;季:=SUMBARS(JB,1)LINETHICK;J0:=SUMBARS(JB,2);
起点:=DATACOUNT-J0[DATACOUNT]+1;
CBZQ:=IF(起点=1,0,BARSSINCE(BARPOS>=起点));
平均成本:SUM(AMOUNT,CBZQ)/SUM(VOL,CBZQ)/100,COLOR6000FF,LINETHICK;
//