飞狐财务数据指标源码

x1:=F10FIND('【每股指标】',1);
y1:=F10FIND('财务指标(单位)',x1);//年份;
n1:=STRTONUM(F10TEXT(y1+20,4));
nn1:=STRTONUM(F10TEXT(y1+25,2));//月；
nn2:=STRTONUM(F10TEXT(y1+28,2));//日;
n2:=STRTONUM(F10TEXT(y1+32,4));
n3:=STRTONUM(F10TEXT(y1+44,4));
n4:=STRTONUM(F10TEXT(y1+56,4));
DRAWTEXTEX(c,0,5,0,'年报: '),coloryellow;
DRAWTEXTEX(c,0,180,0,NUMTOSTR(n1,0)+'-'+NUMTOSTR(nn1,0)+'-'+NUMTOSTR(nn2,0)),coloryellow;
DRAWTEXTEX(c,0,250,0,NUMTOSTR(n2,0)+'年'),coloryellow;
DRAWTEXTEX(c,0,320,0,NUMTOSTR(n3,0)+'年'),coloryellow;
DRAWTEXTEX(c,0,390,0,NUMTOSTR(n4,0)+'年'),coloryellow;

//年报
a1:=F10FIND('【每股指标】',1);//每股收益;
a2:=F10FIND('每股收益(元)',a1);
aa1:=STRTONUM(F10TEXT(a2+20,10));
aa2:=STRTONUM(F10TEXT(a2+32,10));
aa3:=STRTONUM(F10TEXT(a2+44,10));
aa4:=STRTONUM(F10TEXT(a2+56,10));
DRAWTEXTEX(c,0,5,15,'每股收益(元): '),Colorred;
DRAWTEXTEX(c,0,180,15,NUMTOSTR(aa1,3)),Colorred;
DRAWTEXTEX(c,0,250,15,NUMTOSTR(aa2,3)),Colorred;
DRAWTEXTEX(c,0,320,15,NUMTOSTR(aa3,3)),Colorred;
DRAWTEXTEX(c,0,390,15,NUMTOSTR(aa4,3)),Colorred;

b1:=F10FIND('每股收益扣除(元)',a1);//每股收益扣除;
bb1:=STRTONUM(F10TEXT(b1+20,10));
bb2:=STRTONUM(F10TEXT(b1+32,10));
bb3:=STRTONUM(F10TEXT(b1+44,10));
bb4:=STRTONUM(F10TEXT(b1+56,10));
DRAWTEXTEX(c,0,5,30,'每股收益扣除(元): '),Color8000FF;
DRAWTEXTEX(c,0,180,30,NUMTOSTR(bb1,3)),Color8000FF;
DRAWTEXTEX(c,0,250,30,NUMTOSTR(bb2,3)),Color8000FF;
DRAWTEXTEX(c,0,320,30,NUMTOSTR(bb3,3)),Color8000FF;
DRAWTEXTEX(c,0,390,30,NUMTOSTR(bb4,3)),Color8000FF;

c1:=F10FIND('每股净资产(元)',a1);//每股净资产;
cc1:=STRTONUM(F10TEXT(c1+20,10));
cc2:=STRTONUM(F10TEXT(c1+32,10));
cc3:=STRTONUM(F10TEXT(c1+44,10));
cc4:=STRTONUM(F10TEXT(c1+56,10));
DRAWTEXTEX(c,0,5,45,'每股净资产(元): '),ColorFFFF80;
DRAWTEXTEX(c,0,180,45,NUMTOSTR(cc1,2)),ColorFFFF80;
DRAWTEXTEX(c,0,250,45,NUMTOSTR(cc2,2)),ColorFFFF80;
DRAWTEXTEX(c,0,320,45,NUMTOSTR(cc3,2)),ColorFFFF80;
DRAWTEXTEX(c,0,390,45,NUMTOSTR(cc4,2)),ColorFFFF80;

d1:=F10FIND('【利润构成与盈利能力】',1); //净资产收益率;
d2:=F10FIND('净资产收益率(%)',d1);
dd1:=STRTONUM(F10TEXT(d2+20,10));
dd2:=STRTONUM(F10TEXT(d2+32,10));
dd3:=STRTONUM(F10TEXT(d2+44,10));
dd4:=STRTONUM(F10TEXT(d2+56,10));
DRAWTEXTEX(c,0,5,60,'净资产收益率: '),ColorFF8000;
DRAWTEXTEX(c,0,180,60,NUMTOSTR(dd1,2)+'%'),ColorFF8000;
DRAWTEXTEX(c,0,250,60,NUMTOSTR(dd2,2)+'%'),ColorFF8000;
DRAWTEXTEX(c,0,320,60,NUMTOSTR(dd3,2)+'%'),ColorFF8000;
DRAWTEXTEX(c,0,390,60,NUMTOSTR(dd4,2)+'%'),ColorFF8000;

e1:=F10FIND('每股现金流量(元)',a1);//每股现金流量;
ee1:=STRTONUM(F10TEXT(e1+20,10));
ee2:=STRTONUM(F10TEXT(e1+32,10));
ee3:=STRTONUM(F10TEXT(e1+44,10));
ee4:=STRTONUM(F10TEXT(e1+56,10));
DRAWTEXTEX(c,0,5,75,'每股现金流量(元): '),ColorFF80FF;
DRAWTEXTEX(c,0,180,75,NUMTOSTR(ee1,3)),ColorFF80FF;
DRAWTEXTEX(c,0,250,75,NUMTOSTR(ee2,3)),ColorFF80FF;
DRAWTEXTEX(c,0,320,75,NUMTOSTR(ee3,3)),ColorFF80FF;
DRAWTEXTEX(c,0,390,75,NUMTOSTR(ee4,3)),ColorFF80FF;

f1:=F10FIND('每股资本公积金(元)',a1);//每股资本公积金;
ff1:=STRTONUM(F10TEXT(f1+20,10));
ff2:=STRTONUM(F10TEXT(f1+32,10));
ff3:=STRTONUM(F10TEXT(f1+44,10));
ff4:=STRTONUM(F10TEXT(f1+56,10));
DRAWTEXTEX(c,0,5,90,'每股资本公积金(元): '),Color4080FF;
DRAWTEXTEX(c,0,180,90,NUMTOSTR(ff1,4)),Color4080FF;
DRAWTEXTEX(c,0,250,90,NUMTOSTR(ff2,4)),Color4080FF;
DRAWTEXTEX(c,0,320,90,NUMTOSTR(ff3,4)),Color4080FF;
DRAWTEXTEX(c,0,390,90,NUMTOSTR(ff4,4)),Color4080FF;

g1:=F10FIND('每股未分配利润(元)',a1);//每股未分配利润;
gg1:=STRTONUM(F10TEXT(g1+20,10));
gg2:=STRTONUM(F10TEXT(g1+32,10));
gg3:=STRTONUM(F10TEXT(g1+44,10));
gg4:=STRTONUM(F10TEXT(g1+56,10));
DRAWTEXTEX(c,0,5,105,'每股未分配利润(元): '),Color00FF00;
DRAWTEXTEX(c,0,180,105,NUMTOSTR(gg1,2)),Color00FF00;
DRAWTEXTEX(c,0,250,105,NUMTOSTR(gg2,2)),Color00FF00;
DRAWTEXTEX(c,0,320,105,NUMTOSTR(gg3,2)),Color00FF00;
DRAWTEXTEX(c,0,390,105,NUMTOSTR(gg4,2)),Color00FF00;

h1:=F10FIND('【经营与发展能力】',1);//营业利润增长率;
h2:=F10FIND('营业利润增长率(%)',h1);
hh1:=STRTONUM(F10TEXT(h2+20,10));
hh2:=STRTONUM(F10TEXT(h2+32,10));
hh3:=STRTONUM(F10TEXT(h2+44,10));
hh4:=STRTONUM(F10TEXT(h2+56,10));
DRAWTEXTEX(c,0,5,120,'营业利润增长率(%): '),Color7D7DFF;
DRAWTEXTEX(c,0,180,120,NUMTOSTR(hh1,2)+'%'),Color7D7DFF;
DRAWTEXTEX(c,0,250,120,NUMTOSTR(hh2,2)+'%'),Color7D7DFF;
DRAWTEXTEX(c,0,320,120,NUMTOSTR(hh3,2)+'%'),,Color7D7DFF;
DRAWTEXTEX(c,0,390,120,NUMTOSTR(hh4,2)+'%'),Color7D7DFF;

i1:=F10FIND('税后利润增长率(%)',h1);//税后利润增长率;
ii1:=STRTONUM(F10TEXT(i1+20,10));
ii2:=STRTONUM(F10TEXT(i1+32,10));
ii3:=STRTONUM(F10TEXT(i1+44,10));
ii4:=STRTONUM(F10TEXT(i1+56,10));
DRAWTEXTEX(c,0,5,135,'税后利润增长率: '),Color383EFF;
DRAWTEXTEX(c,0,180,135,NUMTOSTR(ii1,2)+'%'),Color383EFF;
DRAWTEXTEX(c,0,250,135,NUMTOSTR(ii2,2)+'%'),Color383EFF;
DRAWTEXTEX(c,0,320,135,NUMTOSTR(ii3,2)+'%'),,Color383EFF;
DRAWTEXTEX(c,0,390,135,NUMTOSTR(ii4,2)+'%'),Color383EFF;
 

//季报
k1:=F10FIND('【历年简要财务指标】',1);
k2:=F10FIND('财务指标(单位)',k1);
kk1:=STRTONUM(F10TEXT(k2+20,4));
kk12:=STRTONUM(F10TEXT(k2+25,2));//月；
kk13:=STRTONUM(F10TEXT(k2+28,2));//日;
kk2:=STRTONUM(F10TEXT(k2+32,4));
kk22:=STRTONUM(F10TEXT(k2+37,2));
kk23:=STRTONUM(F10TEXT(k2+40,2));
kk3:=STRTONUM(F10TEXT(k2+44,4));
kk32:=STRTONUM(F10TEXT(k2+49,2));
kk33:=STRTONUM(F10TEXT(k2+52,2));
kk4:=STRTONUM(F10TEXT(k2+56,4));
kk42:=STRTONUM(F10TEXT(k2+61,2));
kk43:=STRTONUM(F10TEXT(k2+64,2));
DRAWTEXTEX(c,0,450,0,'季报: '),ColorFF80FF;
DRAWTEXTEX(c,0,520,0,NUMTOSTR(kk1,0)+'-'+NUMTOSTR(kk12,0)+'-'+NUMTOSTR (kk13,0)),ColorFF80FF;
DRAWTEXTEX(c,0,590,0,NUMTOSTR(kk2,0)+'-'+NUMTOSTR(kk22,0)+'-'+NUMTOSTR (kk23,0)),ColorFF80FF;
DRAWTEXTEX(c,0,660,0,NUMTOSTR(kk3,0)+'-'+NUMTOSTR(kk32,0)+'-'+NUMTOSTR (kk33,0)),ColorFF80FF;
DRAWTEXTEX(c,0,730,0,NUMTOSTR(kk4,0)+'-'+NUMTOSTR(kk42,0)+'-'+NUMTOSTR (kk43,0)),ColorFF80FF;

l1:=F10FIND('每股收益(元)',k1);
ll1:=STRTONUM(F10TEXT(l1+20,10));//每股收益;
ll2:=STRTONUM(F10TEXT(l1+32,10));
ll3:=STRTONUM(F10TEXT(l1+44,10));
ll4:=STRTONUM(F10TEXT(l1+56,10));
DRAWTEXTEX(c,0,450,15,'每股收益: '),Colorred;
DRAWTEXTEX(c,0,530,15,NUMTOSTR(ll1,3)),Colorred;
DRAWTEXTEX(c,0,600,15,NUMTOSTR(ll2,3)),Colorred;
DRAWTEXTEX(c,0,670,15,NUMTOSTR(ll3,3)),Colorred;
DRAWTEXTEX(c,0,740,15,NUMTOSTR(ll4,3)),Colorred;

m1:=F10FIND('每股收益扣除(元)',k1);
mm1:=STRTONUM(F10TEXT(m1+20,10));//每股收益扣除;
mm2:=STRTONUM(F10TEXT(m1+32,10));
mm3:=STRTONUM(F10TEXT(m1+44,10));
mm4:=STRTONUM(F10TEXT(m1+56,10));
DRAWTEXTEX(c,0,450,30,'扣除后收益: '),Color8000FF;
DRAWTEXTEX(c,0,530,30,NUMTOSTR(mm1,3)),Color8000FF;
DRAWTEXTEX(c,0,600,30,NUMTOSTR(mm2,3)),Color8000FF;
DRAWTEXTEX(c,0,670,30,NUMTOSTR(mm3,3)),Color8000FF;
DRAWTEXTEX(c,0,740,30,NUMTOSTR(mm4,3)),Color8000FF;

n1:=F10FIND('每股净资产(元)',k1);
nn1:=STRTONUM(F10TEXT(n1+20,10));//每股净资产;
nn2:=STRTONUM(F10TEXT(n1+32,10));
nn3:=STRTONUM(F10TEXT(n1+44,10));
nn4:=STRTONUM(F10TEXT(n1+56,10));
DRAWTEXTEX(c,0,450,45,'每股净资产:'),ColorFFFF80;
DRAWTEXTEX(c,0,530,45,NUMTOSTR(nn1,2)),ColorFFFF80;
DRAWTEXTEX(c,0,600,45,NUMTOSTR(nn2,2)),ColorFFFF80;
DRAWTEXTEX(c,0,670,45,NUMTOSTR(nn3,2)),ColorFFFF80;
DRAWTEXTEX(c,0,740,45,NUMTOSTR(nn4,2)),ColorFFFF80;

o1:=F10FIND('净资产收益率(%)',k1);
oo1:=STRTONUM(F10TEXT(o1+20,10));//净资产收益率;
oo2:=STRTONUM(F10TEXT(o1+32,10));
oo3:=STRTONUM(F10TEXT(o1+44,10));
oo4:=STRTONUM(F10TEXT(o1+56,10));
DRAWTEXTEX(c,0,450,60,'净资收益率:'),ColorFF8000;
DRAWTEXTEX(c,0,530,60,NUMTOSTR(oo1,2)+'%'),ColorFF8000;
DRAWTEXTEX(c,0,600,60,NUMTOSTR(oo2,2)+'%'),ColorFF8000;
DRAWTEXTEX(c,0,670,60,NUMTOSTR(oo3,2)+'%'),ColorFF8000;
DRAWTEXTEX(c,0,740,60,NUMTOSTR(oo4,2)+'%'),ColorFF8000;

p1:=F10FIND('每股资本公积金(元)',k1);
pp1:=STRTONUM(F10TEXT(p1+20,10));//每股资本公积金;
pp2:=STRTONUM(F10TEXT(p1+32,10));
pp3:=STRTONUM(F10TEXT(p1+44,10));
pp4:=STRTONUM(F10TEXT(p1+56,10));
DRAWTEXTEX(c,0,450,75,'资本公积金:'),Color4080FF;
DRAWTEXTEX(c,0,530,75,NUMTOSTR(pp1,4)),Color4080FF;
DRAWTEXTEX(c,0,600,75,NUMTOSTR(pp2,4)),Color4080FF;
DRAWTEXTEX(c,0,670,75,NUMTOSTR(pp3,4)),Color4080FF;
DRAWTEXTEX(c,0,740,75,NUMTOSTR(pp4,4)),Color4080FF;

q1:=F10FIND('每股未分配利润(元)',k1);
qq1:=STRTONUM(F10TEXT(q1+20,10));//每股未分配利润;
qq2:=STRTONUM(F10TEXT(q1+32,10));
qq3:=STRTONUM(F10TEXT(q1+44,10));
qq4:=STRTONUM(F10TEXT(q1+56,10));
DRAWTEXTEX(c,0,450,90,'未分配利润:'),Color383EFF;
DRAWTEXTEX(c,0,530,90,NUMTOSTR(qq1,3)),Color383EFF;
DRAWTEXTEX(c,0,600,90,NUMTOSTR(qq2,3)),Color383EFF;
DRAWTEXTEX(c,0,670,90,NUMTOSTR(qq3,3)),Color383EFF;
DRAWTEXTEX(c,0,740,90,NUMTOSTR(qq4,3)),Color383EFF;

r1:=F10FIND('【1.机构持股汇总】【2.股东户数】【3.机构持股明细】【4.异动上榜】',1);
r2:=F10FIND('基金持股',r1);//基金持股;
rr1:=STRTONUM(F10TEXT(r2+88,15));
r3:=F10FIND('家数及｜',r2);
r22:=STRTONUM(F10TEXT(r3+12,3));//共计
rr6:=STRTONUM(F10TEXT(r2+104,15));//上季比例
r4:=F10FIND('保险持股',r1);
r5:=F10FIND('社保持股',r1);
r6:=F10FIND('QFII持股',r1);
r7:=F10FIND('券商持股',r1);
r44:=STRTONUM(F10TEXT(r4+88,15));
r55:=STRTONUM(F10TEXT(r5+88,15));
r66:=STRTONUM(F10TEXT(r6+88,15));
r77:=STRTONUM(F10TEXT(r7+88,15));
rr22:=if(rr1,NUMTOSTR(rr1,2)+'%','0');
rr33:=if(r22,NUMTOSTR(r22,0)+'家','0');
rr44:=if(r44,NUMTOSTR(r44,2)+'%','0');
rr55:=if(r55,NUMTOSTR(r55,2)+'%','0');
rr66:=if(r66,NUMTOSTR(r66,2)+'%','0');
rr77:=if(r77,NUMTOSTR(r77,2)+'%','0');
rr88:=if(rr6,NUMTOSTR(rr6,2)+'%','0');
DRAWTEXTEX(c,0,450,110,'持股'),Color00FFFF;
DRAWTEXTEX(c,0,450,130,'情况'),Color00FFFF;
DRAWTEXTEX(c,0,480,122,'基金:'),ColorFF80FF;
DRAWTEXTEX(c,0,515,107,'比例：'+rr22),ColorFF80FF;
DRAWTEXTEX(c,0,515,124,'共计：'+rr33),ColorFF80FF;
DRAWTEXTEX(c,0,515,142,'上季比例：'+rr88),Color00FF00;
DRAWTEXTEX(c,0,620,110,'保险：'+rr44),Color0080FF;
DRAWTEXTEX(c,0,700,110,'社保：'+rr55),ColorFFFF80;
DRAWTEXTEX(c,0,620,130,'QFII：'+rr66),ColorFF8000;
DRAWTEXTEX(c,0,700,130,'券商：'+rr77),ColorFF8580;
DRAWTEXTEX(c,0,435,0,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,12,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,24,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,36,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,48,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,60,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,72,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,84,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,96,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,108,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,120,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,132,'│'),Colorwhite;
DRAWTEXTEX(c,0,435,144,'│'),Colorwhite;
DRAWTEXTEX(c,0,440,104,'│'),Colorwhite;
DRAWTEXTEX(c,0,440,117,'│'),Colorwhite;
DRAWTEXTEX(c,0,440,130,'│'),Colorwhite;
DRAWTEXTEX(c,0,440,143,'│'),Colorwhite;
DRAWTEXTEX(c,0,472,108,'│'),Colorwhite;
DRAWTEXTEX(c,0,472,123,'│'),Colorwhite;
DRAWTEXTEX(c,0,472,138,'│'),Colorwhite;
DRAWTEXTEX(c,0,610,108,'│'),Colorwhite;
DRAWTEXTEX(c,0,610,123,'│'),Colorwhite;
DRAWTEXTEX(c,0,610,138,'│'),Colorwhite;
DRAWTEXTEX(c,0,775,104,'│'),Colorwhite;
DRAWTEXTEX(c,0,775,117,'│'),Colorwhite;
DRAWTEXTEX(c,0,775,130,'│'),Colorwhite;
DRAWTEXTEX(c,0,775,143,'│'),Colorwhite;
DRAWTEXTEX(c,0,445,99,'────────────────────────────'),Colorwhite;
DRAWTEXTEX(c,0,445,150,'────────────────────────────'),Colorwhite;
fh:=HIGH;
ph:=fh;
fl:=LOW;
pl:=fl;
a:=SORTPOS(ph,1,1,DATACOUNT);
a1:=SORTPOS(pl,0,1,DATACOUNT);
最高:=fh[ph[1]];
最高价量:=sum(if(c=fh[ph[1]],v,0),0),colorff99ff;
最低:=fl[pl[1]];
最低价量:=sum(if(c=fl[pl[1]],v,0),0),color00ff00;
n:(fh[ph[1]]-fl[pl[1]])*100+1,PRECISION0,linethick0;
c1:=NUMTOSTR(fl[