调整参数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;

不错,有创意!

换一种方式处理

复制内容到剪贴板

代码:

input:n(1,1,4);
M:=SYSPARAM(2)+CEILING((SYSPARAM(3)-SYSPARAM(2))/10);
a:=F10FIND('三、股东情况',0);
if a<1 then EXIT;
AS1:=F10FIND('十大股东 截止日期',a);
AS2:=F10FIND('十大股东 截止日期',aS1+18);
AS3:=F10FIND('十大股东 截止日期',aS2+18);
AS4:=F10FIND('十大股东 截止日期',aS3+18);
AS5:=F10FIND(' ㈡、主要股东介绍',aS4+18);
aa:=if(n=1,as1,if(n=2,as2,if(n=3,as3,as4)));
as:=if(n=1,as2,if(n=2,as3,if(n=3,as4,as5)));
tx:=F10TEXT(aa,as-aa);
<%
  tx = FFL.VarData("tx")
  tx = Replace(tx,Chr(13),"\n",1,-1,0)
  FFL.VarData("tx") = tx
%>
DRAWTEXT(BARPOS=M,1,tx),align4;

学习F10公式我菜的很！

复制内容到剪贴板

代码:

//参数1－4看 十大股东，参数5－8看 基金持股
INPUT:N(1,1,8);
VARIABLE:gd[5]=0,jj[5]=0;
M:=SYSPARAM(2)+CEILING((SYSPARAM(3)-SYSPARAM(2))/10);
gd0:=F10FIND('三、股东情况',0);
if gd0<1 then EXIT;
for i=1 to 5 do begin
  stx:=if(i<5,'十大股东 截止日期','㈡、主要股东介绍');
  gd[i]:=F10FIND(stx,gd0);
  gd0:=gd[i]+18;
end;
jj0:=F10FIND('十一、基金持股',gd0);
if jj0<1 then EXIT;
for i=1 to 5 do begin
  stx:=if(i<5,'截止日期：','(本信息来源');
  jj[i]:=F10FIND(stx,jj0);
  jj0:=jj[i]+18;
end;
if n<=4 then tx:=F10TEXT(gd[n],gd[n+1]-gd[n])
        else tx:=F10TEXT(jj[n-4],jj[n-3]-jj[n-4]);
<%
  tx = FFL.VarData("tx")
  tx = Replace(tx,Chr(13),"\n",1,-1,0)
  FFL.VarData("tx") = tx
%>
DRAWTEXT(BARPOS=M,1,tx),align4;

:(   装后看不到

:(装后看不到

成功了

真方便,谢谢楼主

换一种方式处理

见 第 2 楼

公式所搜索查取的数据是以前的2004-9-31以前的,如何才能联上我们已经下载的最新的F10数据呢,请教教,谢谢

看看 F10 资料中十大股东那部分

直接看 F10 资料

引用:

Originally posted by hx817 at 2005-6-2 12:46 AM:
换一种方式处理

见 第 2 楼

你换了种先进方式，加1分。:)

引用:

Originally posted by 股市骑兵00 at 2005-6-2 16:55:


你换了种先进方式，加1分。:)

呵呵

借你的回帖，再加工一下

参数1－4看 十大股东，参数5－8看 基金持股

引用:

Originally posted by hx817 at 2005-6-2 10:05 PM:


呵呵

借你的回帖，再加工一下

参数1－4看 十大股东，参数5－8看 基金持股

嘿嘿，大大好呀，我一觉醒来发现VBS学会了，真高兴我捡到钱包了！
谢谢！加2分，再搞个精华！

请问用这个公式怎样才能看到最新的F10数据?我登陆鹏博后看到的F10是今年5月份的,可用这公式看到的却总是去年9月份的数据,我应该怎么办? 请指导,谢谢

引用:

Originally posted by 500099 at 2005-6-3 05:24 AM:
请问用这个公式怎样才能看到最新的F10数据?我登陆鹏博后看到的F10是今年5月份的,可用这公式看到的却总是去年9月份的数据,我应该怎么办? 请指导,谢谢

要调参数过的。//参数1－4看 十大股东，参数5－8看 基金持股
不过我没鹏博的，没试过。

想想如何实现反映基金近期新增加仓和减仓的处理方法就更好了！

是不是有点难呢？？？？

谢谢

各位，F10的资讯系统都下下来了，可是用不成啊！怎么回事呐！！！