查看完整版本: Wind的《F10户均持股》（可用于维赛特财经）

Wind的《F10户均持股》（可用于维赛特财经）

为适应网友的需求，特对Wind的《F10户均持股》稍作修改，增加了针对维赛特财经的查找语句。

[code]{Wind的F10户均持股+维赛特财经}
流通盘:CAPITAL/100,LINETHICK;
//控盘:CAPITAL*100/FINANCE(50),LINETHICK;{流通盘除以股东数：每户持股数}
//F10数据查找
F10:=IF(F10FIND('万国测评制作',1)>0,1,IF(F10FIND('Wind资讯',1)>0,2,IF(F10FIND('鹏搏资讯',1)>0,3,IF(F10FIND('维赛特财经',1)>0,4,0))));
QSW:=IF(F10=2,F10FIND('【1:主力运作】',100),IF(F10=3,F10FIND('控盘情况:',1),IF(F10=4,F10FIND('（三）历年人均持股情况',1),F10FIND('◆ 控盘情况 ◆',100))));

gdstar:=F10FIND(IF(F10=2,'户均持股','人均持股'),QSW);{从QSW开始，查找字符串"A股人均持"}
IF gdstar<0 THEN EXIT;
LS:=IF(F10=2,28,41);
VARIABLE:DH[28]=0,DD[28]=0,HH[28]=0;
dh[1]:=F10FIND('-',gdstar)-4;//F10FIND('200',gdstar+100);{从gdstar+100字节开始，查找字符串"200"}
dd[1]:=STRTONUM(STRRIGHT(F10TEXT(dh[1],10),8)-'-')+1000000;hh[1]:=STRTONUM(LTRIM(F10TEXT(dh[1]+LS,10))),LINETHICK;
DHW:=F10FIND(IF(F10=2,'└','┴'),dh[1]+500);//尾部位置

{取对应的数据资料的字符串，并转换字符串为数值}
for i=2 to 28 do begin
   DH[i]:=F10FIND(IF(F10=2,'│','-'),dh[i-1]+74);
   IF DH[i]>DHW THEN BREAK;
   DD[i]:=STRTONUM(STRRIGHT(F10TEXT(dh[i]+IF(F10=2,2,-4),10),8)-'-');
   DD[i]:=DD[i]+IF(DD[i]<900000,1000000,0);
   HH[i]:=STRTONUM(LTRIM(F10TEXT(dh[i]+LS,10)));
   IF HH[i]>0 THEN WT:=MIN(HH[i],HH[i-1]);
end;

DRAWNUMBER(cross(date,DD[1]) AND DH[1]<DHW,HH[1],HH[1],0),colorFFFF;
DRAWNUMBER(cross(date,DD[2]) AND DH[2]<DHW,HH[2],HH[2],0),colorFF00;
DRAWNUMBER(cross(date,DD[3]) AND DH[3]<DHW,HH[3],HH[3],0),colorFFFF;
DRAWNUMBER(cross(date,DD[4]) AND DH[4]<DHW,HH[4],HH[4],0),colorFF00;
DRAWNUMBER(cross(date,DD[5]) AND DH[5]<DHW,HH[5],HH[5],0),colorFFFF;
DRAWNUMBER(cross(date,DD[6]) AND DH[6]<DHW,HH[6],HH[6],0),colorFF00;
DRAWNUMBER(cross(date,DD[7]) AND DH[7]>0,HH[7],HH[7],0),colorFFFF;
DRAWNUMBER(cross(date,DD[8]) AND DH[8]>0,HH[8],HH[8],0),colorFF00;
DRAWNUMBER(cross(date,DD[9]) AND DH[9]>0,HH[9],HH[9],0),colorFFFF;
DRAWNUMBER(cross(date,DD[10]) AND DH[10]>0,HH[10],HH[10],0),colorFF00;
DRAWNUMBER(cross(date,DD[11]) AND DH[11]>0,HH[11],HH[11],0),colorFFFF;
DRAWNUMBER(cross(date,DD[12]) AND DH[12]>0,HH[12],HH[12],0),colorFF00;
DRAWNUMBER(cross(date,DD[13]) AND DH[13]>0,HH[13],HH[13],0),colorFFFF;
DRAWNUMBER(cross(date,DD[14]) AND DH[14]>0,HH[14],HH[14],0),colorFF00;
DRAWNUMBER(cross(date,DD[15]) AND DH[15]>0,HH[15],HH[15],0),colorFFFF;
DRAWNUMBER(cross(date,DD[16]) AND DH[16]>0,HH[16],HH[16],0),colorFF00;
DRAWNUMBER(cross(date,DD[17]) AND DH[17]>0,HH[17],HH[17],0),colorFFFF;
DRAWNUMBER(cross(date,DD[18]) AND DH[18]>0,HH[18],HH[18],0),colorFF00;
DRAWNUMBER(cross(date,DD[19]) AND DH[19]>0,HH[19],HH[19],0),colorFFFF;
DRAWNUMBER(cross(date,DD[20]) AND DH[20]>0,HH[20],HH[20],0),colorFF00;
DRAWNUMBER(cross(date,DD[21]) AND DH[21]>0,HH[21],HH[21],0),colorFFFF;
DRAWNUMBER(cross(date,DD[22]) AND DH[22]>0,HH[22],HH[22],0),colorFF00;
DRAWNUMBER(cross(date,DD[23]) AND DH[23]>0,HH[23],HH[23],0),colorFFFF;
DRAWNUMBER(cross(date,DD[24]) AND DH[24]>0,HH[24],HH[24],0),colorFF00;
DRAWNUMBER(cross(date,DD[25]) AND DH[25]>0,HH[25],HH[25],0),colorFFFF;
DRAWNUMBER(cross(date,DD[26]) AND DH[26]>0,HH[26],HH[26],0),colorFF00;
DRAWNUMBER(cross(date,DD[27]) AND DH[27]>0,HH[27],HH[27],0),colorFFFF;
DRAWNUMBER(cross(date,DD[28]) AND DH[28]>0,HH[28],HH[28],0),colorFF00;

户均股1:if(date>=dd[1],hh[1],if(date<dd[1] and date>=dd[2],hh[2],if(date<dd[2] and date>=dd[3],hh[3],
  if(date<dd[3] and date>=dd[4],hh[4],if(date<dd[4] and date>=dd[5],hh[5],if(date<dd[5] and date>=dd[6],hh[6],
  if(date<dd[6] and date>=dd[7] AND HH[7]>0,hh[7],if(date<dd[7] and date>=dd[8] AND HH[8]>0,hh[8],if(date<dd[8] and date>=dd[9] AND HH[9]>0,hh[9],
  if(date<dd[9] and date>=dd[10] AND HH[10]>0,hh[10],if(date<dd[10] and date>=dd[11] AND HH[11]>0,hh[11],if(date<dd[11] and date>=dd[12] AND HH[12]>0,hh[12],
  if(date<dd[12] and date>=dd[13] AND HH[13]>0,hh[13],if(date<dd[13] and date>=dd[14] AND HH[14]>0,hh[14],if(date<dd[14] and date>=dd[15] AND HH[15]>0,hh[15],
  if(date<dd[15] and date>=dd[16] AND HH[16]>0,hh[16],if(date<dd[16] and date>=dd[17] AND HH[17]>0,hh[17],if(date<dd[17] and date>=dd[18] AND HH[18]>0,hh[18],
  if(date<dd[18] and date>=dd[19] AND HH[19]>0,hh[19],if(date<dd[19] and date>=dd[20] AND HH[20]>0,hh[20],if(date<dd[20] and date>=dd[21] AND HH[21]>0,hh[21],
  if(date<dd[21] and date>=dd[22] AND HH[22]>0,hh[22],if(date<dd[22] and date>=dd[23] AND HH[23]>0,hh[23],if(date<dd[23] and date>=dd[24] AND HH[24]>0,hh[24],
  if(date<dd[24] and date>=dd[25] AND HH[25]>0,hh[25],if(date<dd[25] and date>=dd[26] AND HH[26]>0,hh[26],if(date<dd[26] and date>=dd[27] AND HH[27]>0,hh[27],
  if(date<dd[27] and date>=dd[28] AND HH[28]>0,hh[28],WT)))))))))))))))))))))))))))),COLORFF00FF;
//
[/code]

[img]http://bbs.88158.cn/attachments/month_0604/t4_Qzl8UFbPeplb.gif[/img]

谢谢！

谢谢！

能显示在主图上就好了~~~~~~

这个不是飞狐的~~~~~

[quote]原帖由 [i]林枫[/i] 于 2006-11-27 11:09 发表
这个不是飞狐的~~~~~ [/quote]

你可以调用其数据，如：

TT:=STKINDI('','F10户均持股.户均股1',0,6);
TT[DATACOUNT],LINETHICK;

学习

谢谢提供！:clap:

谢谢!

谢谢浪子老师,请问一下老师,如果是港澳资讯F10,应该怎样修改??感谢!!谢谢浪子老师,请问一下老师,如果是港澳资讯F10,应该怎样修改??感谢!!谢谢浪子老师,请问一下老师,如果是港澳资讯F10,应该怎样修改??感谢!!

[[i] 本帖最后由 babysjy 于 2008-6-7 10:49 编辑 [/i]]