{觅庄鹏博F10}
input:n(1);
a:=F10FIND('五、股东情况',0);
if a<1 then EXIT;
AS1:=F10FIND('以上流通
A股合计:',a);
AS2:=F10FIND('以上流通A股合计:',aS1+10);
AS3:=F10FIND('以上流通A股合计:',aS2+10);
AS4:=F10FIND('以上流通A股合计:',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;
[ 此贴被wafox在2008-01-30 11:10重新编辑 ]