账号设置

密码修改

退出登录
股海首页| 金钻指标 | 股海博客| 指标公式|看盘软件|股票数据|数据题材|工具应用|期货基金|指标战法|股海宝贝|炒股知识|资讯消息|VIP之家|
飞狐公式|通达信公式|大智慧公式|同花顺公式|东方财富通公式|大智慧股票池|通达信股票池|公式帮助|博易大师公式|益盟操盘手公式|文华财经公式|金字塔公式|
当前位置：→ 股海网 → 飞狐公式 → 正文

  • 最新“港澳F10副图”

  • 相关简介：我原来使用Wind F10 由于近段时间不知什么原因已经更新不了啦 所以自己编写 我使用通达信下载港澳F10，然后飞狐调用！ C/C++ Code 复制内容到剪贴板 F:=F10FIND( '【2.股东变化】' ,1); F0:=F10FIND( '' ,F); u0:=F10TEXT(F0+440,57); F1:=F10FIND( '截至日期：' ,F); u1:=F10TEXT(F1,1); F2:=F10FIND( '' ,F1); u2:=F10TEXT

  • 文章来源：择股网作者：股海网发布时间：2009-09-29浏览次数：下载次数：28

我原来使用Wind F10
由于近段时间不知什么原因已经更新不了啦 所以自己编写
我使用通达信下载港澳F10，然后飞狐调用！
 

最新“港澳F10副图”

 

C/C++ Code复制内容到剪贴板
  1. F:=F10FIND('【2.股东变化】',1);   
  2. F0:=F10FIND(' ',F);   
  3. u0:=F10TEXT(F0+440,57);   
  4. F1:=F10FIND('截至日期：',F);   
  5. u1:=F10TEXT(F1,1);   
  6. F2:=F10FIND(' ',F1);   
  7. u2:=F10TEXT(F2+111,75);   
  8. F3:=F10FIND(' ',F1);   
  9. u3:=F10TEXT(F2+187,75);   
  10. F4:=F10FIND(' ',F1);   
  11. u4:=F10TEXT(F2+265,75);   
  12. F5:=F10FIND(' ',F1);   
  13. u5:=F10TEXT(F2+340,75);   
  14. F6:=F10FIND(' ',F1);   
  15. u6:=F10TEXT(F2+491,75);   
  16. F7:=F10FIND(' ',F1);   
  17. u7:=F10TEXT(F2+567,75);   
  18. F8:=F10FIND(' ',F1);   
  19. u8:=F10TEXT(F2+643,75);   
  20. F9:=F10FIND(' ',F1);   
  21. u9:=F10TEXT(F2+719,75);   
  22. F10:=F10FIND(' ',F1);   
  23. u10:=F10TEXT(F2+795,75);   
  24. F11:=F10FIND(' ',F1);   
  25. u11:=F10TEXT(F2+871,75);   
  26. F12:=F10FIND(' ',F1);   
  27. u12:=F10TEXT(F2+947,75);   
  28. F13:=F10FIND(' ',F1);   
  29. u13:=F10TEXT(F2+1025,75);   
  30. F14:=F10FIND(' ',F1);   
  31. u14:=F10TEXT(F2+1100,75);   
  32. F15:=F10FIND(' ',F1);   
  33. u15:=F10TEXT(F2+N4,75);   
  34. DRAWTEXTEX(c,0,0,15,u0),COLORYELLOW;   
  35. DRAWTEXTEX(c,0,0,15,u1),COLORYELLOW;   
  36. DRAWTEXTEX(c,0,0,30,u2),COLORYELLOW;   
  37. DRAWTEXTEX(c,0,0,45,u3),COLORYELLOW;   
  38. DRAWTEXTEX(c,0,0,60,u4),COLORYELLOW;   
  39. DRAWTEXTEX(c,0,0,75,u5),COLORYELLOW;   
  40. DRAWTEXTEX(c,0,0,90,u6),COLORYELLOW;   
  41. DRAWTEXTEX(c,0,0,105,u7),COLORYELLOW;   
  42. DRAWTEXTEX(c,0,0,120,u8),COLORYELLOW;   
  43. DRAWTEXTEX(c,0,0,135,u9),COLORYELLOW;   
  44. DRAWTEXTEX(c,0,0,150,u10),COLORYELLOW;   
  45. DRAWTEXTEX(c,0,0,165,u11),COLORYELLOW;   
  46. DRAWTEXTEX(c,0,0,180,u12),COLORYELLOW;   
  47. DRAWTEXTEX(c,0,0,195,u13),COLORYELLOW;   
  48. DRAWTEXTEX(c,0,0,210,u14),COLORYELLOW;   
  49. DRAWTEXTEX(c,0,0,225,u15),COLORYELLOW;   

 

C/C++ Code复制内容到剪贴板
  1. 股东持股(港澳)副图   
  2. 查找:=F10FIND('【2.股东户数】',100);股东:=F10FIND('股东户数',查找);   
  3. x:=F10FIND('｜2009-06-30｜',股东);   
  4. 股东户数x:=STRTONUM(F10TEXT(x+19,10));   
  5. 户均持股x:=STRTONUM(F10TEXT(x+35,10));   
  6. x1:=F10FIND('｜2009-03-31｜',股东);   
  7. 股东户数x1:=STRTONUM(F10TEXT(x1+19,10));   
  8. 户均持股x1:=STRTONUM(F10TEXT(x1+33,10));   
  9. x2:=F10FIND('｜2008-12-31｜',股东);   
  10. 股东户数x2:=STRTONUM(F10TEXT(x2+19,10));   
  11. 户均持股x2:=STRTONUM(F10TEXT(x2+33,10));   
  12. A3:=SYSPARAM(3);AG:=INTPART((SYSPARAM(3)-SYSPARAM(2))/IF(DATACOUNT>120,40,20));A5:=SYSPARAM(5);   
  13. 更新:=IF(FINANCE(0)=200909,1,IF(FINANCE(0)=200906,2,IF(FINANCE(0)=200903,3,IF(FINANCE(0)=200812,4,IF(FINANCE(0)=200809,5,0)))));   
  14. {柱线}   
  15. STICKLINE(BARPOS=A3-AG*3 and 股东户数x>0,0,股东户数x,AG*20,1),ColorF1A8FF;   
  16. STICKLINE(BARPOS=A3-AG*2 and 户均持股x>0,0,户均持股x,AG*20,0),ColorF1A8FF;   
  17. DRAWTEXT(BARPOS=A3-AG*3,0,'090630'),COLORWHITE,ALIGN5,PXDN5;   
  18. STICKLINE(BARPOS=A3-AG*8 and 更新 and 股东户数x1>0,0,股东户数x1,AG*20,1),ColorF1A8FF;   
  19. STICKLINE(BARPOS=A3-AG*7 and 更新 and 户均持股x1>0,0,户均持股x1,AG*20,0),ColorF1A8FF;   
  20. DRAWTEXT(BARPOS=A3-AG*8,0,'090331'),COLORWHITE,ALIGN5,PXDN5;   
  21. STICKLINE(BARPOS=A3-AG*13 and 更新 and 股东户数x2>0,0,股东户数x2,AG*20,1),ColorF1A8FF;   
  22. STICKLINE(BARPOS=A3-AG*12 and 更新 and 户均持股x2>0,0,户均持股x2,AG*20,0),ColorF1A8FF;   
  23. DRAWTEXT(BARPOS=A3-AG*13,0,'081231'),COLORWHITE,ALIGN5,PXDN5;   

 

C/C++ Code复制内容到剪贴板
  1. 毛利率(港澳)副图   
  2. x1:=F10FIND('【每股指标】',1);   
  3. y1:=F10FIND('财务指标(单位)',x1);   
  4. n1:=STRTONUM(F10TEXT(y1+20,4));   
  5. nn1:=STRTONUM(F10TEXT(y1+25,2));   
  6. nn2:=STRTONUM(F10TEXT(y1+28,2));   
  7. n2:=STRTONUM(F10TEXT(y1+32,4));   
  8. n3:=STRTONUM(F10TEXT(y1+44,4));   
  9. n4:=STRTONUM(F10TEXT(y1+56,4));   
  10. d1:=F10FIND('【利润构成与盈利能力】',1);    
  11. d2:=F10FIND('销售毛利率(%)',d1);   
  12. dd1:=STRTONUM(F10TEXT(d2+20,10));   
  13. dd2:=STRTONUM(F10TEXT(d2+32,10));   
  14. dd3:=STRTONUM(F10TEXT(d2+44,10));   
  15. dd4:=STRTONUM(F10TEXT(d2+56,10));   
  16. A3:=SYSPARAM(3);AG:=INTPART((SYSPARAM(3)-SYSPARAM(2))/IF(DATACOUNT>120,40,20));A5:=SYSPARAM(5);   
  17. 更新:=IF(FINANCE(0)=200909,1,IF(FINANCE(0)=200906,2,IF(FINANCE(0)=200903,3,IF(FINANCE(0)=200812,4,IF(FINANCE(0)=200809,5,0)))));   
  18. {柱线}   
  19. //增   
  20. STICKLINE(BARPOS=A3-AG*3  and 更新 and dd1>0,0,dd1,AG*20,0),ColorF1A8FF;//7   
  21. STICKLINE(BARPOS=A3-AG*8 and 更新 and dd2>0,0,dd2,AG*20,1),ColorF1A8FF;//14   
  22. STICKLINE(BARPOS=A3-AG*13 and 更新 and dd3>0,0,dd3,AG*20,1),ColorF1A8FF;//21   
  23. STICKLINE(BARPOS=A3-AG*18 and 更新 and dd4>0,0,dd4,AG*20,1),ColorF1A8FF;//28   
  24. //减   
  25. STICKLINE(BARPOS=A3-AG*3  and 更新 and dd1<0,0,dd1,AG*20,0),ColorB9FFBC;   
  26. STICKLINE(BARPOS=A3-AG*8 and 更新 and dd2<0,0,dd2,AG*20,1),ColorB9FFBC;   
  27. STICKLINE(BARPOS=A3-AG*13 and 更新 and dd3<0,0,dd3,AG*20,1),ColorB9FFBC;   
  28. STICKLINE(BARPOS=A3-AG*18 and 更新 and dd4<0,0,dd4,AG*20,1),ColorB9FFBC;   
  29. //显示时间   
  30. DRAWTEXT(BARPOS=A3-AG*3 and dd1>0,0,NUMTOSTR(n1,0)+'.'+NUMTOSTR(nn1,0)+'.'+NUMTOSTR(nn2,0)),COLORWHITE,ALIGN5,PXDN5;   
  31. DRAWTEXT(BARPOS=A3-AG*8 and dd2>0,0,NUMTOSTR(n2,0)),COLORWHITE,ALIGN5,PXDN5;   
  32. DRAWTEXT(BARPOS=A3-AG*13 and dd3>0,0,NUMTOSTR(n3,0)),COLORWHITE,ALIGN5,PXDN5;   
  33. DRAWTEXT(BARPOS=A3-AG*18 and dd4>0,0,NUMTOSTR(n4,0)),COLORWHITE,ALIGN5,PXDN5;   
  34. if(dd1=0,-0.05,0),COLORBLACK;   

 

C/C++ Code复制内容到剪贴板
  1. 净利润(港澳)副图   
  2. x1:=F10FIND('【每股指标】',1);   
  3. y1:=F10FIND('财务指标(单位)',x1);   
  4. n1:=STRTONUM(F10TEXT(y1+20,4));   
  5. nn1:=STRTONUM(F10TEXT(y1+25,2));   
  6. nn2:=STRTONUM(F10TEXT(y1+28,2));   
  7. n2:=STRTONUM(F10TEXT(y1+32,4));   
  8. n3:=STRTONUM(F10TEXT(y1+44,4));   
  9. n4:=STRTONUM(F10TEXT(y1+56,4));   
  10. d1:=F10FIND('【利润构成与盈利能力】',1);    
  11. d2:=F10FIND('净利润(万元)',d1);   
  12. dd1:=STRTONUM(F10TEXT(d2+20,10));   
  13. dd2:=STRTONUM(F10TEXT(d2+32,10));   
  14. dd3:=STRTONUM(F10TEXT(d2+44,10));   
  15. dd4:=STRTONUM(F10TEXT(d2+56,10));   
  16. A3:=SYSPARAM(3);AG:=INTPART((SYSPARAM(3)-SYSPARAM(2))/IF(DATACOUNT>120,40,20));A5:=SYSPARAM(5);   
  17. 更新:=IF(FINANCE(0)=200909,1,IF(FINANCE(0)=200906,2,IF(FINANCE(0)=200903,3,IF(FINANCE(0)=200812,4,IF(FINANCE(0)=200809,5,0)))));   
  18. {柱线}   
  19. //增   
  20. STICKLINE(BARPOS=A3-AG*3 and 更新 and dd1>0,0,dd1,AG*20,0),ColorF1A8FF;   
  21. STICKLINE(BARPOS=A3-AG*8 and 更新 and dd2>0,0,dd2,AG*20,1),ColorF1A8FF;   
  22. STICKLINE(BARPOS=A3-AG*13 and 更新 and dd3>0,0,dd3,AG*20,1),ColorF1A8FF;   
  23. STICKLINE(BARPOS=A3-AG*18 and 更新 and dd4>0,0,dd4,AG*20,1),ColorF1A8FF;   
  24. //减   
  25. STICKLINE(BARPOS=A3-AG*3 and 更新 and dd1<0,0,dd1,AG*20,0),ColorB9FFBC;   
  26. STICKLINE(BARPOS=A3-AG*8 and 更新 and dd2<0,0,dd2,AG*20,1),ColorB9FFBC;   
  27. STICKLINE(BARPOS=A3-AG*13 and 更新 and dd3<0,0,dd3,AG*20,1),ColorB9FFBC;   
  28. STICKLINE(BARPOS=A3-AG*18 and 更新 and dd4<0,0,dd4,AG*20,1),ColorB9FFBC;   
  29. //显示时间   
  30. DRAWTEXT(BARPOS=A3-AG*3,0,NUMTOSTR(n1,0)+'.'+NUMTOSTR(nn1,0)+'.'+NUMTOSTR(nn2,0)),COLORWHITE,ALIGN5,PXDN5;   
  31. DRAWTEXT(BARPOS=A3-AG*8,0,NUMTOSTR(n2,0)+'年'),COLORWHITE,ALIGN5,PXDN5;   
  32. DRAWTEXT(BARPOS=A3-AG*13,0,NUMTOSTR(n3,0)+'年'),COLORWHITE,ALIGN5,PXDN5;   
  33. DRAWTEXT(BARPOS=A3-AG*18,0,NUMTOSTR(n4,0)+'年'),COLORWHITE,ALIGN5,PXDN5;   
  34. -0.02,COLOR99;   

 

C/C++ Code复制内容到剪贴板
  1. {报表更新（选股）_港澳   
  2. 首先要保证F10是最新的（请务必及时更新下载通达信F10）   
  3. 先建立中报（6.30）更新板块   
  4. 然后根据报表时间自己设定更新（选股）}   
  5. INPUT:年(2009,1990,2099) ,月(6,1,12) ,日(30,1,31);   
  6. t:=f10find('【每股指标】',1);   
  7. t1:=f10find('财务指标(单位)',t);   
  8. NX:=f10text(t1+20,4);   
  9. NS:=STRTONUM(NX),LINETHICK0;   
  10. YX:=f10text(t1+25,2);   
  11. YS:=STRTONUM(YX),LINETHICK0;   
  12. RX:=f10text(t1+28,2);   
  13. RS:=STRTONUM(RX),LINETHICK0;   
  14. NS=年 and YS=月 and RS=日;   

 

下载链接：( 说明：股海资源如需解压密码的请输入本站域名：www.guhai.com.cn请仔细输入！）
本地下载 （免费下载）
上一篇：迎中秋，庆祖国60华诞，一组指标组合作为礼物（一发千钧）  下一篇：飞狐指标，用完就说好，指标稳定无未来
☞股海网提供公式解密、改选股服务 联系点击查看详情（有偿服务,非诚勿扰）...
☞股海网公式指标安装帮助说明，新手必读，好好学习天天向上！...
☞股海网注册、登录、下载问题说明，如遇问题请查阅。...
　☟问题反馈 ☞┄┄┄┄┄┄┄┄┄┄→收藏资源:

最新“港澳F10副图”

  • 下载资源所需积分

    0

  • 当前拥有积分

    0

现在就去充值积分 加入VIP可下载100以下的所有资源
上传会员: 
股海网
文件大小: 
Bytes
上传时间: 
2009-09-29
下载积分: 
-
免责声明: 
请仔细阅读并同意后才能下载
本附件为用户分享上传，股海网没有对文件进行验证，不能保证下载资源的准确性、安全性和完整性，也不保证下载资源能正常安装和使用，且下载后扣除的积分无法退还，除非您充分理解并完全接受本声明，否则您无权下载。
本站对提供下载的软件、指标、资料等不拥有任何权利，其版权归该下载资源的合法拥有者所有。本附件仅供学习和研究使用，不得用于商业或者非法用途，如有侵犯您的版权， 请参看 《股海网侵权处理流程》《股海网免责声明条款》。
点击下载无反应时，更换主流浏览器重新登录操作，如360浏览器、Edge浏览器、谷歌浏览器，个别浏览器有不兼容现象。
勾选以下表示您已经阅读并同意以上声明才能下载本文件，扣除积分无法退还！
√ 我已阅读所有条款规定， 请点我同意 所有条款内容！我自愿下载！ ←
提示：如下载失败，请点关闭刷新此页面或提交问题反馈给管理员→
关闭
栏目导航

关于我们 - 联系我们 - 隐私政策 - 免责声明 - 下载帮助 - 广告合作 - SiteMap - TOP
增值电信业务经营ICP许可证:湘B2-20210269　湘ICP备09016573号-10 湘公网安备43108102000040号
Copyright © 2021 铭网科技,All Rights Reserved.