调整参数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
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。