一品老师作的“【股东查询】----助您找到心中的最爱”深受大家的喜欢，由于免费版找不到专业财务数据，使大家深表遗憾，为解决这一缺憾，我特此献上自己新编的F10资料列表源码，喜欢的请顶一下。

F10资料列表源码：
GDW0:=F10FIND('【十大流通股东】:',1000);
GDT0:=F10TEXT(GDW0,0);
gdw1:=f10find('截止日期',gdw0);
gdt1:=f10text(gdw1,0);
gdw2:=f10find('序号',gdw1+72);
gdt2:=f10text(gdw2,0);
gdw3:=f10find('1│',gdw2+72);
gdt3:=f10text(gdw3,72);
gdw4:=f10find('2│',gdw3+72);
gdt4:=f10text(gdw4,72);
gdw5:=f10find('3│',gdw4+72);
gdt5:=f10text(gdw5,72);
gdw6:=f10find('4│',gdw5+72);
gdt6:=f10text(gdw6,72);
gdw7:=f10find('5│',gdw6+72);
gdt7:=f10text(gdw7,72);
gdw8:=f10find('6│',gdw7+72);
gdt8:=f10text(gdw8,72);
gdw9:=f10find('7│',gdw8+72);
gdt9:=f10text(gdw9,72);
gdw10:=f10find('8│',gdw9+72);
gdt10:=f10text(gdw10,72);
gdw11:=f10find('9│',gdw10+72);
gdt11:=f10text(gdw11,72);
gdw12:=f10find('10│',gdw11+72);
gdt12:=f10text(gdw12,72);


DRAWTEXTex(c,0,0,5,gdt0);
DRAWTEXTex(c,0,0,20,gdt1);
DRAWTEXTex(c,0,0,35,gdt2);
DRAWTEXTex(c,0,18,50,gdt3);
drawtextex(c,0,18,65,gdt4);
drawtextex(c,0,18,80,gdt5);
drawtextex(c,0,18,95,gdt6);
drawtextex(c,0,18,110,gdt7);
drawtextex(c,0,18,125,gdt8);
drawtextex(c,0,18,140,gdt9);
drawtextex(c,0,18,155,gdt10);
drawtextex(c,0,18,170,gdt11);
drawtextex(c,0,12,185,gdt12);


GDC0:=F10FIND('1.主要指标:',100);
GDD0:=F10TEXT(GDc0,0);
gdc1:=f10find('指标名称',gdc0);
gdd1:=f10text(gdc1,25);
gdc2:=f10find('每股收益(元)',gdc1);
gdd2:=f10text(gdc2,30);
gdc3:=f10find('每股净资产(元)',gdc2);
gdd3:=f10text(gdc3,30);
gdc4:=f10find('每股资本公积金(元)',gdc3);
gdd4:=f10text(gdc4,30);
gdc5:=f10find('每股现金净流量(元)',gdc4);
gdd5:=f10text(gdc5,30);
gdc6:=f10find('净资产收益率(％)',gdc5);
gdd6:=f10text(gdc6,30);
gdc7:=f10find('总股本(万股)',gdc6);
gdd7:=f10text(gdc7,30);
gdc8:=f10find('实际流通A股(万股) ',gdc7);
gdd8:=f10text(gdc8,30);

DRAWTEXTex(c,0,500,35,gdd0);
DRAWTEXTex(c,0,530,50,gdd1);
DRAWTEXTex(c,0,500,65,gdd7);
DRAWTEXTex(c,0,500,80,gdd8);
DRAWTEXTex(c,0,500,95,gdd2);
DRAWTEXTex(c,0,500,110,gdd3);
DRAWTEXTex(c,0,500,125,gdd4);
DRAWTEXTex(c,0,500,140,gdd5);
DRAWTEXTex(c,0,500,155,gdd6);

GDe0:=F10FIND('行业预测评级',900);
GDf0:=F10TEXT(gde0,12);
gde1:=f10find('评级日期',gde0);
gdf1:=f10text(gde1,72);
gdf2:=f10text(gde1+150,72);
gdf3:=f10text(gde1+227,72);
gdf4:=f10text(gde1+302,72);
gdf5:=f10text(gde1+377,72);
gdf6:=f10text(gde1+453,72);


DRAWTEXTex(c,0,0,200,gdf0);
DRAWTEXTex(c,0,6,215,gdf1);
DRAWTEXTex(c,0,0,230,gdf2);
DRAWTEXTex(c,0,0,245,gdf3);
DRAWTEXTex(c,0,0,260,gdf4);
DRAWTEXTex(c,0,0,275,gdf5);
DRAWTEXTex(c,0,0,290,gdf6);

GDg0:=F10FIND('11.控盘情况:',900);
GDh0:=F10TEXT(gdg0,12);
gdg1:=f10find('时间',gdg0);
gdh1:=f10text(gdh1,0);
gdh2:=f10text(gdg1+120,72);
gdh3:=f10text(gdg1+180,72);



DRAWTEXTex(c,0,500,200,gdh0);
DRAWTEXTex(c,0,524,215,gdh1);
DRAWTEXTex(c,0,500,230,gdh2);
DRAWTEXTex(c,0,500,245,gdh3);

DRAWTEXTEX(C,0,500,300,'----------2009-11-16【老骥2008.仲 制作】----------'),LINETHICK1,Color0068FF;


找（选）人源码：

GDW0:=F10FIND('【十大流通股东】:',1000);
gdw1:=f10find('截止日期',gdw0);
gdw2:=f10find('序号',gdw1+72);
gdt:=f10text(gdw2,2000);
蒋菲:STRFIND(gdt,'蒋菲',1);
张健:STRFIND(gdt,'张健',1);
姚建华:STRFIND(gdt,'姚建华',1);
徐开东:STRFIND(gdt,'徐开东',1);

钟坚龙:STRFIND(gdt,'钟坚龙',1);
张寿清:STRFIND(gdt,'张寿清',1);

华夏大盘精选:STRFIND(gdt,'华夏大盘',1);
华夏策略精选:STRFIND(gdt,'华夏策略',1);
泰达荷银:STRFIND(gdt,'泰达荷银',1);
易方达:STRFIND(gdt,'易方达',1);
许磊:STRFIND(gdt,'许磊',1);
许喆:STRFIND(gdt,'许喆',1);
周宇光:STRFIND(gdt,'周宇光',1);
刘芳:STRFIND(gdt,'刘芳',1);
吴鸣霄:STRFIND(gdt,'吴鸣霄',1);
徐柏良:STRFIND(gdt,'徐柏良',1);
王素芳:STRFIND(gdt,'王素芳',1);
叶玉莲:STRFIND(gdt,'叶玉莲',1);
徐文锦:STRFIND(gdt,'徐文锦',1);
李岩:STRFIND(gdt,'李岩',1);
唐美秀:STRFIND(gdt,'唐美秀',1);
王奇志:STRFIND(gdt,'王奇志',1);
黄木顺:STRFIND(gdt,'黄木顺',1);


特别提醒：

把上面二个源码分别粘贴后就可以使用
(1)首先请及时到阳光飞狐下载鹏博F10数据，网址http://bbs.88158.cn/thread-3562-1-1.html，解压到DATA\SH(SZ)文件夹中覆盖源文件，以便指标准确显示最新财务数据；
(2)如想查询心爱股东持股情况，请进入“找人”指标源码，手动修改需要的股东名称,即可自由选股（方法和一品老师讲解的一样）；
(3)十大股东，仅仅是季报提供的简单参考，与股东的实际交易的进出，或有差距；指标本身对于短线的实战意义极小，还请适当参考，请勿过于沉迷。
(4)由于下载的鹏博F10数据在排列上有时也有错误，需要自己到F10里TXT文件作一下修改，本人已经碰到此类事情，（否则显示的东西有错误）