【图】飞狐，鹏博F10公式

调整参数N就可看各期十大股东名单
飞狐，鹏博F10
源码：  [复制到剪贴板]
--------------------------------------------------------------------------------

input:n(1,1,4);
a:=F10FIND('三、股东情况',0);
if a<1 then EXIT;
AS1:=F10FIND('以上流通股合计(万股): ',a);
AS2:=F10FIND('以上流通股合计(万股): ',aS1+10);
AS3:=F10FIND('以上流通股合计(万股): ',aS2+10);
AS4:=F10FIND('以上流通股合计(万股): ',aS3+10);
aa:=if(n=1,F10FIND('㈠、十大股东 截止日期：',a),if(n=2,as1,if(n=3,as2,as3)));
as:=if(n=1,as1,if(n=2,as2,if(n=3,as3,as4)));  
aaa:=F10FIND('序号│股东名称                        ',aa);
a1:=F10FIND(' 1  │',aa);
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);
DRAWTEXT(BARPOS=SYSPARAM(2)+2,0,F10TEXT(aaa,0)),ALIGN4,COLORMAGENTA;
DRAWTEXT(BARPOS=SYSPARAM(2)+2,0,
' \n'+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)
+'\n'+F10TEXT(as,0)
),ALIGN4,COLORYELLOW;股票论坛 www.55188.com