论坛 › 〖公司与行业分析〗 › 欧奈尔选股法80只牛股纵览（年盈利超130%）累计收益901.38%今日评分公布0426

king1898 发表于 2007-4-11 10:06

原帖由 ghoster222 于 2007-4-11 09:43 发表 http://bbs.macd.cn/static/image/common/back.gif
卖出成发科技 12.73买入北方天鸟
ghoster兄，为啥看好北方天鸟？星马的确不错！！vv

king1898 发表于 2007-4-11 10:08

恭喜老大！！vv

白云山下 发表于 2007-4-11 10:11

恭喜老大！！！

huanwu000 发表于 2007-4-11 10:18

老大帮忙看下000830鲁西化工的后势如何
谢了

pangaoshou 发表于 2007-4-11 10:18

原帖由 lymanqun 于 2007-4-11 10:00 发表 http://bbs.macd.cn/static/image/common/back.gif
买入南玻——17。82元——组合1
周末已经看好，周一没动手，可惜。

贺依然大哥，大家一起继续加油吧！

zhbsystem888 发表于 2007-4-11 10:20

原帖由 lymanqun 于 2007-4-10 08:35 发表 http://bbs.macd.cn/static/image/common/back.gif
【历年简要财务指标】
┌─────────┬─────┬─────┬─────┬─────┐
｜每股指标(单位)    ｜2006-12-31｜2006-09-30｜2006-06-30｜2006-03-31｜
├─────────┼──── ...

港澳F10数据说明：
1.【3.环比分析】【单季度财务分析】这一栏的数据是要每年的年报出来才会进行更新，基本没什么用，其中的数据在【历年简要财务指标】这一栏进行分拆即可得到。
2.【历年简要财务指标】这一栏的数据每一项都是总和数据（比如2006-09-30这栏下的是前三季度的总和数据），我在做指标时进行了分拆，指标上显示的都是我拆成单季度的数据进行统计的，主要是净资产收益率（未做同环比）、主营业务收入、主营业务利润（1-3季报时，会有最早的一季取值不是太妥，在指标中有注释说明，见下面的红色部分的那一项，我没有找到可以分拆得到该季度的单季度主营业务利润数据的地方，直接以这栏的数据进行统计了（用于同比），但是是最早的一期，影响不是很大。仅此一项有瑕疵！！而且仅对主营业务利润率最早一期的同比数据有小小影响。）、净利润的金额及其同环比。
3. 税后利润增长率、三项费用之和占主营业务利润比、三项费用增长率、资产负债率、现金流都只有年度数据。
4. 我测试了2006-12-31（以出年报）和2006-09-30（年报未出）季报的数据，正确！06-30和03-31季报因无数据无法测试。数据分析是精细的工作，大家在使用的时候，最少还是要测试一次，以防我有遗漏之处，在2007-03-31和2007-06-30季报出时更是要测试一下！
5. 好了，又花了一晚上，但愿大家用的愉快，日进斗金，不枉我花费的时间和精力哦，:*18*: ，指标随后送上。

【历年简要财务指标】
┌─────────┬─────┬─────┬─────┬─────┐
｜每股指标(单位)    ｜2006-09-30｜2006-06-30｜2006-03-31｜2005-12-31｜
├─────────┼─────┼─────┼─────┼─────┤
｜每股收益(元)      ｜0.0700    ｜0.0592    ｜0.0285    ｜0.0500    ｜
｜每股收益扣除(元)｜-         ｜0.0492    ｜0.0272    ｜0.0300    ｜
｜每股净资产(元)    ｜1.8900    ｜1.9100    ｜2.4300    ｜2.4000    ｜
｜调整后每          ｜          ｜          ｜          ｜          ｜
｜股净资产(元)      ｜1.8900    ｜1.9100    ｜2.4300    ｜2.4000    ｜
｜净资产收益率(%)   ｜3.5100    ｜3.1000    ｜1.1700    ｜2.1200    ｜
｜每股资本公积金(元)｜0.4459    ｜0.4459    ｜0.8796    ｜0.8796    ｜
｜每股未分配利润(元)｜0.1082    ｜0.1311    ｜0.1221    ｜0.0935    ｜
｜主营业务收入(万元)｜178583.49 ｜125874.26 ｜64732.39｜211030.12 ｜
｜主营业务利润(万元)｜17162.40｜10992.12｜5591.45   ｜26987.48｜
｜投资收益(万元)    ｜7201.98   ｜6397.19   ｜2612.65   ｜3153.61   ｜
｜净利润(万元)      ｜6114.40   ｜5462.26   ｜2026.59   ｜3623.16   ｜
└─────────┴─────┴─────┴─────┴─────┘
┌─────────┬─────┬─────┬─────┬─────┐
｜每股指标(单位)    ｜2005-09-30｜2005-06-30｜2005-03-31｜2004-12-31｜
├─────────┼─────┼─────┼─────┼─────┤
｜每股收益(元)      ｜0.0900    ｜0.1011    ｜0.0459    ｜0.0551    ｜
｜每股收益扣除(元)｜0.0700    ｜0.0815    ｜0.0523    ｜0.0048    ｜
｜每股净资产(元)    ｜2.4500    ｜3.1700    ｜3.1100    ｜3.0700    ｜
｜调整后每          ｜          ｜          ｜          ｜          ｜
｜股净资产(元)      ｜2.4400    ｜3.1600    ｜3.1000    ｜3.0600    ｜
｜净资产收益率(%)   ｜3.7700    ｜3.1900    ｜1.4700    ｜1.8000    ｜
｜每股资本公积金(元)｜0.8764    ｜1.4393    ｜1.4393    ｜1.4393    ｜
｜每股未分配利润(元)｜0.1682    ｜0.1996    ｜0.1443    ｜0.0985    ｜
｜主营业务收入(万元)｜153827.43 ｜109166.20 ｜54456.48｜187216.94 ｜
｜主营业务利润(万元)｜15276.80｜11061.51｜6683.93   ｜19160.08｜
｜投资收益(万元)    ｜5781.28   ｜4782.93   ｜1898.49   ｜2603.85   ｜
｜净利润(万元)      ｜6566.15   ｜5520.59   ｜2504.36   ｜3011.75   ｜
└─────────┴─────┴─────┴─────┴─────┘
【利润构成与盈利能力】
┌─────────┬─────┬─────┬─────┬─────┐
｜财务指标(单位)    ｜2006-12-31｜2005-12-31｜2004-12-31｜2003-12-31｜
├─────────┼─────┼─────┼─────┼─────┤
｜主营业务收入(万元)｜15779146.6｜12660836.2｜5863806.03｜4446036.89｜
｜主营业务利润(万元)｜2789307.66｜2593146.36｜1678270.93｜1327265.46｜
｜经营费用(万元)    ｜223896.79 ｜160654.92 ｜43803.43｜36775.01｜
｜管理费用(万元)    ｜538815.05 ｜509536.37 ｜247301.71 ｜215794.43 ｜
｜财务费用(万元)    ｜130636.53 ｜104360.88 ｜43522.43｜76152.95｜
｜三项费用增长率(%) ｜15.33   ｜131.46    ｜1.79      ｜7.47      ｜
｜营业利润(万元)    ｜1898400.90｜1830370.47｜1353741.12｜1004927.06｜
｜投资收益(万元)    ｜32536.73｜18135.65｜1066.12   ｜3963.09   ｜
｜补贴收入(万元)    ｜4473.54   ｜2508.03   ｜153.81    ｜15.00   ｜
｜营业外收支      ｜          ｜          ｜          ｜          ｜
｜净额(万元)      ｜-34637.80 ｜-19936.79 ｜3684.76   ｜-16045.36 ｜
｜利润总额(万元)    ｜1900773.38｜1831077.36｜1358645.80｜992859.79 ｜
｜所得税(万元)      ｜554527.70 ｜577656.69 ｜414677.15 ｜295378.36 ｜
｜净利润(万元)      ｜1301026.45｜1266552.90｜939523.14 ｜697572.50 ｜
｜销售毛利率(%)   ｜18.10   ｜21.03   ｜29.34   ｜30.67   ｜
｜主营业务利润率(%) ｜17.68   ｜20.48   ｜28.62   ｜29.85   ｜
｜净资产收益率(%)   ｜15.87   ｜17.01   ｜22.44   ｜19.67   ｜
└─────────┴─────┴─────┴─────┴─────┘

【经营与发展能力】
┌─────────┬─────┬─────┬─────┬─────┐
｜财务指标(单位)    ｜2006-12-31｜2005-12-31｜2004-12-31｜2003-12-31｜
├─────────┼─────┼─────┼─────┼─────┤
｜存货周转率(%)   ｜4.57      ｜6.33      ｜7.41      ｜7.69      ｜
｜应收账款周转率(%) ｜31.71   ｜35.41   ｜31.55   ｜33.69   ｜
｜总资产周转率(%)   ｜1.08      ｜1.23      ｜0.94      ｜0.73      ｜
｜主营业务收      ｜          ｜          ｜          ｜          ｜
｜入增长率(%)       ｜24.63   ｜115.91    ｜31.89   ｜-         ｜
｜营业利润增长率(%) ｜3.72      ｜35.21   ｜34.71   ｜-         ｜
｜税后利润增长率(%) ｜2.72      ｜34.81   ｜34.68   ｜63.29   ｜
｜净资产增长率(%)   ｜10.05   ｜77.91   ｜18.03   ｜-         ｜
｜总资产增长率(%)   ｜6.36      ｜121.03    ｜5.48      ｜-         ｜
└─────────┴─────┴─────┴─────┴─────┘



【3.环比分析】
【单季度财务分析】
┌─────────────────────────────────┐
｜                              2006年                              ｜
├───────┬──────┬─────┬──────┬─────┤
｜            ｜主营收入｜占年度比重｜净利润    ｜占年度比重｜
｜            ｜   (万元)   ｜   (％)   ｜(万元)    ｜   (％)   ｜
├───────┼──────┼─────┼──────┼─────┤
｜第一季度      ｜3249350.75｜   20.59｜   137188.69｜   10.54｜
｜第二季度      ｜3863581.67｜   24.49｜   301667.82｜   23.19｜
｜第三季度      ｜4210147.61｜   26.68｜   470642.51｜   36.17｜
｜第四季度      ｜4456066.53｜   28.24｜   391527.44｜   30.09｜
└───────┴──────┴─────┴──────┴─────┘
┌─────────────────────────────────┐
｜                              2005年                              ｜
├───────┬──────┬─────┬──────┬─────┤
｜            ｜主营收入｜占年度比重｜净利润    ｜占年度比重｜
｜            ｜   (万元)   ｜   (％)   ｜(万元)    ｜   (％)   ｜
├───────┼──────┼─────┼──────┼─────┤
｜第一季度      ｜1778760.61｜   14.05｜   307293.92｜   24.26｜
｜第二季度      ｜3132753.87｜   24.74｜   407233.35｜   32.15｜
｜第三季度      ｜3449045.66｜   27.24｜   330631.92｜   26.10｜
｜第四季度      ｜4300276.01｜   33.97｜   221393.71｜   17.48｜
└───────┴──────┴─────┴──────┴─────┘

hudtjy 发表于 2007-4-11 10:21

恭喜斑竹

king1898 发表于 2007-4-11 10:25

原帖由 zhbsystem888 于 2007-4-11 10:20 发表 http://bbs.macd.cn/static/image/common/back.gif


港澳F10数据说明：
1.【3.环比分析】【单季度财务分析】这一栏的数据是要每年的年报出来才会进行更新，基本没什么用，其中的数据在【历年简要财务指标】这一栏进行分拆即可得到。
2.【历年简要财务指标】 ...
zhbsystem兄辛苦了！！vv

石上清泉 发表于 2007-4-11 10:25

太牛了！
华茂卖的好。

fatmanwei 发表于 2007-4-11 10:27

恭喜老大。。。
请看0698可买吗？

zhbsystem888 发表于 2007-4-11 10:29

原帖由 lymanqun 于 2007-4-10 09:32 发表 http://bbs.macd.cn/static/image/common/back.gif


你要套取我的欧奈尔选股公式的算法，哈哈哈。。。，还是算了吧，仅把公式中的涉及的项目说一下：
基本面：主营业务增长率，净利润增长率，税后利润增长率，资产负债率，现金流，三项费用占主营业务利润比率 ...
依然大哥和小弟开玩笑了，我只是想做个完善的基本面指标而已，呵呵！这是你的知识产权，告诉我公式中所涉及的项目已经很感谢了！！
严重考验你的机器性能，:*22*: :*22*: ！建议你分开使用，下面的是总的指标，自动分析当期报季日期（预定义日期需要自己手动修改）自动选择分拆模块进行分拆统计，我随后整理出分季度的，运行非常快，大智慧还是不如飞狐，如果在飞狐中运行真是快。
指标中的数据是按照依然大哥提出的数据全部提取出来了，最新一季的主营业务收入同环比、主营业务利润率同环比、净利润增长率同环比都可以进行排序（其实每季都可以，就是太占地方了，哈哈）！
{大智慧L2--港澳F10基本面统计数据}
lncwzbwz:=f10find('历年简要财务指标',1);
{报季时间}
zyywsrsjwz1:=f10find('每股指标(单位)',lncwzbwz+1);
zyywsrsjwz2:=f10find('每股指标(单位)',zyywsrsjwz1+1);
zyywsrsj1:=f10text(zyywsrsjwz1+20,10);
zyywsrsj2:=f10text(zyywsrsjwz1+32,10);
zyywsrsj3:=f10text(zyywsrsjwz1+44,10);
zyywsrsj4:=f10text(zyywsrsjwz1+56,10);
rq1:=strcmp(zyywsrsj1,'2006-12-31');{对应需要修改的时间是2007年末季报出来，将值改为'2007-12-31'}
rq2:=strcmp(zyywsrsj1,'2006-09-30');{对应需要修改的时间是2007年三季报出来，将值改为'2007-09-30'}
rq3:=strcmp(zyywsrsj1,'2007-06-30');{对应需要修改的时间是2007年二季报出来，将值改为'2007-06-30'}
rq4:=strcmp(zyywsrsj1,'2007-03-31');{对应需要修改的时间是2007年一季报出来，将值改为'2007-03-31'}
if rq1=0 then begin
{取四个季度的净资产收益率}
jzcsylwz:=f10find('净资产收益率(%) ',zyywsrsjwz1+1);
jzcsyl4:=strtonum(f10text(jzcsylwz+56,10));
jzcsyl3:=strtonum(f10text(jzcsylwz+44,10))-jzcsyl4;
jzcsyl2:=strtonum(f10text(jzcsylwz+32,10))-jzcsyl4-jzcsyl3;
jzcsyl1:=strtonum(f10text(jzcsylwz+20,10))-jzcsyl4-jzcsyl3-jzcsyl2;
{取八个季度的主营收入，算出每个季度主营收入增长率的同环比}
{主营收入金额}
zyywsrwz1:=f10find('主营业务收入(万元)',jzcsylwz+1);
zyywsrwz2:=f10find('主营业务收入(万元)',zyywsrsjwz2+1);
zyywsr8:=strtonum(f10text(zyywsrwz2+56,10));{2005-03-31}
zyywsr7:=strtonum(f10text(zyywsrwz2+44,10))-zyywsr8;{2005-06-30}
zyywsr6:=strtonum(f10text(zyywsrwz2+32,10))-zyywsr7-zyywsr8;{2005-09-30}
zyywsr5:=strtonum(f10text(zyywsrwz2+20,10))-zyywsr6-zyywsr7-zyywsr8;{2005-12-31}
zyywsr4:=strtonum(f10text(zyywsrwz1+56,10));{2006-03-31}
zyywsr3:=strtonum(f10text(zyywsrwz1+44,10))-zyywsr4;{2006-06-30}
zyywsr2:=strtonum(f10text(zyywsrwz1+32,10))-zyywsr3-zyywsr4;{2006-09-30}
zyywsr1:=strtonum(f10text(zyywsrwz1+20,10))-zyywsr2-zyywsr3-zyywsr4;{2006-12-31}
{主营收入环比增长率}
zyywsrzlv1:=(zyywsr1-zyywsr2)/abs(zyywsr2)*100;
zyywsrzlv2:=(zyywsr2-zyywsr3)/abs(zyywsr3)*100;
zyywsrzlv3:=(zyywsr3-zyywsr4)/abs(zyywsr4)*100;
zyywsrzlv4:=(zyywsr4-zyywsr5)/abs(zyywsr5)*100;
主营收入环比:zyywsrzlv1,linethick0,colorgray,precis2;
{主营收入同比增长率}
zyywsrzlv5:=(zyywsr1-zyywsr5)/abs(zyywsr5)*100;
zyywsrzlv6:=(zyywsr2-zyywsr6)/abs(zyywsr6)*100;
zyywsrzlv7:=(zyywsr3-zyywsr7)/abs(zyywsr7)*100;
zyywsrzlv8:=(zyywsr4-zyywsr8)/abs(zyywsr8)*100;
主营收入同比:zyywsrzlv5,linethick0,colorgray,precis2;
{取八个季度主营业务利润率}
zyywlrwz1:=f10find('主营业务利润(万元)',zyywsrwz1+1);
zyywlrwz2:=f10find('主营业务利润(万元)',zyywsrwz2+1);
zyywlr8:=strtonum(f10text(zyywlrwz2+56,10));{2005-03-31}
zyywlr7:=strtonum(f10text(zyywlrwz2+44,10))-zyywlr8;{2005-06-30}
zyywlr6:=strtonum(f10text(zyywlrwz2+32,10))-zyywlr7-zyywlr8;{2005-09-30}
zyywlr5:=strtonum(f10text(zyywlrwz2+20,10))-zyywlr6-zyywlr7-zyywlr8;{2005-12-31}
zyywlr4:=strtonum(f10text(zyywlrwz1+56,10));{2006-03-31}
zyywlr3:=strtonum(f10text(zyywlrwz1+44,10))-zyywlr4;{2006-06-30}
zyywlr2:=strtonum(f10text(zyywlrwz1+32,10))-zyywlr3-zyywlr4;{2006-09-30}
zyywlr1:=strtonum(f10text(zyywlrwz1+20,10))-zyywlr2-zyywlr3-zyywlr4;{2006-12-31}
zyywlrl1:=zyywlr1/abs(zyywsr1)*100;
zyywlrl2:=zyywlr2/abs(zyywsr2)*100;
zyywlrl3:=zyywlr3/abs(zyywsr3)*100;
zyywlrl4:=zyywlr4/abs(zyywsr4)*100;
zyywlrl5:=zyywlr5/abs(zyywsr5)*100;
zyywlrl6:=zyywlr6/abs(zyywsr6)*100;
zyywlrl7:=zyywlr7/abs(zyywsr7)*100;
zyywlrl8:=zyywlr8/abs(zyywsr8)*100;
{主营业务利润率环比增长率}
zyywlrlzlv1:=(zyywlrl1-zyywlrl2)/abs(zyywlrl2)*100;
zyywlrlzlv2:=(zyywlrl2-zyywlrl3)/abs(zyywlrl3)*100;
zyywlrlzlv3:=(zyywlrl3-zyywlrl4)/abs(zyywlrl4)*100;
zyywlrlzlv4:=(zyywlrl4-zyywlrl5)/abs(zyywlrl5)*100;
主营利润率环比:zyywlrlzlv1,linethick0,colorgray,precis2;
{主营业务利润率同比增长率}
zyywlrlzlv5:=(zyywlrl1-zyywlrl5)/abs(zyywlrl5)*100;
zyywlrlzlv6:=(zyywlrl2-zyywlrl6)/abs(zyywlrl6)*100;
zyywlrlzlv7:=(zyywlrl3-zyywlrl7)/abs(zyywlrl7)*100;
zyywlrlzlv8:=(zyywlrl4-zyywlrl8)/abs(zyywlrl8)*100;
主营利润率同比:zyywlrlzlv5,linethick0,colorgray,precis2;
{取八个季度的净利润，算出每个季度增长率的同环比}
jlrwz1:=f10find('净利润(万元)',zyywsrwz1+1);
jlrwz2:=f10find('净利润(万元)',zyywsrwz2+1);
jlr8:=strtonum(f10text(jlrwz2+56,10));{2005-03-31}
jlr7:=strtonum(f10text(jlrwz2+44,10))-jlr8;{2005-06-30}
jlr6:=strtonum(f10text(jlrwz2+32,10))-jlr7-jlr8;{2005-09-30}
jlr5:=strtonum(f10text(jlrwz2+20,10))-jlr6-jlr7-jlr8;{2005-12-31}
jlr4:=strtonum(f10text(jlrwz1+56,10));{2006-03-31}
jlr3:=strtonum(f10text(jlrwz1+44,10))-jlr4;{2006-06-30}
jlr2:=strtonum(f10text(jlrwz1+32,10))-jlr3-jlr4;{2006-09-30}
jlr1:=strtonum(f10text(jlrwz1+20,10))-jlr2-jlr3-jlr4;{2006-12-31}
{净利润环比增长率}
jlrzlv1:=(jlr1-jlr2)/abs(jlr2)*100;
jlrzlv2:=(jlr2-jlr3)/abs(jlr3)*100;
jlrzlv3:=(jlr3-jlr4)/abs(jlr4)*100;
jlrzlv4:=(jlr4-jlr5)/abs(jlr5)*100;
净利润增长环比:jlrzlv1,linethick0,colorgray,precis2;
{净利润同比增长率}
jlrzlv5:=(jlr1-jlr5)/abs(jlr5)*100;
jlrzlv6:=(jlr2-jlr6)/abs(jlr6)*100;
jlrzlv7:=(jlr3-jlr7)/abs(jlr7)*100;
jlrzlv8:=(jlr4-jlr8)/abs(jlr8)*100;
净利润增长同比:jlrzlv5,linethick0,colorgray,precis2;
end;

if rq2=0 then begin
{取四个季度的净资产收益率}
jzcsylwz:=f10find('净资产收益率(%) ',zyywsrsjwz1+1);
jzcsylwz1:=f10find('净资产收益率(%) ',jzcsylwz+1);
jzcsyl4:=strtonum(f10text(jzcsylwz+56,10))-strtonum(f10text(jzcsylwz1+20,10));
jzcsyl3:=strtonum(f10text(jzcsylwz+44,10));
jzcsyl2:=strtonum(f10text(jzcsylwz+32,10))-jzcsyl3;
jzcsyl1:=strtonum(f10text(jzcsylwz+20,10))-jzcsyl2-jzcsyl3;

{取八个季度的主营收入及时间，算出每个季度同环比增长率}
{主营收入金额}
zyywsrwz1:=f10find('主营业务收入(万元)',jzcsylwz+1);
zyywsrwz2:=f10find('主营业务收入(万元)',zyywsrsjwz2+1);
zyywsrwz3:=f10find('【单季度财务分析】',zyywsrwz2+1);
zyywsr8:=strtonum(f10text(zyywsrwz3+1480,12));{2004-12-31}
zyywsr7:=strtonum(f10text(zyywsrwz2+44,10));{2005-03-31}
zyywsr6:=strtonum(f10text(zyywsrwz2+32,10))-zyywsr7;{2005-06-30}
zyywsr5:=strtonum(f10text(zyywsrwz2+20,10))-zyywsr6-zyywsr7;{2005-09-30}
zyywsr4:=strtonum(f10text(zyywsrwz1+56,10))-zyywsr5-zyywsr6-zyywsr7;{2005-12-31}
zyywsr3:=strtonum(f10text(zyywsrwz1+44,10));{2006-03-31}
zyywsr2:=strtonum(f10text(zyywsrwz1+32,10))-zyywsr3;{2006-06-30}
zyywsr1:=strtonum(f10text(zyywsrwz1+20,10))-zyywsr2-zyywsr3;{2006-09-30}
{主营收入环比增长率}
zyywsrzlv1:=(zyywsr1-zyywsr2)/abs(zyywsr2)*100;
zyywsrzlv2:=(zyywsr2-zyywsr3)/abs(zyywsr3)*100;
zyywsrzlv3:=(zyywsr3-zyywsr4)/abs(zyywsr4)*100;
zyywsrzlv4:=(zyywsr4-zyywsr5)/abs(zyywsr5)*100;
主营收入环比1:zyywsrzlv1,linethick0,colorgray,precis2;
{主营收入同比增长率}
zyywsrzlv5:=(zyywsr1-zyywsr5)/abs(zyywsr5)*100;
zyywsrzlv6:=(zyywsr2-zyywsr6)/abs(zyywsr6)*100;
zyywsrzlv7:=(zyywsr3-zyywsr7)/abs(zyywsr7)*100;
zyywsrzlv8:=(zyywsr4-zyywsr8)/abs(zyywsr8)*100;
主营收入同比1:zyywsrzlv5,linethick0,colorgray,precis2;
{取七个季度主营业务利润率和一个全年主营业务利润率}
zyywlrwz1:=f10find('主营业务利润(万元)',zyywsrwz1+1);
zyywlrwz2:=f10find('主营业务利润(万元)',zyywsrwz2+1);
zyywlr8:=strtonum(f10text(zyywlrwz2+56,10));{2004-12-31}{此处取值欠妥，但是无法取到2004年前3个季度主营业务利润的值。用2004年度的主营业务利润代替}
zyywlr7:=strtonum(f10text(zyywlrwz2+44,10));{2005-03-31}
zyywlr6:=strtonum(f10text(zyywlrwz2+32,10))-zyywlr7;{2005-06-30}
zyywlr5:=strtonum(f10text(zyywlrwz2+20,10))-zyywlr6-zyywlr7;{2005-09-30}
zyywlr4:=strtonum(f10text(zyywlrwz1+56,10))-zyywlr5-zyywlr6-zyywlr7;{2005-12-31}
zyywlr3:=strtonum(f10text(zyywlrwz1+44,10));{2006-03-31}
zyywlr2:=strtonum(f10text(zyywlrwz1+32,10))-zyywlr3;{2006-06-30}
zyywlr1:=strtonum(f10text(zyywlrwz1+20,10))-zyywlr2-zyywlr3;{2006-09-30}
zyywlrl1:=zyywlr1/abs(zyywsr1)*100;
zyywlrl2:=zyywlr2/abs(zyywsr2)*100;
zyywlrl3:=zyywlr3/abs(zyywsr3)*100;
zyywlrl4:=zyywlr4/abs(zyywsr4)*100;
zyywlrl5:=zyywlr5/abs(zyywsr5)*100;
zyywlrl6:=zyywlr6/abs(zyywsr6)*100;
zyywlrl7:=zyywlr7/abs(zyywsr7)*100;
zyywlrl8:=zyywlr8/abs(strtonum(f10text(zyywsrwz2+56,10)))*100;{此处取值欠妥，理由同上。用2004年度的主营业务利润率代替}
{主营业务利润率环比增长率}
zyywlrlzlv1:=(zyywlrl1-zyywlrl2)/abs(zyywlrl2)*100;
zyywlrlzlv2:=(zyywlrl2-zyywlrl3)/abs(zyywlrl3)*100;
zyywlrlzlv3:=(zyywlrl3-zyywlrl4)/abs(zyywlrl4)*100;
zyywlrlzlv4:=(zyywlrl4-zyywlrl5)/abs(zyywlrl5)*100;
主营利润环比1:zyywlrlzlv1,linethick0,colorgray,precis2;
{主营业务利润率同比增长率}
zyywlrlzlv5:=(zyywlrl1-zyywlrl5)/abs(zyywlrl5)*100;
zyywlrlzlv6:=(zyywlrl2-zyywlrl6)/abs(zyywlrl6)*100;
zyywlrlzlv7:=(zyywlrl3-zyywlrl7)/abs(zyywlrl7)*100;
zyywlrlzlv8:=(zyywlrl4-zyywlrl8)/abs(zyywlrl8)*100;
主营利润同比1:zyywlrlzlv5,linethick0,colorgray,precis2;
{取八个季度的净利润及时间，算出每个季度同比增长率}
jlrwz1:=f10find('净利润(万元)',zyywsrwz1+1);
jlrwz2:=f10find('净利润(万元)',zyywsrwz2+1);
jlr8:=strtonum(f10text(zyywsrwz3+1506,12));{2004-12-31}
jlr7:=strtonum(f10text(jlrwz2+44,10));{2005-03-31}
jlr6:=strtonum(f10text(jlrwz2+32,10))-jlr7;{2005-06-30}
jlr5:=strtonum(f10text(jlrwz2+20,10))-jlr6-jlr7;{2005-09-30}
jlr4:=strtonum(f10text(jlrwz1+56,10))-jlr5-jlr6-jlr7;{2005-12-31}
jlr3:=strtonum(f10text(jlrwz1+44,10));{2006-03-31}
jlr2:=strtonum(f10text(jlrwz1+32,10))-jlr3;{2006-06-30}
jlr1:=strtonum(f10text(jlrwz1+20,10))-jlr2-jlr3;{2006-09-30}
{净利润环比增长率}
jlrzlv1:=(jlr1-jlr2)/abs(jlr2)*100;
jlrzlv2:=(jlr2-jlr3)/abs(jlr3)*100;
jlrzlv3:=(jlr3-jlr4)/abs(jlr4)*100;
jlrzlv4:=(jlr4-jlr5)/abs(jlr5)*100;
净利润环比1:jlrzlv1,linethick0,colorgray,precis2;
{净利润同比增长率}
jlrzlv5:=(jlr1-jlr5)/abs(jlr5)*100;
jlrzlv6:=(jlr2-jlr6)/abs(jlr6)*100;
jlrzlv7:=(jlr3-jlr7)/abs(jlr7)*100;
jlrzlv8:=(jlr4-jlr8)/abs(jlr8)*100;
净利润同比1:jlrzlv5,linethick0,colorgray,precis2;
end;

if rq3=0 then begin
{取四个季度的净资产收益率}
jzcsylwz:=f10find('净资产收益率(%) ',zyywsrsjwz1+1);
jzcsylwz1:=f10find('净资产收益率(%) ',jzcsylwz+1);
jzcsyl4:=strtonum(f10text(jzcsylwz+56,10))-strtonum(f10text(jzcsylwz1+20,10));
jzcsyl3:=strtonum(f10text(jzcsylwz+44,10))-strtonum(f10text(jzcsylwz+56,10));
jzcsyl2:=strtonum(f10text(jzcsylwz+32,10));
jzcsyl1:=strtonum(f10text(jzcsylwz+20,10))-jzcsyl2;

{取八个季度的主营收入，算出每个季度增长率同环比}
{主营收入金额}
zyywsrwz1:=f10find('主营业务收入(万元)',jzcsylwz+1);
zyywsrwz2:=f10find('主营业务收入(万元)',zyywsrsjwz2+1);
zyywsrwz3:=f10find('【单季度财务分析】',zyywsrwz2+1);
zyywsr8:=strtonum(f10text(zyywsrwz3+1408,12));{2004-09-30}
zyywsr7:=strtonum(f10text(zyywsrwz2+44,10))-strtonum(f10text(zyywsrwz2+56,10));{2004-12-31}
zyywsr6:=strtonum(f10text(zyywsrwz2+32,10));{2005-03-31}
zyywsr5:=strtonum(f10text(zyywsrwz2+20,10))-zyywsr6;{2005-06-30}
zyywsr4:=strtonum(f10text(zyywsrwz1+56,10))-zyywsr5-zyywsr6;{2005-09-30}
zyywsr3:=strtonum(f10text(zyywsrwz1+44,10))-zyywsr4-zyywsr5-zyywsr6;{2005-12-31}
zyywsr2:=strtonum(f10text(zyywsrwz1+32,10));{2006-03-31}
zyywsr1:=strtonum(f10text(zyywsrwz1+20,10))-zyywsr2;{2006-06-30}
{主营收入环比增长率}
zyywsrzlv1:=(zyywsr1-zyywsr2)/abs(zyywsr2)*100;
zyywsrzlv2:=(zyywsr2-zyywsr3)/abs(zyywsr3)*100;
zyywsrzlv3:=(zyywsr3-zyywsr4)/abs(zyywsr4)*100;
zyywsrzlv4:=(zyywsr4-zyywsr5)/abs(zyywsr5)*100;
主营收入环比2:zyywsrzlv1,linethick0,colorgray,precis2;
{主营收入同比增长率}
zyywsrzlv5:=(zyywsr1-zyywsr5)/abs(zyywsr5)*100;
zyywsrzlv6:=(zyywsr2-zyywsr6)/abs(zyywsr6)*100;
zyywsrzlv7:=(zyywsr3-zyywsr7)/abs(zyywsr7)*100;
zyywsrzlv8:=(zyywsr4-zyywsr8)/abs(zyywsr8)*100;
主营收入同比2:zyywsrzlv5,linethick0,colorgray,precis2;
{取六个季度主营业务利润率和1个年度主营业务利润率和1个前三季度的主营业务利润率}
zyywlrwz1:=f10find('主营业务利润(万元)',zyywsrwz1+1);
zyywlrwz2:=f10find('主营业务利润(万元)',zyywsrwz2+1);
zyywlr8:=strtonum(f10text(zyywlrwz2+56,10));{2004-09-30}{此处取值欠妥，但是无法取到2004年前2个季度主营业务利润的值。}
zyywlr7:=strtonum(f10text(zyywlrwz2+44,10))-zyywlr8;{2004-12-31}
zyywlr6:=strtonum(f10text(zyywlrwz2+32,10));{2005-03-31}
zyywlr5:=strtonum(f10text(zyywlrwz2+20,10))-zyywlr6;{2005-06-30}
zyywlr4:=strtonum(f10text(zyywlrwz1+56,10))-zyywlr5-zyywlr6;{2005-09-30}
zyywlr3:=strtonum(f10text(zyywlrwz1+44,10))-zyywlr4-zyywlr5-zyywlr6;{2005-12-31}
zyywlr2:=strtonum(f10text(zyywlrwz1+32,10));{2006-03-31}
zyywlr1:=strtonum(f10text(zyywlrwz1+20,10))-zyywlr2;{2006-06-30}
zyywlrl1:=zyywlr1/abs(zyywsr1)*100;
zyywlrl2:=zyywlr2/abs(zyywsr2)*100;
zyywlrl3:=zyywlr3/abs(zyywsr3)*100;
zyywlrl4:=zyywlr4/abs(zyywsr4)*100;
zyywlrl5:=zyywlr5/abs(zyywsr5)*100;
zyywlrl6:=zyywlr6/abs(zyywsr6)*100;
zyywlrl7:=zyywlr7/abs(zyywsr7)*100;
zyywlrl8:=zyywlr8/abs(strtonum(f10text(zyywsrwz2+56,10)))*100;{此处取值欠妥，理由同上，用2004-09-30前三季度的主营业务利润率代替}
{主营业务利润率环比}
zyywlrlzlv1:=(zyywlrl1-zyywlrl2)/abs(zyywlrl2)*100;
zyywlrlzlv2:=(zyywlrl2-zyywlrl3)/abs(zyywlrl3)*100;
zyywlrlzlv3:=(zyywlrl3-zyywlrl4)/abs(zyywlrl4)*100;
zyywlrlzlv4:=(zyywlrl4-zyywlrl5)/abs(zyywlrl5)*100;
主营利润环比2:zyywlrlzlv1,linethick0,colorgray,precis2;
{主营业务利润率同比}
zyywlrlzlv5:=(zyywlrl1-zyywlrl5)/abs(zyywlrl5)*100;
zyywlrlzlv6:=(zyywlrl2-zyywlrl6)/abs(zyywlrl6)*100;
zyywlrlzlv7:=(zyywlrl3-zyywlrl7)/abs(zyywlrl7)*100;
zyywlrlzlv8:=(zyywlrl4-zyywlrl8)/abs(zyywlrl8)*100;
主营利润同比2:zyywlrlzlv5,linethick0,colorgray,precis2;
{取八个季度的净利润，算出每个季度增长率同环比}
jlrwz1:=f10find('净利润(万元)',zyywsrwz1+1);
jlrwz2:=f10find('净利润(万元)',zyywsrwz2+1);
jlr8:=strtonum(f10text(zyywsrwz3+1434,12));{2004-09-30}
jlr7:=strtonum(f10text(jlrwz2+44,10))-strtonum(f10text(jlrwz2+56,10));{2004-12-31}
jlr6:=strtonum(f10text(jlrwz2+32,10));{2005-03-31}
jlr5:=strtonum(f10text(jlrwz2+20,10))-jlr6;{2005-06-30}
jlr4:=strtonum(f10text(jlrwz1+56,10))-jlr5-jlr6;{2005-09-30}
jlr3:=strtonum(f10text(jlrwz1+44,10))-jlr4-jlr5-jlr6;{2005-12-31}
jlr2:=strtonum(f10text(jlrwz1+32,10));{2006-03-31}
jlr1:=strtonum(f10text(jlrwz1+20,10))-jlr2;{2006-06-30}
{净利润环比增长率}
jlrzlv1:=(jlr1-jlr2)/abs(jlr2)*100;
jlrzlv2:=(jlr2-jlr3)/abs(jlr3)*100;
jlrzlv3:=(jlr3-jlr4)/abs(jlr4)*100;
jlrzlv4:=(jlr4-jlr5)/abs(jlr5)*100;
净利润环比2:jlrzlv1,linethick0,colorgray,precis2;
{净利润同比增长率}
jlrzlv5:=(jlr1-jlr5)/abs(jlr5)*100;
jlrzlv6:=(jlr2-jlr6)/abs(jlr6)*100;
jlrzlv7:=(jlr3-jlr7)/abs(jlr7)*100;
jlrzlv8:=(jlr4-jlr8)/abs(jlr8)*100;
净利润同比2:jlrzlv5,linethick0,colorgray,precis2;
end;

if rq4=0 then begin
{取四个季度的净资产收益率}
jzcsylwz:=f10find('净资产收益率(%) ',zyywsrsjwz1+1);
jzcsylwz1:=f10find('净资产收益率(%) ',jzcsylwz+1);
jzcsyl4:=strtonum(f10text(jzcsylwz+56,10))-strtonum(f10text(jzcsylwz1+20,10));
jzcsyl3:=strtonum(f10text(jzcsylwz+44,10))-strtonum(f10text(jzcsylwz+56,10));
jzcsyl2:=strtonum(f10text(jzcsylwz+32,10))-strtonum(f10text(jzcsylwz+44,10))-strtonum(f10text(jzcsylwz+56,10));
jzcsyl1:=strtonum(f10text(jzcsylwz+20,10));
{取八个季度的主营收入，算出每个季度增长率同环比}
{主营收入金额}
zyywsrwz1:=f10find('主营业务收入(万元)',jzcsylwz+1);
zyywsrwz2:=f10find('主营业务收入(万元)',zyywsrsjwz2+1);
zyywsrwz3:=f10find('【单季度财务分析】',zyywsrwz2+1);
zyywsr8:=strtonum(f10text(zyywsrwz3+1336,12));{2004-06-30}
zyywsr7:=strtonum(f10text(zyywsrwz2+44,10))-strtonum(f10text(zyywsrwz2+56,10));{2004-09-30}
zyywsr6:=strtonum(f10text(zyywsrwz2+32,10))-strtonum(f10text(zyywsrwz2+44,10));{2004-12-31}
zyywsr5:=strtonum(f10text(zyywsrwz2+20,10));{2005-03-31}
zyywsr4:=strtonum(f10text(zyywsrwz1+56,10))-zyywsr5;{2005-06-30}
zyywsr3:=strtonum(f10text(zyywsrwz1+44,10))-zyywsr4-zyywsr5;{2005-09-30}
zyywsr2:=strtonum(f10text(zyywsrwz1+32,10))-zyywsr3-zyywsr4-zyywsr5;{2005-12-31}
zyywsr1:=strtonum(f10text(zyywsrwz1+20,10));{2006-03-31}
{主营收入环比增长率}
zyywsrzlv1:=(zyywsr1-zyywsr2)/abs(zyywsr2)*100;
zyywsrzlv2:=(zyywsr2-zyywsr3)/abs(zyywsr3)*100;
zyywsrzlv3:=(zyywsr3-zyywsr4)/abs(zyywsr4)*100;
zyywsrzlv4:=(zyywsr4-zyywsr5)/abs(zyywsr5)*100;
主营收入环比3:zyywsrzlv1,linethick0,colorgray,precis2;
{主营收入同比增长率}
zyywsrzlv5:=(zyywsr1-zyywsr5)/abs(zyywsr5)*100;
zyywsrzlv6:=(zyywsr2-zyywsr6)/abs(zyywsr6)*100;
zyywsrzlv7:=(zyywsr3-zyywsr7)/abs(zyywsr7)*100;
zyywsrzlv8:=(zyywsr4-zyywsr8)/abs(zyywsr8)*100;
主营收入同比3:zyywsrzlv5,linethick0,colorgray,precis2;
{取七个季度主营业务利润率和1个半年的主营业务利润率}
zyywlrwz1:=f10find('主营业务利润(万元)',zyywsrwz1+1);
zyywlrwz2:=f10find('主营业务利润(万元)',zyywsrwz2+1);
zyywlr8:=strtonum(f10text(zyywlrwz2+56,10));{2004-06-30}{此处取值欠妥，但是无法取到2004年一季度主营业务利润的值。}
zyywlr7:=strtonum(f10text(zyywlrwz2+44,10))-zyywlr8;{2004-09-30}
zyywlr6:=strtonum(f10text(zyywlrwz2+32,10))-zyywlr7-zyywlr8;{2004-12-31}
zyywlr5:=strtonum(f10text(zyywlrwz2+20,10));{2005-03-31}
zyywlr4:=strtonum(f10text(zyywlrwz1+56,10))-zyywlr5;{2005-06-30}
zyywlr3:=strtonum(f10text(zyywlrwz1+44,10))-zyywlr4-zyywlr5;{2005-09-30}
zyywlr2:=strtonum(f10text(zyywlrwz1+32,10))-zyywlr3-zyywlr4-zyywlr5;{2005-12-31}
zyywlr1:=strtonum(f10text(zyywlrwz1+20,10));{2006-03-31}
zyywlrl1:=zyywlr1/abs(zyywsr1)*100;
zyywlrl2:=zyywlr2/abs(zyywsr2)*100;
zyywlrl3:=zyywlr3/abs(zyywsr3)*100;
zyywlrl4:=zyywlr4/abs(zyywsr4)*100;
zyywlrl5:=zyywlr5/abs(zyywsr5)*100;
zyywlrl6:=zyywlr6/abs(zyywsr6)*100;
zyywlrl7:=zyywlr7/abs(zyywsr7)*100;
zyywlrl8:=zyywlr8/abs(strtonum(f10text(zyywsrwz2+56,10)))*100;{此处取值欠妥，理由同上，用2004年半年度的主营业务利润率代替}
{主营业务利润率环比增长率}
zyywlrlzlv1:=(zyywlrl1-zyywlrl2)/abs(zyywlrl2)*100;
zyywlrlzlv2:=(zyywlrl2-zyywlrl3)/abs(zyywlrl3)*100;
zyywlrlzlv3:=(zyywlrl3-zyywlrl4)/abs(zyywlrl4)*100;
zyywlrlzlv4:=(zyywlrl4-zyywlrl5)/abs(zyywlrl5)*100;
主营利润环比3:zyywlrlzlv1,linethick0,colorgray,precis2;
{主营业务利润率同比增长率}
zyywlrlzlv5:=(zyywlrl1-zyywlrl5)/abs(zyywlrl5)*100;
zyywlrlzlv6:=(zyywlrl2-zyywlrl6)/abs(zyywlrl6)*100;
zyywlrlzlv7:=(zyywlrl3-zyywlrl7)/abs(zyywlrl7)*100;
zyywlrlzlv8:=(zyywlrl4-zyywlrl8)/abs(zyywlrl8)*100;
主营利润同比3:zyywlrlzlv5,linethick0,colorgray,precis2;
{取八个季度的净利润，算出每个季度增长率同环比}
jlrwz1:=f10find('净利润(万元)',zyywsrwz1+1);
jlrwz2:=f10find('净利润(万元)',zyywsrwz2+1);
jlr8:=strtonum(f10text(zyywsrwz3+1362,12));{2004-06-30}
jlr7:=strtonum(f10text(jlrwz2+44,10))-strtonum(f10text(jlrwz2+56,10));{2004-09-30}
jlr6:=strtonum(f10text(jlrwz2+32,10))-strtonum(f10text(jlrwz2+44,10));{2004-12-31}
jlr5:=strtonum(f10text(jlrwz2+20,10));{2005-03-31}
jlr4:=strtonum(f10text(jlrwz1+56,10))-jlr5;{2005-06-30}
jlr3:=strtonum(f10text(jlrwz1+44,10))-jlr4-jlr5;{2005-09-30}
jlr2:=strtonum(f10text(jlrwz1+32,10))-jlr3-jlr4-jlr5;{2005-12-31}
jlr1:=strtonum(f10text(jlrwz1+20,10));{2006-03-31}
{净利润环比增长率}
jlrzlv1:=(jlr1-jlr2)/abs(jlr2)*100;
jlrzlv2:=(jlr2-jlr3)/abs(jlr3)*100;
jlrzlv3:=(jlr3-jlr4)/abs(jlr4)*100;
jlrzlv4:=(jlr4-jlr5)/abs(jlr5)*100;
净利润环比3:jlrzlv1,linethick0,colorgray,precis2;
{净利润同比增长率}
jlrzlv5:=(jlr1-jlr5)/abs(jlr5)*100;
jlrzlv6:=(jlr2-jlr6)/abs(jlr6)*100;
jlrzlv7:=(jlr3-jlr7)/abs(jlr7)*100;
jlrzlv8:=(jlr4-jlr8)/abs(jlr8)*100;
净利润同比3:jlrzlv5,linethick0,colorgray,precis2;
end;

f1010:=f10find('【每股指标】',1);
{取年度数据时间}
mgzbsjwz:=f10find('财务指标(单位) ',f1010+1);
mgndsj1:=f10text(mgzbsjwz+20,10);
mgndsj2:=f10text(mgzbsjwz+32,10);
mgndsj3:=f10text(mgzbsjwz+44,10);
mgndsj4:=f10text(mgzbsjwz+56,10);
{取现金流量}
mgxjllwz:=f10find('每股现金流量(元)',mgzbsjwz+1);
mgxjll1:=strtonum(f10text(mgxjllwz+20,10));
mgxjll2:=strtonum(f10text(mgxjllwz+32,10));
mgxjll3:=strtonum(f10text(mgxjllwz+44,10));
mgxjll4:=strtonum(f10text(mgxjllwz+56,10));
{取三项费用}
sxfywz1:=f10find('【利润构成与盈利能力】',f1010+1);
sxfywz2:=f10find('主营业务利润(万元)',sxfywz1+1);
sxfywz3:=f10find('经营费用(万元)',sxfywz2+1);
sxfywz4:=f10find('管理费用(万元)',sxfywz3+1);
sxfywz5:=f10find('财务费用(万元)',sxfywz4+1);
sxfywz6:=f10find('三项费用增长率(%) ',sxfywz5+1);
zyywlr1:=strtonum(f10text(sxfywz2+20,10));
zyywlr2:=strtonum(f10text(sxfywz2+32,10));
zyywlr3:=strtonum(f10text(sxfywz2+44,10));
zyywlr4:=strtonum(f10text(sxfywz2+56,10));
jyfy1:=strtonum(f10text(sxfywz3+20,10));
jyfy2:=strtonum(f10text(sxfywz3+32,10));
jyfy3:=strtonum(f10text(sxfywz3+44,10));
jyfy4:=strtonum(f10text(sxfywz3+56,10));
glfy1:=strtonum(f10text(sxfywz4+20,10));
glfy2:=strtonum(f10text(sxfywz4+32,10));
glfy3:=strtonum(f10text(sxfywz4+44,10));
glfy4:=strtonum(f10text(sxfywz4+56,10));
cwfy1:=strtonum(f10text(sxfywz5+20,10));
cwfy2:=strtonum(f10text(sxfywz5+32,10));
cwfy3:=strtonum(f10text(sxfywz5+44,10));
cwfy4:=strtonum(f10text(sxfywz5+56,10));
sxfyzlv1:=strtonum(f10text(sxfywz6+20,10));
sxfyzlv2:=strtonum(f10text(sxfywz6+32,10));
sxfyzlv3:=strtonum(f10text(sxfywz6+44,10));
sxfyzlv4:=strtonum(f10text(sxfywz6+56,10));
sxfyzb1:=(jyfy1+glfy1+cwfy1)/zyywlr1*100;
sxfyzb2:=(jyfy2+glfy2+cwfy2)/zyywlr2*100;
sxfyzb3:=(jyfy3+glfy3+cwfy3)/zyywlr3*100;
sxfyzb4:=(jyfy4+glfy4+cwfy4)/zyywlr4*100;
{取税后利润增长率}
shlrwz1:=f10find('【经营与发展能力】',f1010+1);
shlrwz:=f10find('税后利润增长率(%)',shlrwz1+1);
shlr1:=strtonum(f10text(shlrwz+20,10));
shlr2:=strtonum(f10text(shlrwz+32,10));
shlr3:=strtonum(f10text(shlrwz+44,10));
shlr4:=strtonum(f10text(shlrwz+56,10));
{取资产负债率}
zcfzlwz1:=f10find('【资产与负债】',f1010+1);
zcfzlwz:=f10find('资产负债率(%) ',zcfzlwz1+1);
zcfzl1:=strtonum(f10text(zcfzlwz+18,10));
zcfzl2:=strtonum(f10text(zcfzlwz+30,10));
zcfzl3:=strtonum(f10text(zcfzlwz+42,10));
zcfzl4:=strtonum(f10text(zcfzlwz+54,10));
{-------------------【图解模板】-------------------}
{显示文字}
DRAWTEXTREL(0,50,'报表时间'),COLORblue;
DRAWTEXTREL(0,100,'主营业务收入（万元）'),Colorblue;
DRAWTEXTREL(0,150,'主营业务同比/环比（%）'),Colorblue;
DRAWTEXTREL(0,200,'净利润（万元）'),Colorblue;
DRAWTEXTREL(0,250,'净利润同比/环比（%）'),Colorblue;
DRAWTEXTREL(0,300,'主营业务利润率（%）'),Colorblue;
DRAWTEXTREL(0,350,'主营利润率同比/环比（%）'),Colorblue;
DRAWTEXTREL(0,400,'净资产收益率（%）'),Colorblue;
DRAWTEXTREL(0,500,'年度数据'),Colorblue;
DRAWTEXTREL(0,550,'税后利润增长率（%）'),Colorblue;
DRAWTEXTREL(0,600,'资产负债率（%）'),Colorblue;
DRAWTEXTREL(0,650,'三项费用增长率（%）'),Colorblue;
DRAWTEXTREL(0,700,'三项费用占主营利润率（%）'),Colorblue;
DRAWTEXTREL(0,750,'现金流（元）'),Colorblue;
{时间}
DRAWTEXTREL(900,50,zyywsrsj1),ALIGN2,COLORred;
DRAWTEXTREL(700,50,zyywsrsj2),ALIGN2,COLORred;
DRAWTEXTREL(500,50,zyywsrsj3),ALIGN2,COLORred;
DRAWTEXTREL(300,50,zyywsrsj4),ALIGN2,COLORred;
{主营业务收入}
DRAWTEXTREL(900,100,numtostr(zyywsr1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,100,numtostr(zyywsr2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,100,numtostr(zyywsr3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,100,numtostr(zyywsr4)),ALIGN2,Colorffcc00;
{主营业务收入同比/环比}
DRAWTEXTREL(900,150,numtostr(zyywsrzlv5)+' / '+numtostr(zyywsrzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,150,numtostr(zyywsrzlv6)+' / '+numtostr(zyywsrzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,150,numtostr(zyywsrzlv7)+' / '+numtostr(zyywsrzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,150,numtostr(zyywsrzlv8)+' / '+numtostr(zyywsrzlv4)),ALIGN2,Colorffcc00;
{净利润}
DRAWTEXTREL(900,200,numtostr(jlr1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,200,numtostr(jlr2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,200,numtostr(jlr3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,200,numtostr(jlr4)),ALIGN2,ColorFFcc00;
{净利润同比/环比}
DRAWTEXTREL(900,250,numtostr(jlrzlv5)+' / '+numtostr(jlrzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,250,numtostr(jlrzlv6)+' / '+numtostr(jlrzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,250,numtostr(jlrzlv7)+' / '+numtostr(jlrzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,250,numtostr(jlrzlv8)+' / '+numtostr(jlrzlv4)),ALIGN2,Colorffcc00;
{主营业务利润率}
DRAWTEXTREL(900,300,numtostr(zyywlrl1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,300,numtostr(zyywlrl2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,300,numtostr(zyywlrl3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,300,numtostr(zyywlrl4)),ALIGN2,Colorffcc00;
{主营业务利润率同比/环比}
DRAWTEXTREL(900,350,numtostr(zyywlrlzlv5)+' / '+numtostr(zyywlrlzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,350,numtostr(zyywlrlzlv6)+' / '+numtostr(zyywlrlzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,350,numtostr(zyywlrlzlv7)+' / '+numtostr(zyywlrlzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,350,numtostr(zyywlrlzlv8)+' / '+numtostr(zyywlrlzlv4)),ALIGN2,Colorffcc00;
{净资产收益率}
DRAWTEXTREL(900,400,numtostr(jzcsyl1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,400,numtostr(jzcsyl2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,400,numtostr(jzcsyl3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,400,numtostr(jzcsyl4)),ALIGN2,Colorffcc00;
{年度数据时间}
DRAWTEXTREL(900,500,mgndsj1),ALIGN2,COLORRED;
DRAWTEXTREL(700,500,mgndsj2),ALIGN2,COLORRED;
DRAWTEXTREL(500,500,mgndsj3),ALIGN2,COLORRED;
DRAWTEXTREL(300,500,mgndsj4),ALIGN2,COLORRED;
{税后利润增长率}
DRAWTEXTREL(900,550,numtostr(shlr1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,550,numtostr(shlr2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,550,numtostr(shlr3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,550,numtostr(shlr4)),ALIGN2,Colorffcc00;
{资产负债率}
DRAWTEXTREL(900,600,numtostr(zcfzl1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,600,numtostr(zcfzl2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,600,numtostr(zcfzl3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,600,numtostr(zcfzl4)),ALIGN2,Colorffcc00;
{三项费用增长率}
DRAWTEXTREL(900,650,numtostr(sxfyzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,650,numtostr(sxfyzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,650,numtostr(sxfyzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,650,numtostr(sxfyzlv4)),ALIGN2,Colorffcc00;
{三项费用占主营利润率}
DRAWTEXTREL(900,700,numtostr(sxfyzb1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,700,numtostr(sxfyzb2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,700,numtostr(sxfyzb3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,700,numtostr(sxfyzb4)),ALIGN2,Colorffcc00;
{现金流}
DRAWTEXTREL(900,750,numtostr(mgxjll1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,750,numtostr(mgxjll2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,750,numtostr(mgxjll3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,750,numtostr(mgxjll4)),ALIGN2,Colorffcc00;
{说明}
DRAWTEXTREL(100,880,'注：若无数据或者显示乱码，是因为该报季无数据可以取，请更新！！'),linethick2,COLOR8000CC;



[ 本帖最后由 zhbsystem888 于 2007-4-11 10:43 编辑 ]

lymanqun 发表于 2007-4-11 10:35

长期没关注组合2，错失卖股良机，卖出长春高新，买入宝胜股份24。05元——组合2

zhbsystem888 发表于 2007-4-11 10:38

12-31季单季
{大智慧L2--港澳F10基本面统计数据}
lncwzbwz:=f10find('历年简要财务指标',1);
{报季时间}
zyywsrsjwz1:=f10find('每股指标(单位)',lncwzbwz+1);
zyywsrsjwz2:=f10find('每股指标(单位)',zyywsrsjwz1+1);
zyywsrsj1:=f10text(zyywsrsjwz1+20,10);
zyywsrsj2:=f10text(zyywsrsjwz1+32,10);
zyywsrsj3:=f10text(zyywsrsjwz1+44,10);
zyywsrsj4:=f10text(zyywsrsjwz1+56,10);
rq1:=strcmp(zyywsrsj1,'2006-12-31');{对应需要修改的时间是2007年末季报出来，将值改为'2007-12-31'}

if rq1=0 then begin
{取四个季度的净资产收益率}
jzcsylwz:=f10find('净资产收益率(%) ',zyywsrsjwz1+1);
jzcsyl4:=strtonum(f10text(jzcsylwz+56,10));
jzcsyl3:=strtonum(f10text(jzcsylwz+44,10))-jzcsyl4;
jzcsyl2:=strtonum(f10text(jzcsylwz+32,10))-jzcsyl4-jzcsyl3;
jzcsyl1:=strtonum(f10text(jzcsylwz+20,10))-jzcsyl4-jzcsyl3-jzcsyl2;
{取八个季度的主营收入，算出每个季度主营收入增长率的同环比}
{主营收入金额}
zyywsrwz1:=f10find('主营业务收入(万元)',jzcsylwz+1);
zyywsrwz2:=f10find('主营业务收入(万元)',zyywsrsjwz2+1);
zyywsr8:=strtonum(f10text(zyywsrwz2+56,10));{2005-03-31}
zyywsr7:=strtonum(f10text(zyywsrwz2+44,10))-zyywsr8;{2005-06-30}
zyywsr6:=strtonum(f10text(zyywsrwz2+32,10))-zyywsr7-zyywsr8;{2005-09-30}
zyywsr5:=strtonum(f10text(zyywsrwz2+20,10))-zyywsr6-zyywsr7-zyywsr8;{2005-12-31}
zyywsr4:=strtonum(f10text(zyywsrwz1+56,10));{2006-03-31}
zyywsr3:=strtonum(f10text(zyywsrwz1+44,10))-zyywsr4;{2006-06-30}
zyywsr2:=strtonum(f10text(zyywsrwz1+32,10))-zyywsr3-zyywsr4;{2006-09-30}
zyywsr1:=strtonum(f10text(zyywsrwz1+20,10))-zyywsr2-zyywsr3-zyywsr4;{2006-12-31}
{主营收入环比增长率}
zyywsrzlv1:=(zyywsr1-zyywsr2)/abs(zyywsr2)*100;
zyywsrzlv2:=(zyywsr2-zyywsr3)/abs(zyywsr3)*100;
zyywsrzlv3:=(zyywsr3-zyywsr4)/abs(zyywsr4)*100;
zyywsrzlv4:=(zyywsr4-zyywsr5)/abs(zyywsr5)*100;
主营收入环比:zyywsrzlv1,linethick0,colorgray,precis2;
{主营收入同比增长率}
zyywsrzlv5:=(zyywsr1-zyywsr5)/abs(zyywsr5)*100;
zyywsrzlv6:=(zyywsr2-zyywsr6)/abs(zyywsr6)*100;
zyywsrzlv7:=(zyywsr3-zyywsr7)/abs(zyywsr7)*100;
zyywsrzlv8:=(zyywsr4-zyywsr8)/abs(zyywsr8)*100;
主营收入同比:zyywsrzlv5,linethick0,colorgray,precis2;
{取八个季度主营业务利润率}
zyywlrwz1:=f10find('主营业务利润(万元)',zyywsrwz1+1);
zyywlrwz2:=f10find('主营业务利润(万元)',zyywsrwz2+1);
zyywlr8:=strtonum(f10text(zyywlrwz2+56,10));{2005-03-31}
zyywlr7:=strtonum(f10text(zyywlrwz2+44,10))-zyywlr8;{2005-06-30}
zyywlr6:=strtonum(f10text(zyywlrwz2+32,10))-zyywlr7-zyywlr8;{2005-09-30}
zyywlr5:=strtonum(f10text(zyywlrwz2+20,10))-zyywlr6-zyywlr7-zyywlr8;{2005-12-31}
zyywlr4:=strtonum(f10text(zyywlrwz1+56,10));{2006-03-31}
zyywlr3:=strtonum(f10text(zyywlrwz1+44,10))-zyywlr4;{2006-06-30}
zyywlr2:=strtonum(f10text(zyywlrwz1+32,10))-zyywlr3-zyywlr4;{2006-09-30}
zyywlr1:=strtonum(f10text(zyywlrwz1+20,10))-zyywlr2-zyywlr3-zyywlr4;{2006-12-31}
zyywlrl1:=zyywlr1/abs(zyywsr1)*100;
zyywlrl2:=zyywlr2/abs(zyywsr2)*100;
zyywlrl3:=zyywlr3/abs(zyywsr3)*100;
zyywlrl4:=zyywlr4/abs(zyywsr4)*100;
zyywlrl5:=zyywlr5/abs(zyywsr5)*100;
zyywlrl6:=zyywlr6/abs(zyywsr6)*100;
zyywlrl7:=zyywlr7/abs(zyywsr7)*100;
zyywlrl8:=zyywlr8/abs(zyywsr8)*100;
{主营业务利润率环比增长率}
zyywlrlzlv1:=(zyywlrl1-zyywlrl2)/abs(zyywlrl2)*100;
zyywlrlzlv2:=(zyywlrl2-zyywlrl3)/abs(zyywlrl3)*100;
zyywlrlzlv3:=(zyywlrl3-zyywlrl4)/abs(zyywlrl4)*100;
zyywlrlzlv4:=(zyywlrl4-zyywlrl5)/abs(zyywlrl5)*100;
主营利润率环比:zyywlrlzlv1,linethick0,colorgray,precis2;
{主营业务利润率同比增长率}
zyywlrlzlv5:=(zyywlrl1-zyywlrl5)/abs(zyywlrl5)*100;
zyywlrlzlv6:=(zyywlrl2-zyywlrl6)/abs(zyywlrl6)*100;
zyywlrlzlv7:=(zyywlrl3-zyywlrl7)/abs(zyywlrl7)*100;
zyywlrlzlv8:=(zyywlrl4-zyywlrl8)/abs(zyywlrl8)*100;
主营利润率同比:zyywlrlzlv5,linethick0,colorgray,precis2;
{取八个季度的净利润，算出每个季度增长率的同环比}
jlrwz1:=f10find('净利润(万元)',zyywsrwz1+1);
jlrwz2:=f10find('净利润(万元)',zyywsrwz2+1);
jlr8:=strtonum(f10text(jlrwz2+56,10));{2005-03-31}
jlr7:=strtonum(f10text(jlrwz2+44,10))-jlr8;{2005-06-30}
jlr6:=strtonum(f10text(jlrwz2+32,10))-jlr7-jlr8;{2005-09-30}
jlr5:=strtonum(f10text(jlrwz2+20,10))-jlr6-jlr7-jlr8;{2005-12-31}
jlr4:=strtonum(f10text(jlrwz1+56,10));{2006-03-31}
jlr3:=strtonum(f10text(jlrwz1+44,10))-jlr4;{2006-06-30}
jlr2:=strtonum(f10text(jlrwz1+32,10))-jlr3-jlr4;{2006-09-30}
jlr1:=strtonum(f10text(jlrwz1+20,10))-jlr2-jlr3-jlr4;{2006-12-31}
{净利润环比增长率}
jlrzlv1:=(jlr1-jlr2)/abs(jlr2)*100;
jlrzlv2:=(jlr2-jlr3)/abs(jlr3)*100;
jlrzlv3:=(jlr3-jlr4)/abs(jlr4)*100;
jlrzlv4:=(jlr4-jlr5)/abs(jlr5)*100;
净利润增长环比:jlrzlv1,linethick0,colorgray,precis2;
{净利润同比增长率}
jlrzlv5:=(jlr1-jlr5)/abs(jlr5)*100;
jlrzlv6:=(jlr2-jlr6)/abs(jlr6)*100;
jlrzlv7:=(jlr3-jlr7)/abs(jlr7)*100;
jlrzlv8:=(jlr4-jlr8)/abs(jlr8)*100;
净利润增长同比:jlrzlv5,linethick0,colorgray,precis2;
end;

f1010:=f10find('【每股指标】',1);
{取年度数据时间}
mgzbsjwz:=f10find('财务指标(单位) ',f1010+1);
mgndsj1:=f10text(mgzbsjwz+20,10);
mgndsj2:=f10text(mgzbsjwz+32,10);
mgndsj3:=f10text(mgzbsjwz+44,10);
mgndsj4:=f10text(mgzbsjwz+56,10);
{取现金流量}
mgxjllwz:=f10find('每股现金流量(元)',mgzbsjwz+1);
mgxjll1:=strtonum(f10text(mgxjllwz+20,10));
mgxjll2:=strtonum(f10text(mgxjllwz+32,10));
mgxjll3:=strtonum(f10text(mgxjllwz+44,10));
mgxjll4:=strtonum(f10text(mgxjllwz+56,10));
{取三项费用}
sxfywz1:=f10find('【利润构成与盈利能力】',f1010+1);
sxfywz2:=f10find('主营业务利润(万元)',sxfywz1+1);
sxfywz3:=f10find('经营费用(万元)',sxfywz2+1);
sxfywz4:=f10find('管理费用(万元)',sxfywz3+1);
sxfywz5:=f10find('财务费用(万元)',sxfywz4+1);
sxfywz6:=f10find('三项费用增长率(%) ',sxfywz5+1);
zyywlr1:=strtonum(f10text(sxfywz2+20,10));
zyywlr2:=strtonum(f10text(sxfywz2+32,10));
zyywlr3:=strtonum(f10text(sxfywz2+44,10));
zyywlr4:=strtonum(f10text(sxfywz2+56,10));
jyfy1:=strtonum(f10text(sxfywz3+20,10));
jyfy2:=strtonum(f10text(sxfywz3+32,10));
jyfy3:=strtonum(f10text(sxfywz3+44,10));
jyfy4:=strtonum(f10text(sxfywz3+56,10));
glfy1:=strtonum(f10text(sxfywz4+20,10));
glfy2:=strtonum(f10text(sxfywz4+32,10));
glfy3:=strtonum(f10text(sxfywz4+44,10));
glfy4:=strtonum(f10text(sxfywz4+56,10));
cwfy1:=strtonum(f10text(sxfywz5+20,10));
cwfy2:=strtonum(f10text(sxfywz5+32,10));
cwfy3:=strtonum(f10text(sxfywz5+44,10));
cwfy4:=strtonum(f10text(sxfywz5+56,10));
sxfyzlv1:=strtonum(f10text(sxfywz6+20,10));
sxfyzlv2:=strtonum(f10text(sxfywz6+32,10));
sxfyzlv3:=strtonum(f10text(sxfywz6+44,10));
sxfyzlv4:=strtonum(f10text(sxfywz6+56,10));
sxfyzb1:=(jyfy1+glfy1+cwfy1)/zyywlr1*100;
sxfyzb2:=(jyfy2+glfy2+cwfy2)/zyywlr2*100;
sxfyzb3:=(jyfy3+glfy3+cwfy3)/zyywlr3*100;
sxfyzb4:=(jyfy4+glfy4+cwfy4)/zyywlr4*100;
{取税后利润增长率}
shlrwz1:=f10find('【经营与发展能力】',f1010+1);
shlrwz:=f10find('税后利润增长率(%)',shlrwz1+1);
shlr1:=strtonum(f10text(shlrwz+20,10));
shlr2:=strtonum(f10text(shlrwz+32,10));
shlr3:=strtonum(f10text(shlrwz+44,10));
shlr4:=strtonum(f10text(shlrwz+56,10));
{取资产负债率}
zcfzlwz1:=f10find('【资产与负债】',f1010+1);
zcfzlwz:=f10find('资产负债率(%) ',zcfzlwz1+1);
zcfzl1:=strtonum(f10text(zcfzlwz+18,10));
zcfzl2:=strtonum(f10text(zcfzlwz+30,10));
zcfzl3:=strtonum(f10text(zcfzlwz+42,10));
zcfzl4:=strtonum(f10text(zcfzlwz+54,10));
{-------------------【图解模板】-------------------}
{显示文字}
DRAWTEXTREL(0,50,'报表时间'),COLORblue;
DRAWTEXTREL(0,100,'主营业务收入（万元）'),Colorblue;
DRAWTEXTREL(0,150,'主营业务同比/环比（%）'),Colorblue;
DRAWTEXTREL(0,200,'净利润（万元）'),Colorblue;
DRAWTEXTREL(0,250,'净利润同比/环比（%）'),Colorblue;
DRAWTEXTREL(0,300,'主营业务利润率（%）'),Colorblue;
DRAWTEXTREL(0,350,'主营利润率同比/环比（%）'),Colorblue;
DRAWTEXTREL(0,400,'净资产收益率（%）'),Colorblue;
DRAWTEXTREL(0,500,'年度数据'),Colorblue;
DRAWTEXTREL(0,550,'税后利润增长率（%）'),Colorblue;
DRAWTEXTREL(0,600,'资产负债率（%）'),Colorblue;
DRAWTEXTREL(0,650,'三项费用增长率（%）'),Colorblue;
DRAWTEXTREL(0,700,'三项费用占主营利润率（%）'),Colorblue;
DRAWTEXTREL(0,750,'现金流（元）'),Colorblue;
{时间}
DRAWTEXTREL(900,50,zyywsrsj1),ALIGN2,COLORred;
DRAWTEXTREL(700,50,zyywsrsj2),ALIGN2,COLORred;
DRAWTEXTREL(500,50,zyywsrsj3),ALIGN2,COLORred;
DRAWTEXTREL(300,50,zyywsrsj4),ALIGN2,COLORred;
{主营业务收入}
DRAWTEXTREL(900,100,numtostr(zyywsr1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,100,numtostr(zyywsr2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,100,numtostr(zyywsr3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,100,numtostr(zyywsr4)),ALIGN2,Colorffcc00;
{主营业务收入同比/环比}
DRAWTEXTREL(900,150,numtostr(zyywsrzlv5)+' / '+numtostr(zyywsrzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,150,numtostr(zyywsrzlv6)+' / '+numtostr(zyywsrzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,150,numtostr(zyywsrzlv7)+' / '+numtostr(zyywsrzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,150,numtostr(zyywsrzlv8)+' / '+numtostr(zyywsrzlv4)),ALIGN2,Colorffcc00;
{净利润}
DRAWTEXTREL(900,200,numtostr(jlr1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,200,numtostr(jlr2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,200,numtostr(jlr3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,200,numtostr(jlr4)),ALIGN2,ColorFFcc00;
{净利润同比/环比}
DRAWTEXTREL(900,250,numtostr(jlrzlv5)+' / '+numtostr(jlrzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,250,numtostr(jlrzlv6)+' / '+numtostr(jlrzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,250,numtostr(jlrzlv7)+' / '+numtostr(jlrzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,250,numtostr(jlrzlv8)+' / '+numtostr(jlrzlv4)),ALIGN2,Colorffcc00;
{主营业务利润率}
DRAWTEXTREL(900,300,numtostr(zyywlrl1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,300,numtostr(zyywlrl2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,300,numtostr(zyywlrl3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,300,numtostr(zyywlrl4)),ALIGN2,Colorffcc00;
{主营业务利润率同比/环比}
DRAWTEXTREL(900,350,numtostr(zyywlrlzlv5)+' / '+numtostr(zyywlrlzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,350,numtostr(zyywlrlzlv6)+' / '+numtostr(zyywlrlzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,350,numtostr(zyywlrlzlv7)+' / '+numtostr(zyywlrlzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,350,numtostr(zyywlrlzlv8)+' / '+numtostr(zyywlrlzlv4)),ALIGN2,Colorffcc00;
{净资产收益率}
DRAWTEXTREL(900,400,numtostr(jzcsyl1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,400,numtostr(jzcsyl2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,400,numtostr(jzcsyl3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,400,numtostr(jzcsyl4)),ALIGN2,Colorffcc00;
{年度数据时间}
DRAWTEXTREL(900,500,mgndsj1),ALIGN2,COLORRED;
DRAWTEXTREL(700,500,mgndsj2),ALIGN2,COLORRED;
DRAWTEXTREL(500,500,mgndsj3),ALIGN2,COLORRED;
DRAWTEXTREL(300,500,mgndsj4),ALIGN2,COLORRED;
{税后利润增长率}
DRAWTEXTREL(900,550,numtostr(shlr1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,550,numtostr(shlr2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,550,numtostr(shlr3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,550,numtostr(shlr4)),ALIGN2,Colorffcc00;
{资产负债率}
DRAWTEXTREL(900,600,numtostr(zcfzl1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,600,numtostr(zcfzl2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,600,numtostr(zcfzl3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,600,numtostr(zcfzl4)),ALIGN2,Colorffcc00;
{三项费用增长率}
DRAWTEXTREL(900,650,numtostr(sxfyzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,650,numtostr(sxfyzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,650,numtostr(sxfyzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,650,numtostr(sxfyzlv4)),ALIGN2,Colorffcc00;
{三项费用占主营利润率}
DRAWTEXTREL(900,700,numtostr(sxfyzb1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,700,numtostr(sxfyzb2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,700,numtostr(sxfyzb3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,700,numtostr(sxfyzb4)),ALIGN2,Colorffcc00;
{现金流}
DRAWTEXTREL(900,750,numtostr(mgxjll1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,750,numtostr(mgxjll2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,750,numtostr(mgxjll3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,750,numtostr(mgxjll4)),ALIGN2,Colorffcc00;
{说明}
DRAWTEXTREL(100,880,'注：若无数据或者显示乱码，是因为该报季无数据可以取，请更新！！'),linethick2,COLOR8000CC;

[ 本帖最后由 zhbsystem888 于 2007-4-11 11:10 编辑 ]

zhbsystem888 发表于 2007-4-11 10:41

09-30季单季
{大智慧L2--港澳F10基本面统计数据}
lncwzbwz:=f10find('历年简要财务指标',1);
{报季时间}
zyywsrsjwz1:=f10find('每股指标(单位)',lncwzbwz+1);
zyywsrsjwz2:=f10find('每股指标(单位)',zyywsrsjwz1+1);
zyywsrsj1:=f10text(zyywsrsjwz1+20,10);
zyywsrsj2:=f10text(zyywsrsjwz1+32,10);
zyywsrsj3:=f10text(zyywsrsjwz1+44,10);
zyywsrsj4:=f10text(zyywsrsjwz1+56,10);
rq2:=strcmp(zyywsrsj1,'2006-09-30');{对应需要修改的时间是2007年三季报出来，将值改为'2007-09-30'}

if rq2=0 then begin
{取四个季度的净资产收益率}
jzcsylwz:=f10find('净资产收益率(%) ',zyywsrsjwz1+1);
jzcsylwz1:=f10find('净资产收益率(%) ',jzcsylwz+1);
jzcsyl4:=strtonum(f10text(jzcsylwz+56,10))-strtonum(f10text(jzcsylwz1+20,10));
jzcsyl3:=strtonum(f10text(jzcsylwz+44,10));
jzcsyl2:=strtonum(f10text(jzcsylwz+32,10))-jzcsyl3;
jzcsyl1:=strtonum(f10text(jzcsylwz+20,10))-jzcsyl2-jzcsyl3;

{取八个季度的主营收入及时间，算出每个季度同环比增长率}
{主营收入金额}
zyywsrwz1:=f10find('主营业务收入(万元)',jzcsylwz+1);
zyywsrwz2:=f10find('主营业务收入(万元)',zyywsrsjwz2+1);
zyywsrwz3:=f10find('【单季度财务分析】',zyywsrwz2+1);
zyywsr8:=strtonum(f10text(zyywsrwz3+1480,12));{2004-12-31}
zyywsr7:=strtonum(f10text(zyywsrwz2+44,10));{2005-03-31}
zyywsr6:=strtonum(f10text(zyywsrwz2+32,10))-zyywsr7;{2005-06-30}
zyywsr5:=strtonum(f10text(zyywsrwz2+20,10))-zyywsr6-zyywsr7;{2005-09-30}
zyywsr4:=strtonum(f10text(zyywsrwz1+56,10))-zyywsr5-zyywsr6-zyywsr7;{2005-12-31}
zyywsr3:=strtonum(f10text(zyywsrwz1+44,10));{2006-03-31}
zyywsr2:=strtonum(f10text(zyywsrwz1+32,10))-zyywsr3;{2006-06-30}
zyywsr1:=strtonum(f10text(zyywsrwz1+20,10))-zyywsr2-zyywsr3;{2006-09-30}
{主营收入环比增长率}
zyywsrzlv1:=(zyywsr1-zyywsr2)/abs(zyywsr2)*100;
zyywsrzlv2:=(zyywsr2-zyywsr3)/abs(zyywsr3)*100;
zyywsrzlv3:=(zyywsr3-zyywsr4)/abs(zyywsr4)*100;
zyywsrzlv4:=(zyywsr4-zyywsr5)/abs(zyywsr5)*100;
主营收入环比1:zyywsrzlv1,linethick0,colorgray,precis2;
{主营收入同比增长率}
zyywsrzlv5:=(zyywsr1-zyywsr5)/abs(zyywsr5)*100;
zyywsrzlv6:=(zyywsr2-zyywsr6)/abs(zyywsr6)*100;
zyywsrzlv7:=(zyywsr3-zyywsr7)/abs(zyywsr7)*100;
zyywsrzlv8:=(zyywsr4-zyywsr8)/abs(zyywsr8)*100;
主营收入同比1:zyywsrzlv5,linethick0,colorgray,precis2;
{取七个季度主营业务利润率和一个全年主营业务利润率}
zyywlrwz1:=f10find('主营业务利润(万元)',zyywsrwz1+1);
zyywlrwz2:=f10find('主营业务利润(万元)',zyywsrwz2+1);
zyywlr8:=strtonum(f10text(zyywlrwz2+56,10));{2004-12-31}{此处取值欠妥，但是无法取到2004年前3个季度主营业务利润的值。用2004年度的主营业务利润代替}
zyywlr7:=strtonum(f10text(zyywlrwz2+44,10));{2005-03-31}
zyywlr6:=strtonum(f10text(zyywlrwz2+32,10))-zyywlr7;{2005-06-30}
zyywlr5:=strtonum(f10text(zyywlrwz2+20,10))-zyywlr6-zyywlr7;{2005-09-30}
zyywlr4:=strtonum(f10text(zyywlrwz1+56,10))-zyywlr5-zyywlr6-zyywlr7;{2005-12-31}
zyywlr3:=strtonum(f10text(zyywlrwz1+44,10));{2006-03-31}
zyywlr2:=strtonum(f10text(zyywlrwz1+32,10))-zyywlr3;{2006-06-30}
zyywlr1:=strtonum(f10text(zyywlrwz1+20,10))-zyywlr2-zyywlr3;{2006-09-30}
zyywlrl1:=zyywlr1/abs(zyywsr1)*100;
zyywlrl2:=zyywlr2/abs(zyywsr2)*100;
zyywlrl3:=zyywlr3/abs(zyywsr3)*100;
zyywlrl4:=zyywlr4/abs(zyywsr4)*100;
zyywlrl5:=zyywlr5/abs(zyywsr5)*100;
zyywlrl6:=zyywlr6/abs(zyywsr6)*100;
zyywlrl7:=zyywlr7/abs(zyywsr7)*100;
zyywlrl8:=zyywlr8/abs(strtonum(f10text(zyywsrwz2+56,10)))*100;{此处取值欠妥，理由同上。用2004年度的主营业务利润率代替}
{主营业务利润率环比增长率}
zyywlrlzlv1:=(zyywlrl1-zyywlrl2)/abs(zyywlrl2)*100;
zyywlrlzlv2:=(zyywlrl2-zyywlrl3)/abs(zyywlrl3)*100;
zyywlrlzlv3:=(zyywlrl3-zyywlrl4)/abs(zyywlrl4)*100;
zyywlrlzlv4:=(zyywlrl4-zyywlrl5)/abs(zyywlrl5)*100;
主营利润环比1:zyywlrlzlv1,linethick0,colorgray,precis2;
{主营业务利润率同比增长率}
zyywlrlzlv5:=(zyywlrl1-zyywlrl5)/abs(zyywlrl5)*100;
zyywlrlzlv6:=(zyywlrl2-zyywlrl6)/abs(zyywlrl6)*100;
zyywlrlzlv7:=(zyywlrl3-zyywlrl7)/abs(zyywlrl7)*100;
zyywlrlzlv8:=(zyywlrl4-zyywlrl8)/abs(zyywlrl8)*100;
主营利润同比1:zyywlrlzlv5,linethick0,colorgray,precis2;
{取八个季度的净利润及时间，算出每个季度同比增长率}
jlrwz1:=f10find('净利润(万元)',zyywsrwz1+1);
jlrwz2:=f10find('净利润(万元)',zyywsrwz2+1);
jlr8:=strtonum(f10text(zyywsrwz3+1506,12));{2004-12-31}
jlr7:=strtonum(f10text(jlrwz2+44,10));{2005-03-31}
jlr6:=strtonum(f10text(jlrwz2+32,10))-jlr7;{2005-06-30}
jlr5:=strtonum(f10text(jlrwz2+20,10))-jlr6-jlr7;{2005-09-30}
jlr4:=strtonum(f10text(jlrwz1+56,10))-jlr5-jlr6-jlr7;{2005-12-31}
jlr3:=strtonum(f10text(jlrwz1+44,10));{2006-03-31}
jlr2:=strtonum(f10text(jlrwz1+32,10))-jlr3;{2006-06-30}
jlr1:=strtonum(f10text(jlrwz1+20,10))-jlr2-jlr3;{2006-09-30}
{净利润环比增长率}
jlrzlv1:=(jlr1-jlr2)/abs(jlr2)*100;
jlrzlv2:=(jlr2-jlr3)/abs(jlr3)*100;
jlrzlv3:=(jlr3-jlr4)/abs(jlr4)*100;
jlrzlv4:=(jlr4-jlr5)/abs(jlr5)*100;
净利润环比1:jlrzlv1,linethick0,colorgray,precis2;
{净利润同比增长率}
jlrzlv5:=(jlr1-jlr5)/abs(jlr5)*100;
jlrzlv6:=(jlr2-jlr6)/abs(jlr6)*100;
jlrzlv7:=(jlr3-jlr7)/abs(jlr7)*100;
jlrzlv8:=(jlr4-jlr8)/abs(jlr8)*100;
净利润同比1:jlrzlv5,linethick0,colorgray,precis2;
end;


f1010:=f10find('【每股指标】',1);
{取年度数据时间}
mgzbsjwz:=f10find('财务指标(单位) ',f1010+1);
mgndsj1:=f10text(mgzbsjwz+20,10);
mgndsj2:=f10text(mgzbsjwz+32,10);
mgndsj3:=f10text(mgzbsjwz+44,10);
mgndsj4:=f10text(mgzbsjwz+56,10);
{取现金流量}
mgxjllwz:=f10find('每股现金流量(元)',mgzbsjwz+1);
mgxjll1:=strtonum(f10text(mgxjllwz+20,10));
mgxjll2:=strtonum(f10text(mgxjllwz+32,10));
mgxjll3:=strtonum(f10text(mgxjllwz+44,10));
mgxjll4:=strtonum(f10text(mgxjllwz+56,10));
{取三项费用}
sxfywz1:=f10find('【利润构成与盈利能力】',f1010+1);
sxfywz2:=f10find('主营业务利润(万元)',sxfywz1+1);
sxfywz3:=f10find('经营费用(万元)',sxfywz2+1);
sxfywz4:=f10find('管理费用(万元)',sxfywz3+1);
sxfywz5:=f10find('财务费用(万元)',sxfywz4+1);
sxfywz6:=f10find('三项费用增长率(%) ',sxfywz5+1);
zyywlr1:=strtonum(f10text(sxfywz2+20,10));
zyywlr2:=strtonum(f10text(sxfywz2+32,10));
zyywlr3:=strtonum(f10text(sxfywz2+44,10));
zyywlr4:=strtonum(f10text(sxfywz2+56,10));
jyfy1:=strtonum(f10text(sxfywz3+20,10));
jyfy2:=strtonum(f10text(sxfywz3+32,10));
jyfy3:=strtonum(f10text(sxfywz3+44,10));
jyfy4:=strtonum(f10text(sxfywz3+56,10));
glfy1:=strtonum(f10text(sxfywz4+20,10));
glfy2:=strtonum(f10text(sxfywz4+32,10));
glfy3:=strtonum(f10text(sxfywz4+44,10));
glfy4:=strtonum(f10text(sxfywz4+56,10));
cwfy1:=strtonum(f10text(sxfywz5+20,10));
cwfy2:=strtonum(f10text(sxfywz5+32,10));
cwfy3:=strtonum(f10text(sxfywz5+44,10));
cwfy4:=strtonum(f10text(sxfywz5+56,10));
sxfyzlv1:=strtonum(f10text(sxfywz6+20,10));
sxfyzlv2:=strtonum(f10text(sxfywz6+32,10));
sxfyzlv3:=strtonum(f10text(sxfywz6+44,10));
sxfyzlv4:=strtonum(f10text(sxfywz6+56,10));
sxfyzb1:=(jyfy1+glfy1+cwfy1)/zyywlr1*100;
sxfyzb2:=(jyfy2+glfy2+cwfy2)/zyywlr2*100;
sxfyzb3:=(jyfy3+glfy3+cwfy3)/zyywlr3*100;
sxfyzb4:=(jyfy4+glfy4+cwfy4)/zyywlr4*100;
{取税后利润增长率}
shlrwz1:=f10find('【经营与发展能力】',f1010+1);
shlrwz:=f10find('税后利润增长率(%)',shlrwz1+1);
shlr1:=strtonum(f10text(shlrwz+20,10));
shlr2:=strtonum(f10text(shlrwz+32,10));
shlr3:=strtonum(f10text(shlrwz+44,10));
shlr4:=strtonum(f10text(shlrwz+56,10));
{取资产负债率}
zcfzlwz1:=f10find('【资产与负债】',f1010+1);
zcfzlwz:=f10find('资产负债率(%) ',zcfzlwz1+1);
zcfzl1:=strtonum(f10text(zcfzlwz+18,10));
zcfzl2:=strtonum(f10text(zcfzlwz+30,10));
zcfzl3:=strtonum(f10text(zcfzlwz+42,10));
zcfzl4:=strtonum(f10text(zcfzlwz+54,10));
{-------------------【图解模板】-------------------}
{显示文字}
DRAWTEXTREL(0,50,'报表时间'),COLORblue;
DRAWTEXTREL(0,100,'主营业务收入（万元）'),Colorblue;
DRAWTEXTREL(0,150,'主营业务同比/环比（%）'),Colorblue;
DRAWTEXTREL(0,200,'净利润（万元）'),Colorblue;
DRAWTEXTREL(0,250,'净利润同比/环比（%）'),Colorblue;
DRAWTEXTREL(0,300,'主营业务利润率（%）'),Colorblue;
DRAWTEXTREL(0,350,'主营利润率同比/环比（%）'),Colorblue;
DRAWTEXTREL(0,400,'净资产收益率（%）'),Colorblue;
DRAWTEXTREL(0,500,'年度数据'),Colorblue;
DRAWTEXTREL(0,550,'税后利润增长率（%）'),Colorblue;
DRAWTEXTREL(0,600,'资产负债率（%）'),Colorblue;
DRAWTEXTREL(0,650,'三项费用增长率（%）'),Colorblue;
DRAWTEXTREL(0,700,'三项费用占主营利润率（%）'),Colorblue;
DRAWTEXTREL(0,750,'现金流（元）'),Colorblue;
{时间}
DRAWTEXTREL(900,50,zyywsrsj1),ALIGN2,COLORred;
DRAWTEXTREL(700,50,zyywsrsj2),ALIGN2,COLORred;
DRAWTEXTREL(500,50,zyywsrsj3),ALIGN2,COLORred;
DRAWTEXTREL(300,50,zyywsrsj4),ALIGN2,COLORred;
{主营业务收入}
DRAWTEXTREL(900,100,numtostr(zyywsr1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,100,numtostr(zyywsr2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,100,numtostr(zyywsr3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,100,numtostr(zyywsr4)),ALIGN2,Colorffcc00;
{主营业务收入同比/环比}
DRAWTEXTREL(900,150,numtostr(zyywsrzlv5)+' / '+numtostr(zyywsrzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,150,numtostr(zyywsrzlv6)+' / '+numtostr(zyywsrzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,150,numtostr(zyywsrzlv7)+' / '+numtostr(zyywsrzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,150,numtostr(zyywsrzlv8)+' / '+numtostr(zyywsrzlv4)),ALIGN2,Colorffcc00;
{净利润}
DRAWTEXTREL(900,200,numtostr(jlr1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,200,numtostr(jlr2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,200,numtostr(jlr3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,200,numtostr(jlr4)),ALIGN2,ColorFFcc00;
{净利润同比/环比}
DRAWTEXTREL(900,250,numtostr(jlrzlv5)+' / '+numtostr(jlrzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,250,numtostr(jlrzlv6)+' / '+numtostr(jlrzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,250,numtostr(jlrzlv7)+' / '+numtostr(jlrzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,250,numtostr(jlrzlv8)+' / '+numtostr(jlrzlv4)),ALIGN2,Colorffcc00;
{主营业务利润率}
DRAWTEXTREL(900,300,numtostr(zyywlrl1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,300,numtostr(zyywlrl2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,300,numtostr(zyywlrl3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,300,numtostr(zyywlrl4)),ALIGN2,Colorffcc00;
{主营业务利润率同比/环比}
DRAWTEXTREL(900,350,numtostr(zyywlrlzlv5)+' / '+numtostr(zyywlrlzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,350,numtostr(zyywlrlzlv6)+' / '+numtostr(zyywlrlzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,350,numtostr(zyywlrlzlv7)+' / '+numtostr(zyywlrlzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,350,numtostr(zyywlrlzlv8)+' / '+numtostr(zyywlrlzlv4)),ALIGN2,Colorffcc00;
{净资产收益率}
DRAWTEXTREL(900,400,numtostr(jzcsyl1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,400,numtostr(jzcsyl2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,400,numtostr(jzcsyl3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,400,numtostr(jzcsyl4)),ALIGN2,Colorffcc00;
{年度数据时间}
DRAWTEXTREL(900,500,mgndsj1),ALIGN2,COLORRED;
DRAWTEXTREL(700,500,mgndsj2),ALIGN2,COLORRED;
DRAWTEXTREL(500,500,mgndsj3),ALIGN2,COLORRED;
DRAWTEXTREL(300,500,mgndsj4),ALIGN2,COLORRED;
{税后利润增长率}
DRAWTEXTREL(900,550,numtostr(shlr1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,550,numtostr(shlr2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,550,numtostr(shlr3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,550,numtostr(shlr4)),ALIGN2,Colorffcc00;
{资产负债率}
DRAWTEXTREL(900,600,numtostr(zcfzl1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,600,numtostr(zcfzl2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,600,numtostr(zcfzl3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,600,numtostr(zcfzl4)),ALIGN2,Colorffcc00;
{三项费用增长率}
DRAWTEXTREL(900,650,numtostr(sxfyzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,650,numtostr(sxfyzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,650,numtostr(sxfyzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,650,numtostr(sxfyzlv4)),ALIGN2,Colorffcc00;
{三项费用占主营利润率}
DRAWTEXTREL(900,700,numtostr(sxfyzb1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,700,numtostr(sxfyzb2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,700,numtostr(sxfyzb3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,700,numtostr(sxfyzb4)),ALIGN2,Colorffcc00;
{现金流}
DRAWTEXTREL(900,750,numtostr(mgxjll1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,750,numtostr(mgxjll2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,750,numtostr(mgxjll3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,750,numtostr(mgxjll4)),ALIGN2,Colorffcc00;
{说明}
DRAWTEXTREL(100,880,'注：若无数据或者显示乱码，是因为该报季无数据可以取，请更新！！'),linethick2,COLOR8000CC;

[ 本帖最后由 zhbsystem888 于 2007-4-11 11:11 编辑 ]

zhbsystem888 发表于 2007-4-11 10:46

06-30季单季
{大智慧L2--港澳F10基本面统计数据}
lncwzbwz:=f10find('历年简要财务指标',1);
{报季时间}
zyywsrsjwz1:=f10find('每股指标(单位)',lncwzbwz+1);
zyywsrsjwz2:=f10find('每股指标(单位)',zyywsrsjwz1+1);
zyywsrsj1:=f10text(zyywsrsjwz1+20,10);
zyywsrsj2:=f10text(zyywsrsjwz1+32,10);
zyywsrsj3:=f10text(zyywsrsjwz1+44,10);
zyywsrsj4:=f10text(zyywsrsjwz1+56,10);
rq3:=strcmp(zyywsrsj1,'2007-06-30');{对应需要修改的时间是2007年二季报出来，将值改为'2007-06-30'}

if rq3=0 then begin
{取四个季度的净资产收益率}
jzcsylwz:=f10find('净资产收益率(%) ',zyywsrsjwz1+1);
jzcsylwz1:=f10find('净资产收益率(%) ',jzcsylwz+1);
jzcsyl4:=strtonum(f10text(jzcsylwz+56,10))-strtonum(f10text(jzcsylwz1+20,10));
jzcsyl3:=strtonum(f10text(jzcsylwz+44,10))-strtonum(f10text(jzcsylwz+56,10));
jzcsyl2:=strtonum(f10text(jzcsylwz+32,10));
jzcsyl1:=strtonum(f10text(jzcsylwz+20,10))-jzcsyl2;

{取八个季度的主营收入，算出每个季度增长率同环比}
{主营收入金额}
zyywsrwz1:=f10find('主营业务收入(万元)',jzcsylwz+1);
zyywsrwz2:=f10find('主营业务收入(万元)',zyywsrsjwz2+1);
zyywsrwz3:=f10find('【单季度财务分析】',zyywsrwz2+1);
zyywsr8:=strtonum(f10text(zyywsrwz3+1408,12));{2004-09-30}
zyywsr7:=strtonum(f10text(zyywsrwz2+44,10))-strtonum(f10text(zyywsrwz2+56,10));{2004-12-31}
zyywsr6:=strtonum(f10text(zyywsrwz2+32,10));{2005-03-31}
zyywsr5:=strtonum(f10text(zyywsrwz2+20,10))-zyywsr6;{2005-06-30}
zyywsr4:=strtonum(f10text(zyywsrwz1+56,10))-zyywsr5-zyywsr6;{2005-09-30}
zyywsr3:=strtonum(f10text(zyywsrwz1+44,10))-zyywsr4-zyywsr5-zyywsr6;{2005-12-31}
zyywsr2:=strtonum(f10text(zyywsrwz1+32,10));{2006-03-31}
zyywsr1:=strtonum(f10text(zyywsrwz1+20,10))-zyywsr2;{2006-06-30}
{主营收入环比增长率}
zyywsrzlv1:=(zyywsr1-zyywsr2)/abs(zyywsr2)*100;
zyywsrzlv2:=(zyywsr2-zyywsr3)/abs(zyywsr3)*100;
zyywsrzlv3:=(zyywsr3-zyywsr4)/abs(zyywsr4)*100;
zyywsrzlv4:=(zyywsr4-zyywsr5)/abs(zyywsr5)*100;
主营收入环比2:zyywsrzlv1,linethick0,colorgray,precis2;
{主营收入同比增长率}
zyywsrzlv5:=(zyywsr1-zyywsr5)/abs(zyywsr5)*100;
zyywsrzlv6:=(zyywsr2-zyywsr6)/abs(zyywsr6)*100;
zyywsrzlv7:=(zyywsr3-zyywsr7)/abs(zyywsr7)*100;
zyywsrzlv8:=(zyywsr4-zyywsr8)/abs(zyywsr8)*100;
主营收入同比2:zyywsrzlv5,linethick0,colorgray,precis2;
{取六个季度主营业务利润率和1个年度主营业务利润率和1个前三季度的主营业务利润率}
zyywlrwz1:=f10find('主营业务利润(万元)',zyywsrwz1+1);
zyywlrwz2:=f10find('主营业务利润(万元)',zyywsrwz2+1);
zyywlr8:=strtonum(f10text(zyywlrwz2+56,10));{2004-09-30}{此处取值欠妥，但是无法取到2004年前2个季度主营业务利润的值。}
zyywlr7:=strtonum(f10text(zyywlrwz2+44,10))-zyywlr8;{2004-12-31}
zyywlr6:=strtonum(f10text(zyywlrwz2+32,10));{2005-03-31}
zyywlr5:=strtonum(f10text(zyywlrwz2+20,10))-zyywlr6;{2005-06-30}
zyywlr4:=strtonum(f10text(zyywlrwz1+56,10))-zyywlr5-zyywlr6;{2005-09-30}
zyywlr3:=strtonum(f10text(zyywlrwz1+44,10))-zyywlr4-zyywlr5-zyywlr6;{2005-12-31}
zyywlr2:=strtonum(f10text(zyywlrwz1+32,10));{2006-03-31}
zyywlr1:=strtonum(f10text(zyywlrwz1+20,10))-zyywlr2;{2006-06-30}
zyywlrl1:=zyywlr1/abs(zyywsr1)*100;
zyywlrl2:=zyywlr2/abs(zyywsr2)*100;
zyywlrl3:=zyywlr3/abs(zyywsr3)*100;
zyywlrl4:=zyywlr4/abs(zyywsr4)*100;
zyywlrl5:=zyywlr5/abs(zyywsr5)*100;
zyywlrl6:=zyywlr6/abs(zyywsr6)*100;
zyywlrl7:=zyywlr7/abs(zyywsr7)*100;
zyywlrl8:=zyywlr8/abs(strtonum(f10text(zyywsrwz2+56,10)))*100;{此处取值欠妥，理由同上，用2004-09-30前三季度的主营业务利润率代替}
{主营业务利润率环比}
zyywlrlzlv1:=(zyywlrl1-zyywlrl2)/abs(zyywlrl2)*100;
zyywlrlzlv2:=(zyywlrl2-zyywlrl3)/abs(zyywlrl3)*100;
zyywlrlzlv3:=(zyywlrl3-zyywlrl4)/abs(zyywlrl4)*100;
zyywlrlzlv4:=(zyywlrl4-zyywlrl5)/abs(zyywlrl5)*100;
主营利润环比2:zyywlrlzlv1,linethick0,colorgray,precis2;
{主营业务利润率同比}
zyywlrlzlv5:=(zyywlrl1-zyywlrl5)/abs(zyywlrl5)*100;
zyywlrlzlv6:=(zyywlrl2-zyywlrl6)/abs(zyywlrl6)*100;
zyywlrlzlv7:=(zyywlrl3-zyywlrl7)/abs(zyywlrl7)*100;
zyywlrlzlv8:=(zyywlrl4-zyywlrl8)/abs(zyywlrl8)*100;
主营利润同比2:zyywlrlzlv5,linethick0,colorgray,precis2;
{取八个季度的净利润，算出每个季度增长率同环比}
jlrwz1:=f10find('净利润(万元)',zyywsrwz1+1);
jlrwz2:=f10find('净利润(万元)',zyywsrwz2+1);
jlr8:=strtonum(f10text(zyywsrwz3+1434,12));{2004-09-30}
jlr7:=strtonum(f10text(jlrwz2+44,10))-strtonum(f10text(jlrwz2+56,10));{2004-12-31}
jlr6:=strtonum(f10text(jlrwz2+32,10));{2005-03-31}
jlr5:=strtonum(f10text(jlrwz2+20,10))-jlr6;{2005-06-30}
jlr4:=strtonum(f10text(jlrwz1+56,10))-jlr5-jlr6;{2005-09-30}
jlr3:=strtonum(f10text(jlrwz1+44,10))-jlr4-jlr5-jlr6;{2005-12-31}
jlr2:=strtonum(f10text(jlrwz1+32,10));{2006-03-31}
jlr1:=strtonum(f10text(jlrwz1+20,10))-jlr2;{2006-06-30}
{净利润环比增长率}
jlrzlv1:=(jlr1-jlr2)/abs(jlr2)*100;
jlrzlv2:=(jlr2-jlr3)/abs(jlr3)*100;
jlrzlv3:=(jlr3-jlr4)/abs(jlr4)*100;
jlrzlv4:=(jlr4-jlr5)/abs(jlr5)*100;
净利润环比2:jlrzlv1,linethick0,colorgray,precis2;
{净利润同比增长率}
jlrzlv5:=(jlr1-jlr5)/abs(jlr5)*100;
jlrzlv6:=(jlr2-jlr6)/abs(jlr6)*100;
jlrzlv7:=(jlr3-jlr7)/abs(jlr7)*100;
jlrzlv8:=(jlr4-jlr8)/abs(jlr8)*100;
净利润同比2:jlrzlv5,linethick0,colorgray,precis2;
end;


f1010:=f10find('【每股指标】',1);
{取年度数据时间}
mgzbsjwz:=f10find('财务指标(单位) ',f1010+1);
mgndsj1:=f10text(mgzbsjwz+20,10);
mgndsj2:=f10text(mgzbsjwz+32,10);
mgndsj3:=f10text(mgzbsjwz+44,10);
mgndsj4:=f10text(mgzbsjwz+56,10);
{取现金流量}
mgxjllwz:=f10find('每股现金流量(元)',mgzbsjwz+1);
mgxjll1:=strtonum(f10text(mgxjllwz+20,10));
mgxjll2:=strtonum(f10text(mgxjllwz+32,10));
mgxjll3:=strtonum(f10text(mgxjllwz+44,10));
mgxjll4:=strtonum(f10text(mgxjllwz+56,10));
{取三项费用}
sxfywz1:=f10find('【利润构成与盈利能力】',f1010+1);
sxfywz2:=f10find('主营业务利润(万元)',sxfywz1+1);
sxfywz3:=f10find('经营费用(万元)',sxfywz2+1);
sxfywz4:=f10find('管理费用(万元)',sxfywz3+1);
sxfywz5:=f10find('财务费用(万元)',sxfywz4+1);
sxfywz6:=f10find('三项费用增长率(%) ',sxfywz5+1);
zyywlr1:=strtonum(f10text(sxfywz2+20,10));
zyywlr2:=strtonum(f10text(sxfywz2+32,10));
zyywlr3:=strtonum(f10text(sxfywz2+44,10));
zyywlr4:=strtonum(f10text(sxfywz2+56,10));
jyfy1:=strtonum(f10text(sxfywz3+20,10));
jyfy2:=strtonum(f10text(sxfywz3+32,10));
jyfy3:=strtonum(f10text(sxfywz3+44,10));
jyfy4:=strtonum(f10text(sxfywz3+56,10));
glfy1:=strtonum(f10text(sxfywz4+20,10));
glfy2:=strtonum(f10text(sxfywz4+32,10));
glfy3:=strtonum(f10text(sxfywz4+44,10));
glfy4:=strtonum(f10text(sxfywz4+56,10));
cwfy1:=strtonum(f10text(sxfywz5+20,10));
cwfy2:=strtonum(f10text(sxfywz5+32,10));
cwfy3:=strtonum(f10text(sxfywz5+44,10));
cwfy4:=strtonum(f10text(sxfywz5+56,10));
sxfyzlv1:=strtonum(f10text(sxfywz6+20,10));
sxfyzlv2:=strtonum(f10text(sxfywz6+32,10));
sxfyzlv3:=strtonum(f10text(sxfywz6+44,10));
sxfyzlv4:=strtonum(f10text(sxfywz6+56,10));
sxfyzb1:=(jyfy1+glfy1+cwfy1)/zyywlr1*100;
sxfyzb2:=(jyfy2+glfy2+cwfy2)/zyywlr2*100;
sxfyzb3:=(jyfy3+glfy3+cwfy3)/zyywlr3*100;
sxfyzb4:=(jyfy4+glfy4+cwfy4)/zyywlr4*100;
{取税后利润增长率}
shlrwz1:=f10find('【经营与发展能力】',f1010+1);
shlrwz:=f10find('税后利润增长率(%)',shlrwz1+1);
shlr1:=strtonum(f10text(shlrwz+20,10));
shlr2:=strtonum(f10text(shlrwz+32,10));
shlr3:=strtonum(f10text(shlrwz+44,10));
shlr4:=strtonum(f10text(shlrwz+56,10));
{取资产负债率}
zcfzlwz1:=f10find('【资产与负债】',f1010+1);
zcfzlwz:=f10find('资产负债率(%) ',zcfzlwz1+1);
zcfzl1:=strtonum(f10text(zcfzlwz+18,10));
zcfzl2:=strtonum(f10text(zcfzlwz+30,10));
zcfzl3:=strtonum(f10text(zcfzlwz+42,10));
zcfzl4:=strtonum(f10text(zcfzlwz+54,10));
{-------------------【图解模板】-------------------}
{显示文字}
DRAWTEXTREL(0,50,'报表时间'),COLORblue;
DRAWTEXTREL(0,100,'主营业务收入（万元）'),Colorblue;
DRAWTEXTREL(0,150,'主营业务同比/环比（%）'),Colorblue;
DRAWTEXTREL(0,200,'净利润（万元）'),Colorblue;
DRAWTEXTREL(0,250,'净利润同比/环比（%）'),Colorblue;
DRAWTEXTREL(0,300,'主营业务利润率（%）'),Colorblue;
DRAWTEXTREL(0,350,'主营利润率同比/环比（%）'),Colorblue;
DRAWTEXTREL(0,400,'净资产收益率（%）'),Colorblue;
DRAWTEXTREL(0,500,'年度数据'),Colorblue;
DRAWTEXTREL(0,550,'税后利润增长率（%）'),Colorblue;
DRAWTEXTREL(0,600,'资产负债率（%）'),Colorblue;
DRAWTEXTREL(0,650,'三项费用增长率（%）'),Colorblue;
DRAWTEXTREL(0,700,'三项费用占主营利润率（%）'),Colorblue;
DRAWTEXTREL(0,750,'现金流（元）'),Colorblue;
{时间}
DRAWTEXTREL(900,50,zyywsrsj1),ALIGN2,COLORred;
DRAWTEXTREL(700,50,zyywsrsj2),ALIGN2,COLORred;
DRAWTEXTREL(500,50,zyywsrsj3),ALIGN2,COLORred;
DRAWTEXTREL(300,50,zyywsrsj4),ALIGN2,COLORred;
{主营业务收入}
DRAWTEXTREL(900,100,numtostr(zyywsr1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,100,numtostr(zyywsr2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,100,numtostr(zyywsr3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,100,numtostr(zyywsr4)),ALIGN2,Colorffcc00;
{主营业务收入同比/环比}
DRAWTEXTREL(900,150,numtostr(zyywsrzlv5)+' / '+numtostr(zyywsrzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,150,numtostr(zyywsrzlv6)+' / '+numtostr(zyywsrzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,150,numtostr(zyywsrzlv7)+' / '+numtostr(zyywsrzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,150,numtostr(zyywsrzlv8)+' / '+numtostr(zyywsrzlv4)),ALIGN2,Colorffcc00;
{净利润}
DRAWTEXTREL(900,200,numtostr(jlr1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,200,numtostr(jlr2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,200,numtostr(jlr3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,200,numtostr(jlr4)),ALIGN2,ColorFFcc00;
{净利润同比/环比}
DRAWTEXTREL(900,250,numtostr(jlrzlv5)+' / '+numtostr(jlrzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,250,numtostr(jlrzlv6)+' / '+numtostr(jlrzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,250,numtostr(jlrzlv7)+' / '+numtostr(jlrzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,250,numtostr(jlrzlv8)+' / '+numtostr(jlrzlv4)),ALIGN2,Colorffcc00;
{主营业务利润率}
DRAWTEXTREL(900,300,numtostr(zyywlrl1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,300,numtostr(zyywlrl2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,300,numtostr(zyywlrl3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,300,numtostr(zyywlrl4)),ALIGN2,Colorffcc00;
{主营业务利润率同比/环比}
DRAWTEXTREL(900,350,numtostr(zyywlrlzlv5)+' / '+numtostr(zyywlrlzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,350,numtostr(zyywlrlzlv6)+' / '+numtostr(zyywlrlzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,350,numtostr(zyywlrlzlv7)+' / '+numtostr(zyywlrlzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,350,numtostr(zyywlrlzlv8)+' / '+numtostr(zyywlrlzlv4)),ALIGN2,Colorffcc00;
{净资产收益率}
DRAWTEXTREL(900,400,numtostr(jzcsyl1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,400,numtostr(jzcsyl2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,400,numtostr(jzcsyl3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,400,numtostr(jzcsyl4)),ALIGN2,Colorffcc00;
{年度数据时间}
DRAWTEXTREL(900,500,mgndsj1),ALIGN2,COLORRED;
DRAWTEXTREL(700,500,mgndsj2),ALIGN2,COLORRED;
DRAWTEXTREL(500,500,mgndsj3),ALIGN2,COLORRED;
DRAWTEXTREL(300,500,mgndsj4),ALIGN2,COLORRED;
{税后利润增长率}
DRAWTEXTREL(900,550,numtostr(shlr1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,550,numtostr(shlr2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,550,numtostr(shlr3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,550,numtostr(shlr4)),ALIGN2,Colorffcc00;
{资产负债率}
DRAWTEXTREL(900,600,numtostr(zcfzl1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,600,numtostr(zcfzl2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,600,numtostr(zcfzl3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,600,numtostr(zcfzl4)),ALIGN2,Colorffcc00;
{三项费用增长率}
DRAWTEXTREL(900,650,numtostr(sxfyzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,650,numtostr(sxfyzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,650,numtostr(sxfyzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,650,numtostr(sxfyzlv4)),ALIGN2,Colorffcc00;
{三项费用占主营利润率}
DRAWTEXTREL(900,700,numtostr(sxfyzb1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,700,numtostr(sxfyzb2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,700,numtostr(sxfyzb3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,700,numtostr(sxfyzb4)),ALIGN2,Colorffcc00;
{现金流}
DRAWTEXTREL(900,750,numtostr(mgxjll1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,750,numtostr(mgxjll2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,750,numtostr(mgxjll3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,750,numtostr(mgxjll4)),ALIGN2,Colorffcc00;
{说明}
DRAWTEXTREL(100,880,'注：若无数据或者显示乱码，是因为该报季无数据可以取，请更新！！'),linethick2,COLOR8000CC;

[ 本帖最后由 zhbsystem888 于 2007-4-11 11:12 编辑 ]

skylooker 发表于 2007-4-11 10:48

原帖由 lymanqun 于 2007-4-11 10:35 发表 http://bbs.macd.cn/static/image/common/back.gif
长期没关注组合2，错失卖股良机，卖出长春高新，买入宝胜股份24。05元——组合2

哈哈，看来还是得跟着组合1走，我今天也卖了长春，实在是拿不住了。

huanwu000 发表于 2007-4-11 10:50

老大,人福12以上能出吗?

zhbsystem888 发表于 2007-4-11 10:53

03-31季单季
{大智慧L2--港澳F10基本面统计数据}
lncwzbwz:=f10find('历年简要财务指标',1);
{报季时间}
zyywsrsjwz1:=f10find('每股指标(单位)',lncwzbwz+1);
zyywsrsjwz2:=f10find('每股指标(单位)',zyywsrsjwz1+1);
zyywsrsj1:=f10text(zyywsrsjwz1+20,10);
zyywsrsj2:=f10text(zyywsrsjwz1+32,10);
zyywsrsj3:=f10text(zyywsrsjwz1+44,10);
zyywsrsj4:=f10text(zyywsrsjwz1+56,10);
rq4:=strcmp(zyywsrsj1,'2007-03-31');{对应需要修改的时间是2007年一季报出来，将值改为'2007-03-31'}


if rq4=0 then begin
{取四个季度的净资产收益率}
jzcsylwz:=f10find('净资产收益率(%) ',zyywsrsjwz1+1);
jzcsylwz1:=f10find('净资产收益率(%) ',jzcsylwz+1);
jzcsyl4:=strtonum(f10text(jzcsylwz+56,10))-strtonum(f10text(jzcsylwz1+20,10));
jzcsyl3:=strtonum(f10text(jzcsylwz+44,10))-strtonum(f10text(jzcsylwz+56,10));
jzcsyl2:=strtonum(f10text(jzcsylwz+32,10))-strtonum(f10text(jzcsylwz+44,10))-strtonum(f10text(jzcsylwz+56,10));
jzcsyl1:=strtonum(f10text(jzcsylwz+20,10));
{取八个季度的主营收入，算出每个季度增长率同环比}
{主营收入金额}
zyywsrwz1:=f10find('主营业务收入(万元)',jzcsylwz+1);
zyywsrwz2:=f10find('主营业务收入(万元)',zyywsrsjwz2+1);
zyywsrwz3:=f10find('【单季度财务分析】',zyywsrwz2+1);
zyywsr8:=strtonum(f10text(zyywsrwz3+1336,12));{2004-06-30}
zyywsr7:=strtonum(f10text(zyywsrwz2+44,10))-strtonum(f10text(zyywsrwz2+56,10));{2004-09-30}
zyywsr6:=strtonum(f10text(zyywsrwz2+32,10))-strtonum(f10text(zyywsrwz2+44,10));{2004-12-31}
zyywsr5:=strtonum(f10text(zyywsrwz2+20,10));{2005-03-31}
zyywsr4:=strtonum(f10text(zyywsrwz1+56,10))-zyywsr5;{2005-06-30}
zyywsr3:=strtonum(f10text(zyywsrwz1+44,10))-zyywsr4-zyywsr5;{2005-09-30}
zyywsr2:=strtonum(f10text(zyywsrwz1+32,10))-zyywsr3-zyywsr4-zyywsr5;{2005-12-31}
zyywsr1:=strtonum(f10text(zyywsrwz1+20,10));{2006-03-31}
{主营收入环比增长率}
zyywsrzlv1:=(zyywsr1-zyywsr2)/abs(zyywsr2)*100;
zyywsrzlv2:=(zyywsr2-zyywsr3)/abs(zyywsr3)*100;
zyywsrzlv3:=(zyywsr3-zyywsr4)/abs(zyywsr4)*100;
zyywsrzlv4:=(zyywsr4-zyywsr5)/abs(zyywsr5)*100;
主营收入环比3:zyywsrzlv1,linethick0,colorgray,precis2;
{主营收入同比增长率}
zyywsrzlv5:=(zyywsr1-zyywsr5)/abs(zyywsr5)*100;
zyywsrzlv6:=(zyywsr2-zyywsr6)/abs(zyywsr6)*100;
zyywsrzlv7:=(zyywsr3-zyywsr7)/abs(zyywsr7)*100;
zyywsrzlv8:=(zyywsr4-zyywsr8)/abs(zyywsr8)*100;
主营收入同比3:zyywsrzlv5,linethick0,colorgray,precis2;
{取七个季度主营业务利润率和1个半年的主营业务利润率}
zyywlrwz1:=f10find('主营业务利润(万元)',zyywsrwz1+1);
zyywlrwz2:=f10find('主营业务利润(万元)',zyywsrwz2+1);
zyywlr8:=strtonum(f10text(zyywlrwz2+56,10));{2004-06-30}{此处取值欠妥，但是无法取到2004年一季度主营业务利润的值。}
zyywlr7:=strtonum(f10text(zyywlrwz2+44,10))-zyywlr8;{2004-09-30}
zyywlr6:=strtonum(f10text(zyywlrwz2+32,10))-zyywlr7-zyywlr8;{2004-12-31}
zyywlr5:=strtonum(f10text(zyywlrwz2+20,10));{2005-03-31}
zyywlr4:=strtonum(f10text(zyywlrwz1+56,10))-zyywlr5;{2005-06-30}
zyywlr3:=strtonum(f10text(zyywlrwz1+44,10))-zyywlr4-zyywlr5;{2005-09-30}
zyywlr2:=strtonum(f10text(zyywlrwz1+32,10))-zyywlr3-zyywlr4-zyywlr5;{2005-12-31}
zyywlr1:=strtonum(f10text(zyywlrwz1+20,10));{2006-03-31}
zyywlrl1:=zyywlr1/abs(zyywsr1)*100;
zyywlrl2:=zyywlr2/abs(zyywsr2)*100;
zyywlrl3:=zyywlr3/abs(zyywsr3)*100;
zyywlrl4:=zyywlr4/abs(zyywsr4)*100;
zyywlrl5:=zyywlr5/abs(zyywsr5)*100;
zyywlrl6:=zyywlr6/abs(zyywsr6)*100;
zyywlrl7:=zyywlr7/abs(zyywsr7)*100;
zyywlrl8:=zyywlr8/abs(strtonum(f10text(zyywsrwz2+56,10)))*100;{此处取值欠妥，理由同上，用2004年半年度的主营业务利润率代替}
{主营业务利润率环比增长率}
zyywlrlzlv1:=(zyywlrl1-zyywlrl2)/abs(zyywlrl2)*100;
zyywlrlzlv2:=(zyywlrl2-zyywlrl3)/abs(zyywlrl3)*100;
zyywlrlzlv3:=(zyywlrl3-zyywlrl4)/abs(zyywlrl4)*100;
zyywlrlzlv4:=(zyywlrl4-zyywlrl5)/abs(zyywlrl5)*100;
主营利润环比3:zyywlrlzlv1,linethick0,colorgray,precis2;
{主营业务利润率同比增长率}
zyywlrlzlv5:=(zyywlrl1-zyywlrl5)/abs(zyywlrl5)*100;
zyywlrlzlv6:=(zyywlrl2-zyywlrl6)/abs(zyywlrl6)*100;
zyywlrlzlv7:=(zyywlrl3-zyywlrl7)/abs(zyywlrl7)*100;
zyywlrlzlv8:=(zyywlrl4-zyywlrl8)/abs(zyywlrl8)*100;
主营利润同比3:zyywlrlzlv5,linethick0,colorgray,precis2;
{取八个季度的净利润，算出每个季度增长率同环比}
jlrwz1:=f10find('净利润(万元)',zyywsrwz1+1);
jlrwz2:=f10find('净利润(万元)',zyywsrwz2+1);
jlr8:=strtonum(f10text(zyywsrwz3+1362,12));{2004-06-30}
jlr7:=strtonum(f10text(jlrwz2+44,10))-strtonum(f10text(jlrwz2+56,10));{2004-09-30}
jlr6:=strtonum(f10text(jlrwz2+32,10))-strtonum(f10text(jlrwz2+44,10));{2004-12-31}
jlr5:=strtonum(f10text(jlrwz2+20,10));{2005-03-31}
jlr4:=strtonum(f10text(jlrwz1+56,10))-jlr5;{2005-06-30}
jlr3:=strtonum(f10text(jlrwz1+44,10))-jlr4-jlr5;{2005-09-30}
jlr2:=strtonum(f10text(jlrwz1+32,10))-jlr3-jlr4-jlr5;{2005-12-31}
jlr1:=strtonum(f10text(jlrwz1+20,10));{2006-03-31}
{净利润环比增长率}
jlrzlv1:=(jlr1-jlr2)/abs(jlr2)*100;
jlrzlv2:=(jlr2-jlr3)/abs(jlr3)*100;
jlrzlv3:=(jlr3-jlr4)/abs(jlr4)*100;
jlrzlv4:=(jlr4-jlr5)/abs(jlr5)*100;
净利润环比3:jlrzlv1,linethick0,colorgray,precis2;
{净利润同比增长率}
jlrzlv5:=(jlr1-jlr5)/abs(jlr5)*100;
jlrzlv6:=(jlr2-jlr6)/abs(jlr6)*100;
jlrzlv7:=(jlr3-jlr7)/abs(jlr7)*100;
jlrzlv8:=(jlr4-jlr8)/abs(jlr8)*100;
净利润同比3:jlrzlv5,linethick0,colorgray,precis2;
end;

f1010:=f10find('【每股指标】',1);
{取年度数据时间}
mgzbsjwz:=f10find('财务指标(单位) ',f1010+1);
mgndsj1:=f10text(mgzbsjwz+20,10);
mgndsj2:=f10text(mgzbsjwz+32,10);
mgndsj3:=f10text(mgzbsjwz+44,10);
mgndsj4:=f10text(mgzbsjwz+56,10);
{取现金流量}
mgxjllwz:=f10find('每股现金流量(元)',mgzbsjwz+1);
mgxjll1:=strtonum(f10text(mgxjllwz+20,10));
mgxjll2:=strtonum(f10text(mgxjllwz+32,10));
mgxjll3:=strtonum(f10text(mgxjllwz+44,10));
mgxjll4:=strtonum(f10text(mgxjllwz+56,10));
{取三项费用}
sxfywz1:=f10find('【利润构成与盈利能力】',f1010+1);
sxfywz2:=f10find('主营业务利润(万元)',sxfywz1+1);
sxfywz3:=f10find('经营费用(万元)',sxfywz2+1);
sxfywz4:=f10find('管理费用(万元)',sxfywz3+1);
sxfywz5:=f10find('财务费用(万元)',sxfywz4+1);
sxfywz6:=f10find('三项费用增长率(%) ',sxfywz5+1);
zyywlr1:=strtonum(f10text(sxfywz2+20,10));
zyywlr2:=strtonum(f10text(sxfywz2+32,10));
zyywlr3:=strtonum(f10text(sxfywz2+44,10));
zyywlr4:=strtonum(f10text(sxfywz2+56,10));
jyfy1:=strtonum(f10text(sxfywz3+20,10));
jyfy2:=strtonum(f10text(sxfywz3+32,10));
jyfy3:=strtonum(f10text(sxfywz3+44,10));
jyfy4:=strtonum(f10text(sxfywz3+56,10));
glfy1:=strtonum(f10text(sxfywz4+20,10));
glfy2:=strtonum(f10text(sxfywz4+32,10));
glfy3:=strtonum(f10text(sxfywz4+44,10));
glfy4:=strtonum(f10text(sxfywz4+56,10));
cwfy1:=strtonum(f10text(sxfywz5+20,10));
cwfy2:=strtonum(f10text(sxfywz5+32,10));
cwfy3:=strtonum(f10text(sxfywz5+44,10));
cwfy4:=strtonum(f10text(sxfywz5+56,10));
sxfyzlv1:=strtonum(f10text(sxfywz6+20,10));
sxfyzlv2:=strtonum(f10text(sxfywz6+32,10));
sxfyzlv3:=strtonum(f10text(sxfywz6+44,10));
sxfyzlv4:=strtonum(f10text(sxfywz6+56,10));
sxfyzb1:=(jyfy1+glfy1+cwfy1)/zyywlr1*100;
sxfyzb2:=(jyfy2+glfy2+cwfy2)/zyywlr2*100;
sxfyzb3:=(jyfy3+glfy3+cwfy3)/zyywlr3*100;
sxfyzb4:=(jyfy4+glfy4+cwfy4)/zyywlr4*100;
{取税后利润增长率}
shlrwz1:=f10find('【经营与发展能力】',f1010+1);
shlrwz:=f10find('税后利润增长率(%)',shlrwz1+1);
shlr1:=strtonum(f10text(shlrwz+20,10));
shlr2:=strtonum(f10text(shlrwz+32,10));
shlr3:=strtonum(f10text(shlrwz+44,10));
shlr4:=strtonum(f10text(shlrwz+56,10));
{取资产负债率}
zcfzlwz1:=f10find('【资产与负债】',f1010+1);
zcfzlwz:=f10find('资产负债率(%) ',zcfzlwz1+1);
zcfzl1:=strtonum(f10text(zcfzlwz+18,10));
zcfzl2:=strtonum(f10text(zcfzlwz+30,10));
zcfzl3:=strtonum(f10text(zcfzlwz+42,10));
zcfzl4:=strtonum(f10text(zcfzlwz+54,10));
{-------------------【图解模板】-------------------}
{显示文字}
DRAWTEXTREL(0,50,'报表时间'),COLORblue;
DRAWTEXTREL(0,100,'主营业务收入（万元）'),Colorblue;
DRAWTEXTREL(0,150,'主营业务同比/环比（%）'),Colorblue;
DRAWTEXTREL(0,200,'净利润（万元）'),Colorblue;
DRAWTEXTREL(0,250,'净利润同比/环比（%）'),Colorblue;
DRAWTEXTREL(0,300,'主营业务利润率（%）'),Colorblue;
DRAWTEXTREL(0,350,'主营利润率同比/环比（%）'),Colorblue;
DRAWTEXTREL(0,400,'净资产收益率（%）'),Colorblue;
DRAWTEXTREL(0,500,'年度数据'),Colorblue;
DRAWTEXTREL(0,550,'税后利润增长率（%）'),Colorblue;
DRAWTEXTREL(0,600,'资产负债率（%）'),Colorblue;
DRAWTEXTREL(0,650,'三项费用增长率（%）'),Colorblue;
DRAWTEXTREL(0,700,'三项费用占主营利润率（%）'),Colorblue;
DRAWTEXTREL(0,750,'现金流（元）'),Colorblue;
{时间}
DRAWTEXTREL(900,50,zyywsrsj1),ALIGN2,COLORred;
DRAWTEXTREL(700,50,zyywsrsj2),ALIGN2,COLORred;
DRAWTEXTREL(500,50,zyywsrsj3),ALIGN2,COLORred;
DRAWTEXTREL(300,50,zyywsrsj4),ALIGN2,COLORred;
{主营业务收入}
DRAWTEXTREL(900,100,numtostr(zyywsr1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,100,numtostr(zyywsr2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,100,numtostr(zyywsr3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,100,numtostr(zyywsr4)),ALIGN2,Colorffcc00;
{主营业务收入同比/环比}
DRAWTEXTREL(900,150,numtostr(zyywsrzlv5)+' / '+numtostr(zyywsrzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,150,numtostr(zyywsrzlv6)+' / '+numtostr(zyywsrzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,150,numtostr(zyywsrzlv7)+' / '+numtostr(zyywsrzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,150,numtostr(zyywsrzlv8)+' / '+numtostr(zyywsrzlv4)),ALIGN2,Colorffcc00;
{净利润}
DRAWTEXTREL(900,200,numtostr(jlr1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,200,numtostr(jlr2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,200,numtostr(jlr3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,200,numtostr(jlr4)),ALIGN2,ColorFFcc00;
{净利润同比/环比}
DRAWTEXTREL(900,250,numtostr(jlrzlv5)+' / '+numtostr(jlrzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,250,numtostr(jlrzlv6)+' / '+numtostr(jlrzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,250,numtostr(jlrzlv7)+' / '+numtostr(jlrzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,250,numtostr(jlrzlv8)+' / '+numtostr(jlrzlv4)),ALIGN2,Colorffcc00;
{主营业务利润率}
DRAWTEXTREL(900,300,numtostr(zyywlrl1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,300,numtostr(zyywlrl2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,300,numtostr(zyywlrl3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,300,numtostr(zyywlrl4)),ALIGN2,Colorffcc00;
{主营业务利润率同比/环比}
DRAWTEXTREL(900,350,numtostr(zyywlrlzlv5)+' / '+numtostr(zyywlrlzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,350,numtostr(zyywlrlzlv6)+' / '+numtostr(zyywlrlzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,350,numtostr(zyywlrlzlv7)+' / '+numtostr(zyywlrlzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,350,numtostr(zyywlrlzlv8)+' / '+numtostr(zyywlrlzlv4)),ALIGN2,Colorffcc00;
{净资产收益率}
DRAWTEXTREL(900,400,numtostr(jzcsyl1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,400,numtostr(jzcsyl2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,400,numtostr(jzcsyl3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,400,numtostr(jzcsyl4)),ALIGN2,Colorffcc00;
{年度数据时间}
DRAWTEXTREL(900,500,mgndsj1),ALIGN2,COLORRED;
DRAWTEXTREL(700,500,mgndsj2),ALIGN2,COLORRED;
DRAWTEXTREL(500,500,mgndsj3),ALIGN2,COLORRED;
DRAWTEXTREL(300,500,mgndsj4),ALIGN2,COLORRED;
{税后利润增长率}
DRAWTEXTREL(900,550,numtostr(shlr1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,550,numtostr(shlr2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,550,numtostr(shlr3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,550,numtostr(shlr4)),ALIGN2,Colorffcc00;
{资产负债率}
DRAWTEXTREL(900,600,numtostr(zcfzl1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,600,numtostr(zcfzl2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,600,numtostr(zcfzl3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,600,numtostr(zcfzl4)),ALIGN2,Colorffcc00;
{三项费用增长率}
DRAWTEXTREL(900,650,numtostr(sxfyzlv1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,650,numtostr(sxfyzlv2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,650,numtostr(sxfyzlv3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,650,numtostr(sxfyzlv4)),ALIGN2,Colorffcc00;
{三项费用占主营利润率}
DRAWTEXTREL(900,700,numtostr(sxfyzb1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,700,numtostr(sxfyzb2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,700,numtostr(sxfyzb3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,700,numtostr(sxfyzb4)),ALIGN2,Colorffcc00;
{现金流}
DRAWTEXTREL(900,750,numtostr(mgxjll1)),ALIGN2,Colorffcc00;
DRAWTEXTREL(700,750,numtostr(mgxjll2)),ALIGN2,Colorffcc00;
DRAWTEXTREL(500,750,numtostr(mgxjll3)),ALIGN2,Colorffcc00;
DRAWTEXTREL(300,750,numtostr(mgxjll4)),ALIGN2,Colorffcc00;
{说明}
DRAWTEXTREL(100,880,'注：若无数据或者显示乱码，是因为该报季无数据可以取，请更新！！'),linethick2,COLOR8000CC;

[ 本帖最后由 zhbsystem888 于 2007-4-11 11:14 编辑 ]

lymanqun 发表于 2007-4-11 10:57

原帖由 zhbsystem888 于 2007-4-11 10:53 发表 http://bbs.macd.cn/static/image/common/back.gif
03-31季单季
{大智慧L2--港澳F10基本面统计数据}
lncwzbwz:=f10find('历年简要财务指标',1);
{报季时间}
zyywsrsjwz1:=f10find('每股指标(单位)',lncwzbwz+1);
zyywsrsjwz2:=f10find('每股指标(单位)',zyy ...


太谢谢你了vv vv vv ，太详尽了，真是棒！！！，费了你不少心血，并与大家共享，你是好样的:*22*: :*22*:

汽油机 发表于 2007-4-11 10:58

vv

查看完整版本: 欧奈尔选股法80只牛股纵览（年盈利超130%）累计收益901.38%今日评分公布0426