软件名称：[B]控盘情况（一发千钧飞狐副图 从F10中提取资料）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2010-10-21 10:44:34
软件简介:

运作评台：飞狐交易师，F10--------<聚源资讯>。
{一发千钧飞狐副图}
a:=F10FIND('【十大流通股东】:',1);a0:=F10FIND('主要指标:',1);
c0:=F10FIND('控盘情况:',a0);hs:=F10FIND('总户数',500);
IF c0>0 THEN BEGIN
bb:=F10TEXT(c0+196,12);bb0:=F10TEXT(c0+9,63);bb1:=F10TEXT(c0+72,63);
bb2:=F10TEXT(c0+134,63);bb3:=F10TEXT(c0+196,63);bb4:=F10TEXT(c0+258,63);
bb5:=F10TEXT(c0+319,63);bb6:=F10TEXT(c0+382,63);bb7:=F10TEXT(c0+445,63);
q1:=F10FIND('201',hs+10);q2:=F10FIND('20',q1+50);//201,40
g1:=LTRIM(F10TEXT(q1+14,10));g2:=LTRIM(F10TEXT(q2+14,10));
gd1:=STRTONUM(g1);gd2:=STRTONUM(g2);户数差:=gd1-gd2;
DRAWTEXTex(户数差<0,1,740,130,'市场筹码较上期集中'),color0000FF;
DRAWTEXTex(户数差>0,1,740,130,'市场筹码较上期分散'),color00FF00;
DRAWTEXTEX(c,1,670,0,'报表日期:'+bb+'日'+'   控盘情况');
DRAWTEXTEX(c,1,610,200,''+bb0+' \n'+bb1+' \n'+bb2+' \n'+bb3+' \n'
+bb4+' \n'+bb5+' \n'+bb6+' \n'+bb7+''),COLOR00DDDD;
END;
QSq:=F10FIND('按照资产负债率排名',5000);QSZ:=F10FIND('按照每股收益排名',5000);
GD:=STRTONUM(STRRIGHT(F10TEXT(F10FIND('占流通A股比例:',500),22),8));
a1:=F10FIND(' 1│',a);a2:=F10FIND(' 2│',a1);a3:=F10FIND(' 3│',a2);
a4:=F10FIND(' 4│',a3);a5:=F10FIND(' 5│',a4);a6:=F10FIND(' 6│',a5);
a7:=F10FIND(' 7│',a6);a8:=F10FIND(' 8│',a7);a9:=F10FIND(' 9│',a8);
a10:=F10FIND('10│',a9);hj:=FINANCE(7)/gd1;
DRAWTEXTEX(C,1,130,0,''+F10TEXT(a1,0)+'\n'+F10TEXT(a2,0)+'\n'+F10TEXT(a3,0)
+'\n'+F10TEXT(a4,0)+'\n'+F10TEXT(a5,0)+'\n'+F10TEXT(a6,0)+'\n'+F10TEXT(a7,0)
+'\n'+F10TEXT(a8,0)+'\n'+F10TEXT(a9,0)+'\n'+F10TEXT(a10,0)),color00DDDD;
DRAWTEXTEX(C,1,0,10,'证券代码: '+STKLABEL+'\n\n证券名称:'+STKNAME),color00DDDD;
DRAWTEXTEX(c,1,0,220,'每股收益:'+'第 '+F10TEXT(QSz+50,0)+' 位'),ColorAAAAAA;
DRAWTEXTEX(c,1,0,330,'资产负债:'+'第 '+F10TEXT(QSq+52,0)+' 位'),ColorAAAAAA;
DRAWTEXTEX(C,1,0,440,'流通/户数:'+NUMTOSTR(hj,2)+'万股'),ColorAAAAAA;
DRAWTEXTEX(C,1,0,550,'流通/股东:'+NUMTOSTR(GD,2)+' %'),ColorAAAAAA;
DRAWTEXTEX(C,1,0,660,''+IF(户数差<0,'户数减少:'+NUMTOSTR(abs(户数差),0)+'户','')),Color0000FF;
DRAWTEXTEX(C,1,0,660,''+IF(户数差>0,'户数增加:'+NUMTOSTR(户数差,0)+'户','')),Color00FF00;
//
 

[url=http://www.70822.com/soft/sort013/sort02/down-26277.html]控盘情况（一发千钧飞狐副图 从F10中提取资料）[/url]