券商持股 - 分析家公式网

分析家公式网,提供指标公式,股票软件用户登录 |

当前位置：分析家公式网 → 股票公式 → 飞狐公式 → 一键转帖：券商持股

软件名称：[B]券商持股[/B]
软件类型：国产软件
运行环境：Win9X/2000/XP/2003/
软件语言：简体中文
授权方式：解密版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2008-09-19 07:45:47
软件简介:

{券商持股--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;
//

[url=http://www.70822.com/soft/sort013/sort02/down-356.html]券商持股[/url]