{分析家、大智慧-2.适用与万国测评制作F10资料.}
提取财务资料的说明及F10资料来源:
1、新建以下内容的TXT文件,文件更名为:F10-TXT.bat,双击;
2、X:---为分析家或大智慧2的安装的盘符  (大智慧2将以下FXJ 改为dzh2)
3、F10资料的分段文件---财务资料 *.002 转为提取财务资料的TXT文件(用需要的部分可减少查找的时间).


cd\
X:
copy fxj\DATA\SH\Base\*.002 fxj\DATA\SH\Base\*.txt
copy fxj\DATA\Sz\Base\*.002 fxj\DATA\Sz\Base\*.txt

以上是说明及DOS下的BAT文件.

下面是公式源码

VARIABLE:nn=15;
主题:= '◆ 财务透视 ◆'; 主题二:='二、财务透视';{适用与万国测评制作.分段资料与原总资料有不同}
f0:F10FIND(主题,1)+F10FIND(主题二,1)+1,LINETHICK0;
{表对应项目设置}
a1:='主营收入';a2:='主营利润';a3:='营业利润';
a4:='投资收益';a5:='应收帐款'{可设更多};
题一:='经营业绩:';   题二:='利润表摘要';
f1:F10FIND(题一,f0) +F10FIND(题二,f0)+1,LINETHICK0;{资料有不同}
aa:='指标(单位:万元)';
表头:=F10TEXT(F10FIND(aa,f1),68);
年定位:STRFIND(表头,'200',12)-1,LINETHICK0;{大智慧2为0 分析家-1}

年:=STRmid(表头,年定位,4);
最新:=STRmid(表头,年定位,12);
期定位:STRFIND(最新,' ',2)-5,LINETHICK0;{大智慧2为-4 分析家-5}

期:=STRmid(最新,期定位,4);
上年:=NUMTOSTRN(STRTONUM(年)-1,0)+期;
查上年:STRFIND(表头,上年,年定位),LINETHICK0;

{同期比通用计算};
za:=a1;{对应项目可变数a2\a3..... F10FIND拒绝接受变数及数组,只能在此人为变化，否则每一项重复复制对应处更改}   
zt1:=F10TEXT(F10FIND(za,f1) ,68);
zd1:STRFIND(zt1,'.',10)-9,LINETHICK0;
zt2:=STRTONUM(STRmid(zt1,zd1,11));
zd2:STRFIND(zt1,'.',查上年)-9,LINETHICK0;
zt3:=STRTONUM(STRmid(zt1,zd2,11));
计算:if(查上年>0,((zt2-zt3)/abs(zt3))*100,-1000),PRECIS1,LINETHICK0;{可输出到排序表}

DRAWTEXTABS(1,1,'        '+za+'--同期比增涨: '+计算+'(%)'+'  (注:-1000为同期无数据)'),color00ffff;{+'   校核 最新:'+最新 +' '+zt2+' 上年 '+上年+' '+if(查上年>0,zt3,-1000)}
DRAWTEXTABS(1,nn,'  '+表头),color00ff00;
{固定表显示}
t1:=F10TEXT(F10FIND(a1,f1) ,68);
DRAWTEXTABS(1,2*nn,'  '+t1),colorffffff;
t2:=F10TEXT(F10FIND(a2,f1) ,68);
DRAWTEXTABS(1,3*nn,'  '+t2),colorffffff;
t3:=F10TEXT(F10FIND(a3,f1) ,68);
DRAWTEXTABS(1,4*nn,'  '+t3),colorffffff;
t4:=F10TEXT(F10FIND(a4,f1) ,68);
DRAWTEXTABS(1,5*nn,'  '+t4),colorffffff;
t5:=F10TEXT(F10FIND(a5,f1) ,68);
DRAWTEXTABS(1,6*nn,'  '+t5),colorffffff;{};

[ 本帖最后由 stockm618 于 2007-3-4 11:18 编辑 ]

飞狐用(可用,需自己修改,本人不太熟悉)
VARIABLE:nn=15;
主题:= '◆ 财务透视 ◆'; 主题二:='二、财务透视';//{适用与万国测评制作.分段资料与原总资料有不同}
f0:F10FIND(主题,1)+F10FIND(主题二,1)+1,LINETHICK0;
//{表对应项目设置}
a1:='主营收入';a2:='主营利润';a3:='营业利润';a4:='投资收益';a5:='应收帐款'{可设更多};
题一:='经营业绩:';  
题二:='利润表摘要';
f1:F10FIND(题一,f0) +F10FIND(题二,f0)+1,LINETHICK0;{资料有不同}
aa:='指标(单位:万元)';
表头:=F10TEXT(F10FIND(aa,f1),68);
表头定位:STRFIND(表头,'200',10)-1,LINETHICK0;
最新:=STRmid(表头,表头定位,10);
年:=STRmid(最新,1,5);
上年:=NUMTOSTR(STRTONUM(年)-1,0)+STRmid(最新,6,4);
查上年:STRFIND(表头,上年,表头定位),LINETHICK0;
{通用计算};
za:=a1;//{对应项目可变数a2\a3..... F10FIND拒绝接受变数及数组,只能在此人为变化}   
zt1:=F10TEXT(F10FIND(za,f1) ,68);
zd1:STRFIND(zt1,'.',10)-9,LINETHICK0;
zt2:=STRTONUM(STRmid(zt1,zd1,12));
zd2:STRFIND(zt1,'.',查上年)-9,LINETHICK0;
zt3:=STRTONUM(STRmid(zt1,zd2,12));
计算:=NUMTOSTR(if(查上年>0,((zt2-zt3)/abs(zt3))*100,-1000),2);
DRAWTEXT(BARPOS=SYSPARAM(2),2,za+'--同期比增涨: '+计算+'(%)');
DRAWTEXT(BARPOS=SYSPARAM(2),1.5,表头),colorffffff;
DRAWTEXT(BARPOS=SYSPARAM(2),1,zt1),colorffffff;
DRAWTEXT(BARPOS=SYSPARAM(2),0.5,'   校核 最新:'+最新 +STRmid(zt1,zd1,12)+'  上年 '+上年+ '  '+STRmid(zt1,zd2,12)),colorffffff;
0;

大智慧与分析家略有不同,主楼已修改说明

引用:

原帖由 stockm618 于 2007-3-3 22:16 发表
飞狐用(可用,需自己修改,本人不太熟悉)
VARIABLE:nn=15;
主题:= '◆ 财务透视 ◆'; 主题二:='二、财务透视';//{适用与万国测评制作.分段资料与原总资料有不同}
f0:F10FIND(主题,1)+F10FIND(主题二,1)+1,LINETH ...

谢谢提供分享

谢谢分享

谢谢分享

请教楼主，不知如何新建TXT文件，下面两句应如何具体操作，因未做过，特此再求指教！谢谢！
copy fxj\DATA\SH\Base\*.002 fxj\DATA\SH\Base\*.txt
copy fxj\DATA\Sz\Base\*.002 fxj\DATA\Sz\Base\*.txt

谢谢分享

谢谢分享

引用:

原帖由 jsw945 于 2007-3-9 15:47 发表
请教楼主，不知如何新建TXT文件，下面两句应如何具体操作，因未做过，特此再求指教！谢谢！
copy fxj\DATA\SH\Base\*.002 fxj\DATA\SH\Base\*.txt
copy fxj\DATA\Sz\Base\*.002 fxj\DATA\Sz\Base\*.txt

提取财务资料的说明及F10资料来源:
1、新建以下内容的TXT文件,文件更名为:F10-TXT.bat,双击;
2、X:---为分析家或大智慧2的安装的盘符  (大智慧2将以下FXJ 改为dzh2)
3、F10资料的分段文件---财务资料 *.002 转为提取财务资料的TXT文件(用需要的部分可减少查找的时间).

即:在新建的--------新建 文本文档.txt   (见图)   中写入以下语句后------更名------双击

cd\
X:
copy fxj\DATA\SH\Base\*.002 fxj\DATA\SH\Base\*.txt
copy fxj\DATA\Sz\Base\*.002 fxj\DATA\Sz\Base\*.txt

估计飞狐同样有类似的做法
适当修改可提取不同时期的数据.数据提取后,进行动态排序,再将表复制到EXSL电子表格,整理后再引入到自定义数据,自行整理更多的数据.
注意更换主题
主题:= '◆ 财务透视 ◆'; 主题二:='二、财务透视';
等位置,应在同一表格的表头下提取数据,避免表头时间有可能有不同的情况

谢谢,辛苦了!

谢谢分享

谢谢分享

厉害，谢谢

相当棒，万分感谢。受益良多