分析家公式网,提供股票公式,股票软件用户登录  |  用户 注册
当前位置：分析家公式网 → 软件中心 → 股票公式 → 大智慧L2公式
大智慧F10提取
  • 软件大小：21.0 KB
  • 推荐星级：
  • 更新时间：2012-05-05 04:30:10
  • 软件类别： 国产软件 / 大智慧L2公式
  • 软件语言：简体中文
  • 授权方式： 免费版
  • 联系方式：暂无联系方式
  • 官方主页： Home Page
  • 点击大图：  【一键转帖到论坛】
  • 插件情况：
  • 运行环境：Win9X/Win2000/WinXP/Win2003/
  • 相关Tags：大智慧f10  
  • (0)0%
    (0)0%

软件介绍

{FXJ 可用}
cpbd:=f10find('☆[操盘必读]☆',1);
zxzb:=f10find('◆ 最新指标',cpbd+1);
zxsjsj:=f10find('◇万国测评制作',cpbd+1);
hydw:=f10find('◆ 行业地位 ◆',1000);
gxsj:=f10find('◇万国测评制作:',hydw);
zjsj:=f10text(gxsj,36);
{取行业}
hydw1:=f10find('所属行业:',hydw+1);
hydw3:=f10find('证监会行业:',hydw1+1);
hydw2:=f10find('截止日期:',hydw3+1);
{万国测评的资料是否完整，不完整就什么都不做}{文本数据不足，退出}
IF hydw1>0 and hydw3>0 and hydw2>0 THEN
BEGIN
zjh:=f10text(hydw3,hydw2-hydw3);{证监会描叙段}
hydw4:=f10find('共',hydw3+1);
js:=strtonum(f10text(hydw4+2,3));{取行业内企业家数}
{取时间}
sj:=f10text(hydw2,19);
{取每股收益排名}
mgsy:=f10find('每股收益 排名',hydw2+1);
mgsy1:=f10find('净资产收 排名',mgsy+1);
{wz:=mgsy+164;
FOR i=1 to js DO BEGIN
if pm=1 then break;
f10str:=f10text(wz,73);
dm:=strleft(f10str,15);
pm:=strtonum(strright(f10str,3));
wz:=wz+4+73;
END;}
gpszh:=f10find(STKLABEL,mgsy);
f10str:=f10text(gpszh,73);
dm:=strleft(f10str,15);
每股收益排:strtonum(strright(f10str,3)),linethick0,PRECIS2,colorgray;
{取净利润排名}
gpszh1:=f10find(STKLABEL,mgsy1);
f10str1:=f10text(gpszh1,73);
净利润排:strtonum(f10text(gpszh1+56,3)),linethick0,PRECIS2,colorgray;
{取主营收入及净资产收益率排名}
主营收入排:strtonum(f10text(gpszh+56,3)),linethick0,precis2,colorgray;
净资产收益排:strtonum(strright(f10str1,3)),linethick0,precis2,colorgray;
综合排名值:每股收益排+净利润排+主营收入排+净资产收益排,linethick0,precis2,colorff00a0;
{取最新净利润同比增长率、主营收入同比增长率及净资产收益率及数据时间}
zytb:=f10find('主营收入同比增长',cpbd+1);
主营收入同比:strtonum(f10text(zytb+20,10)),linethick0,PRECIS2,colorgray;
jll:=f10find('净利润同比增长',zytb+1);
净利润同比:strtonum(f10text(jll+20,10)),linethick0,PRECIS2,colorgray;
jzc:=f10find('净资产收益率',jll+1);
净资产收益率:strtonum(f10text(jzc+20,10)),linethick0,precis2,colorgray;
zxsj:=f10text(zxzb,zxsjsj-5-zxzb);
gxsjy:=f10text(zxsjsj,34);
{--------图解模版---------}
DRAWTEXTREL(350,10,zxsj+' '+gxsjy),ALIGN1,COLORRED;
DRAWTEXTREL(350,110,'主营收入同比增长 '+主营收入同比+' ％'+' 净利润同比增长 '+净利润同比+' ％'+' 净资产收益率 '+净资产收益率+' ％'),ALIGN1,COLORRED;
DRAWTEXTREL(300,310,sj+' '+zjsj),ALIGN1,COLORRED;
DRAWTEXTREL(300,410,zjh),ALIGN1,COLORRED;
DRAWTEXTREL(350,510,'每股收益在本行业内排第 '+每股收益排+' 位 '+' 净利润金額在本行业内排第 '+净利润排+' 位'),ALIGN1,COLORRED;
DRAWTEXTREL(350,610,'主营收入在本行业内排第 '+主营收入排+' 位 '+' 净资产收益在本行业内排第 '+净资产收益排+' 位'),ALIGN1,COLORRED;
DRAWTEXTREL(500,810,dm+' 在本行业综合排名分值 '+综合排名值),ALIGN1,COLORff00a0,linethick4;
END;


{大智慧L2--万国F10资料提取}
F10:=IF(F10FIND('万国测评制作',1)>0,1,0);
HW1:=F10FIND('每股收益',50);
QSW:=F10FIND('◆ 控盘情况 ◆',500);
QSW1:=F10FIND('出]☆',1000)+120;
JSW1:=F10FIND('红]☆',QSW1+300)-80;
{F10数据查找}
IF F10=1 AND QSW>0 AND QSW1>0 AND JSW1>0 THEN{万国测评的资料是否完整，不完整就什么都不做}
BEGIN
{年报TIP}
f10str:=f10text(HW1,1024);
三季收益 := strmid(f10str,23-3,6);
HW2:=strfind(f10str,'每股净资产',1);
净资产:= strmid(f10str,HW2+22-3,6);
HW3:=strfind(f10str,'预计年报公布日' ,HW2+80);
if(HW3>0) then
begin
年报日:= strmid(f10str,HW3+18-3,10);
end;
{控盘情况数据栏数据提取}
f10str:=f10text(QSW,320);
WZ1:=strfind(f10str,'-',0)-4;
WZ2:=strfind(f10str,'-',WZ1+10)-4;
WZ3:=strfind(f10str,'-',WZ2+10)-4;
WZ4:=strfind(f10str,'-',WZ3+10)-4;
WZ5:=F10FIND('◆ 概念题材',WZ1);{查找结束位}
{取时间}
T1:= strmid(f10str,WZ1,10);
T2:= strmid(f10str,WZ2,10);
T3:=strmid(f10str,WZ3,10);
T4:= strmid(f10str,WZ4,10);
{取股东户数}
LS:=138;
HS1:=STRTONUM(strmid(f10str,WZ1+LS,10));
HS2:=IF(WZ2<WZ5,STRTONUM(strmid(f10str,WZ2+LS,10)),0);
HS3:=IF(WZ3<WZ5,STRTONUM(strmid(f10str,WZ3+LS,10)),0);
HS4:=IF(WZ4<WZ5,STRTONUM(strmid(f10str,WZ4+LS,10)),0);
{取户均持股数}
LS:=208;
RS1:=STRTONUM(strmid(f10str,WZ1+LS,10));
RS2:=IF(WZ2<WZ5 AND HS2>100,STRTONUM(strmid(f10str,WZ2+LS,10)),0);
RS3:=IF(WZ3<WZ5 AND HS3>100,STRTONUM(strmid(f10str,WZ3+LS,10)),0);
RS4:=IF(WZ4<WZ5 AND HS4>100,STRTONUM(strmid(f10str,WZ4+LS,10)),0);
{大股东数据查找}
f10str:=f10text(QSW1,JSW1-QSW1);
sjt:=f10find(' 占流通股 ',QSW1);
if STRTONUM(f10text(sjt-61,10))>0 then
TT1:=f10text(sjt-61,10);
else TT1:=f10text(sjt-22,10);
HJW:=f10find('总 计',sjt);
持股一:=strtonum(f10text(HJW+6,38));
if strtonum(f10text(HJW+45,5))=0 then
比例一:=持股一/CAPITAL*10000;
else
比例一:= strtonum(f10text(HJW+45,5));
sjt1:=f10find(' 占流通股 ',sjt+1);
if strtonum(f10text(sjt1-61,10))>0 then
TT2:=f10text(sjt1-61,10);
else TT2:=f10text(sjt1-22,10);
HJW1:=f10find('总 计',sjt1);
持股二:=strtonum(f10text(HJW1+6,38));
if strtonum(f10text(HJW1+45,5))=0 then
比例二:=持股二/CAPITAL*10000;
else
比例二:= strtonum(f10text(HJW1+45,5));
sjt2:=f10find(' 占流通股 ',sjt1+1);
if strtonum(f10text(sjt2-61,10))>0 then
TT3:=f10text(sjt2-61,10);
else TT3:=f10text(sjt2-22,10);
HJW2:=f10find('总 计',sjt2);
持股三:=strtonum(f10text(HJW2+6,38));
if strtonum(f10text(HJW2+45,5))=0 then
比例三:=持股三/CAPITAL*10000;
else
比例三:= strtonum(f10text(HJW2+45,5));
sjt3:=f10find(' 占流通股 ',sjt2+1);
if sjt3>0 and sjt3<jsw1 then begin
if strtonum(f10text(sjt3-61,10))>0 then
TT4:=f10text(sjt3-61,10);
else TT4:=f10text(sjt3-22,10);
HJW3:=f10find('总 计',sjt3);
持股四:=strtonum(f10text(HJW3+6,38));
if strtonum(f10text(HJW3+45,5))=0 then
比例四:=持股四/CAPITAL*10000;
else
比例四:= strtonum(f10text(HJW3+45,5));
end;
当期:=持股一;
当期1:=比例一;
上期:=持股二;
上期1:=比例二;
±比例:=当期1-上期1;
前二:=持股三;
前二1:=比例三;
前三:=持股四;
前三1:=比例四;
{将变化持股数对应显示在对应位置}
{排序}
股东增幅:(HS1-HS2)/HS2*100,PRECIS2,linethick0,Colorff00a0;
持股增幅:(RS1-RS2)/RS2*100,PRECIS2,linethick0,COLORRED;
主力增幅:(当期-上期)/上期*100,PRECIS2,LINETHICK0,Colorblue;
主力流通:(当期-上期1)/当期1*100,PRECIS2,LINETHICK0,Colorffcc00;
{-------------------【图解模板】-------------------}
A2:=0;
A3:=1000;
AG:=INTPART((A3-A2)/10);
{显示文字}
DRAWTEXTREL(0,AG*0,'报表时间'),COLORblue;
DRAWTEXTREL(0,AG*2,'户均持股'),Colorblue;
DRAWTEXTREL(0,AG*4,'股东户数'),Colorblue;
DRAWTEXTREL(0,AG*6,'主力占流通%'),Colorblue;
DRAWTEXTREL(0,AG*8,'主力持股数(万)'),Colorblue;
{时间}
DRAWTEXTREL(AG*8,AG*0,T1),ALIGN2,COLORred;
DRAWTEXTREL(AG*6,AG*0,T2),ALIGN2,COLORred;
DRAWTEXTREL(AG*4,AG*0,T3),ALIGN2,COLORred;
DRAWTEXTREL(AG*2,AG*0,T4),ALIGN2,COLORred;
{户均持股}
DRAWTEXTREL(AG*8,AG*2,NUMTOSTR(RS1 )),ALIGN2,Colorffcc00;
DRAWTEXTREL(AG*6,AG*2,NUMTOSTR(RS2 )),ALIGN2,Colorffcc00;
DRAWTEXTREL(AG*4,AG*2,NUMTOSTR(RS3 )),ALIGN2,Colorffcc00;
DRAWTEXTREL(AG*2,AG*2,NUMTOSTR(RS4 )),ALIGN2,Colorffcc00;
{股东户数}
DRAWTEXTREL(AG*8,AG*4,NUMTOSTR(HS1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(AG*6,AG*4,NUMTOSTR(HS2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(A

地址


·上一软件：筹码分布（副图指标 源码 贴图 简单使用说明）
·下一软件：超前MACD优化版（源码、副图、贴图、无未来）

软件评论评论内容只代表网友观点，与本站立场无关！

   评论摘要(共 0 条，得分 0 分，平均 0 分) 查看完整评论

说明

* 使用方法：点击上面蓝色块，打开新页面按照提示进行

* 本网站提供的各种股票软件，例如大智慧软件，通达信软件，同花顺软件，东方财富通等等，和各种股票公式指标，例如大智慧公式，通达信公式，同花顺公式，文华公式，博易大师公式，股票价格计算公式等等公式指标等，都来源网上公开来源收集

本网提供的公式文件说明：
* alg格式飞狐股票公式，可以用飞狐交易师或者交易师软件导入；
* fnc格式大智慧新一代公式指标，可以用大智慧股票软件使用，少部分可以用分析家股票软件引入使用；
* exp格式大智慧经典版股票公式，仅可以用大智慧经典版股票软件引入使用；
* tni和tnc格式通达信股票公式，仅可以用通达信新引入使用，例如可以用通达信股票软件引入使用；
* tne，tn6格式通达信公式，可以用通达信公式编辑器5.0版导入，推荐通达信金融终端版本；
* hxf格式同花顺股票公式，仅可以用同花顺股票软件引入使用。
以上的各种软件都可以在本网股票软件栏目找到!

* 关于股票公式时间限制,如果在引入大智慧公式，交易师公式或者飞狐公式的时候，发现公式名称栏是空白的，这时候调整电脑时间到1997年，又能出现公式名称，并且能正常显示，可能是公式使用期限已过。
* 关于还原公式源码如果你忘记了自己编写的大智慧公式，通达信公式，同花顺公式,操盘手公式,飞狐公式，博易大师公式，金字塔公式，文华公式和交易师公式等等公式的密码，本网可帮恢复源码，有.偿.服.务无意勿扰，点击在线咨询联系我。

* 关于股票公式源码编辑
本网提供的源码，一般都可以编辑成公式，如果不明白公式的编辑，在本页右侧教程录像可参考，或者找公式教程资料学习，请搜索：教程

* 如果您发现软件内容或者链接错误，请点击报告错误谢谢！
* 站内提供的所有软件包含源码均是由网上搜集，若侵犯了你的版权利益，请联系通知我们!

~

栏目导航

本类热门

相关软件

如何导入公式

关于本站 | 网站帮助 | 广告合作 | 声明 | 友情连接 | 网站地图 |
分析家公式网声明：本站所有股票公式软件资料均网上公开收集，如侵权请联系删帖。站内所有广告，均与本站无关！
Copyright © 2003-2022 fxjgsw.Com. All Rights Reserved .
页面执行时间：5,078.12500 毫秒