您好,欢迎光临本网站![请登录][注册会员]  
文件名称: FMLDATA的源码
  所属分类: C++
  开发工具:
  文件大小: 9kb
  下载次数: 0
  上传时间: 2014-06-02
  提 供 者: u0147*****
 详细说明: DZH/FXJ引用外部数据的DLL公式FMLDATA.DLL(DZH/FXJ引用外部数据的DLL公式)免费下载 一、DLL主要功能: 适用平台: 大智慧新一代V2.0(仅支持以分析家为内核的DZH版本,不支持DZH经典版本)、分析家(在V6.0上测试通过,在其它版本用应该也没问题) ,以下简称DZH。 主要功能: 1)在DZH公式中读取外部数据(这里称为FMLDATA文件数据,该数据文件格式见下文)。例如,要在DZH公式中读入第三方的数据并与DZH其它数据一起进行分析,我们可以首先将数据写入FMLDATA文件,然后在DZH公式中象引用DZH本身直接引用。 2)将DZH序列数据写入外部文件。例如,我们要将DZH现有数据或者自己编写的公式的计算结果导出来,在EXCEL等外部软件进一步处理。(与FinDataTools工具的区别是:FMLDATA.DLL导出的是DZH原始数据或公式计算结果,而FinDataTools直接从DZH/FXJ读取数据。) 适用对象:需要读取自己定制的外部数据而又不想自己用C/C++写接口的DZH/FXJ用户。 声明:本DLL不含任何恶意代码,但使用风险自担。 二、下载:点击这里下载(近100 KB)。 三、安装方法: 1、下载后用WINRAR解压得到FMLDATA.DLL和FMLDATA.TXT两个文件。 2、将FMLDATA.DLL复制到DZH2安装目录,一般为c:\dzh2。如果是FXJ一般为c:\superstk等. 3、在DZH安装目录下建立一个名为FMLDATA的文件夹,如c:\dzh2\fmldata(这一步是必须的,否则无法使用)。DLL公式读取或写入的数据都在这个文件夹。 至此,安装完成,下面就是如何使用了。 四、使用方法: FMLDATA.DLL提供了两个公式/函数,一个用于写数据,一个用于读数据。 (一)写数据: 写数据的公式为: "FMLDATA@WRITE"(X,N) 第一个参数X是个序列(指标),可以是CLOSE、OPEN等,也可以是公式中的中间计算结果,要求序列值在浮点型值范围之内,一般在正负20亿之间,如果不在该范围之内,建议改变单位;第二个参数N是个数值,表示序列编号,例如我们把CLOSE保存为第4个序列,N为4。 将数据保存为外部文件时,根据当前股票代码、序列编号、分析周期这三个信息在fmldata文件夹生成形式为“XXXXXX.N.YYY”的文件。其中, XXXXXX为股票代码,如深发展为000001等,由于沪市指数代码与深市股票代码重复,所以沪市指数代码在原代码前加1,例如上证综指为000001,则这里的XXXXXX为1000001(7位);N是编号,由用户自己指定,应为大于0的整数;YYY为分析周期,如果是日线数据,则YYY=DAY,分笔、1分钟、5分钟、15分钟、30分钟、60分钟、周、月、多日、季度、半年、年的值分别为TICK、MIN1、MIN5、MIN15、MIN30、MIN60、WEEK、MONTH、NDAYS、QUARTER、SEMIYEAR、YEAR。 举例: 例1、将收盘价写入到外部文件 新建一公式,设名为TESTW,输入 V1:"FMLDATA@WRITE"(C,4); ,在深发展(000001)日K线状态下,键入TESTW,在指标区查看公式TESTW结果的同时,将在FMLDATA目录生成一个名为000001.4.DAY的二进制文件(这个文件如何在其它软件中使用见下文),如果同名文件已经存在,将覆盖。如果我们键入000002,切换到万科日K线,将生成名为000002.4.DAY的文件;如果切换到上证指数,则生成1000001.4.DAY文件。 注意:如果是DZH,写数据时请将光标移至最后一根K线,否则只保存光标之前的数据,FXJ好象没有这个问题。光标一动,数据就重新写入一次。 例2、将收益率保存到外部文件 建一公式: A:=C/REF(C,1)-1; B:"FMLDATA@WRITE"(A,101); 请在还权状态下使用该公式。如果处于000001的日K线图,则生成000001.101.DAY。 例3、将周收益率保存到外部文件在例2基础上,将“分析周期”改为“周线图”,则周收益率保存到000001.101.WEEK文件。 例4、将沪市A股所有股票的收盘价、成交量保存到外部文件 建一名为TESTCV公式: A:"FMLDATA@WRITE"(C,4); B:"FMLDATA@WRITE"(V/10000,5); 保存后。选择“条件选股”,选股指标选择“TESTCV”,分析周期选“日线”,选中“使用除权后数据”,指标线选“B”,条件选“大于0”,选股范围选择“上证A股”,执行选股,将生成600000.4.DAY、600000.5.DAY、600001.4.DAY、600001.5.DAY等等,*.4.DAY保存的是收盘价,*.5.DAY保存的是以万手为单位的成交量。 (二)读数据: 读数据的公式为 "[email=FMLDATA@READ]FMLDATA@READ"(M,N[/email])" 第一个参数M是个数值,可以是0或者数值型股票代码,如果M=0,读取当前股票代码的数据,如果为股票代码,则读取该股票的数据,前提是对应的文件已经存在!;第二个参数也是个数据,含义同"[email=FMLDATA@WRITE]FMLDATA@WRITE"(X,N[/email])"中的N,表示要读取哪个序列的数值。 例5、读入当前股票的某个外部序列数据 公式为V1: "[email=FMLDATA@READ]FMLDATA@READ"(0,4[/email]);如果当前股票为000001则读入指标编号为4的数据,如果当前股票为600000,则从600000.4.DAY读取序列编号为4的数据。 例6、读入指定代码的某个外部序列数据 公式为V1: "[email=FMLDATA@READ]FMLDATA@READ"(1000001,4[/email]);如果当前股票为000001则读入上证指数的指标编号为4的数据,如果当前股票为600000,也是读入上证指数的指标编号为4的数据。 例7、计算两个代码的序列数据之差 X:"[email=FMLDATA@READ]FMLDATA@READ"(0,5438)-"FMLDATA@READ"(1000001,5438[/email]); .... 上面例子将DZH数据写入外部文件然后再读入,这只是举例,并不是写FMLDATA.DLL的真正目的。FMLDATA.DL公式主要用于读取DZH所没有的第三方数据或者DZH公式不适合处理的数据。例如,我们将分笔数据进行复杂的处理,然后每日生成一个指标,保存在*.12345.DAY中供DZH调用。 下面简单介绍一下如何将数据写入这些文件。 (三)文件格式约定 文件是很简单的二进制格式文件,一个文件由多个记录组成,每个记录两个字段,第一个字段为DZH时间,为INT型,保存的是与1970-1-1 00:00:00间隔秒数,第二个字段为指标/序列值,为Float型,保存具体数值,注意Float型的数据范围!文件要求每个记录的时间由小到大顺序排列。 例如,文件中有8条记录: 1174435200 0.05 1174521600 0.003 1174608000 -0.029 1174867200 -0.011 1174953600 - 0.009 1175040000 0.005 1175126400 0.004 1175212800 -0.015 第一列是日期/时间,第二列是数值,把第一列转换一下可得: 2007-03-21 0.05 2007-03-22 0.003 2007-03-23 -0.029 2007-03-26 -0.011 2007-03-27 -0.009 2007-03-28 0.005 2007-03-29 0.004 2007-03-30 -0.015 其中,1175212800 是2007-3-30 0:0:0与1970-1-1 0:0:0间隔的秒数,etc...。 (四)读写FMLDATA文件 了解了文件结构后,可以用各种语言如C/C++、C#、VB、VBA、JAVA、SAS、…………………………等读写文件。 1、用VBA将EXCEL工作表数据写入FMLDATA文件: Sub exceldata2fmldata() '将EXCEL工作表数据写入FMLDATA文件 Dim sht As Worksheet, fmldataPath As String, fileName As String Dim i As Integer, FileNumber Dim dzhrq As Long, value As Single 'DZH时间,指标值(VBA的Long,Single为32位) Dim dt As Date Set sht = ThisWorkbook.Worksheets("sheet1") '假设要写入的数据在sheet1 fmldataPath = "d:\dzh2\fmldata\" 'FMLDATA所在路径 fileName = "000001.12345.day" '文件名 FileNumber = FreeFile Open fmldataPath & fileName For Binary Access Write As #FileNumber '以写方式打开文件 i = 2 '设数据从第二行开始;第1列为日期,第2列为指标值 dt = sht.Cells(i, 1) '取出日期 Do While IsDate(dt) And dt <> TimeSerial(0, 0, 0) dzhrq = DateDiff("s", DateSerial(1970, 1, 1), dt) '转为DZH日期:与1970.1.1间隔秒数 Put #FileNumber, , dzhrq value = sht.Cells(i, 2) '取出指标值 Put #FileNumber, , value i = i + 1 dt = sht.Cells(i, 1) '取出日期 Loop Close #FileNumber '关闭文件 End Sub 2、用VBA将FMLDATA文件读入EXCEL: Sub fmldata2excel() '将FMLDATA文件读入EXCEL工作表 Dim sht As Worksheet, fmldataPath As String, fileName As String Dim i As Integer, FileNumber Dim dzhrq As Long, value As Single 'DZH时间,指标值(VBA的Long,Single为32位) Dim dt As Date Set sht = ThisWorkbook.Worksheets("sheet1") '假设数据保存到sheet1 fmldataPath = "d:\dzh2\fmldata\" 'FMLDATA所在路径 fileName = "000001.12345.day" '文件名 FileNumber = FreeFile Open fmldataPath & fileName For Binary As #FileNumber '打开文件 Get #FileNumber, , dzhrq sht.Cells(1, 1) = "日期" sht.Cells(1, 2) = "值" i = 2 Do While dzhrq <> 0 dt = DateAdd("s", dzhrq, DateSerial(1970, 1, 1)) '转换为EXCEL日期 sht.Cells(i, 1) = dt '日期 Get #FileNumber, , value sht.Cells(i, 2) = value '指标值 Get #FileNumber, , dzhrq i = i + 1 Loop Close #FileNumber '关闭文件 End Sub 3、将SAS数据表写入FMLDATA文件 %macro sasdata2fmldata(dzhpath,code,var,datatype,srcTable); filename fmlfile "&dzhpath.fmldata\&code..&var..&datatype"; data tt; set &srcTable; dzhrq=(rq - (MDY(1,1,1970)-MDY(1,1,1960)))*86400; file fmlfile recfm=f lrecl=8; put dzhrq ib4. value float4.; run; filename fmlfile; %mend sasdata2fmldata; /*假设有一work.t表含有rq,value字段,value是000001的某一指标的计算结果*/ %sasdata2fmldata(C:\DZH2\,000001,5555,DAY,work.t); 4、用SAS读取FMLDATA文件 %macro fmldata2sasdata(dzhpath,code,var,datatype,descTable); %let datatype=%lowcase(&datatype); filename fmlfile "&dzhpath.fmldata\&code..&var..&datatype"; data &desctable; format dm $12. rq dzhrq value; infile fmlfile recfm=f lrecl=8; input dzhrq ib4. value float4.; dm="&code"; %if %sysfunc(index(/day/ndays/week/month/quarter/semiyear/year,&datatype))>0 %then %do; rq = dzhrq/86400 + (MDY(1,1,1970)-MDY(1,1,1960)); attrib rq format=yymmdd10.; %end; %else %do; rq = dzhrq + (dhms(MDY(1,1,1970),0,0,0)-dhms(MDY(1,1,1960),0,0,0) ); attrib rq format=datetime.; %end; value=round(value,0.001); run; filename fmlfile; %mend fmldata2sasdata; %fmldata2sasdata(C:\DZH2\,000001,5438,DAY,work.t);/*参数分别为:DZH安装目录,股票代码,序列编号,分析周期,目标表*/ 5、用其它语言操作FMLDATA文件也很简单 ...展开收缩
(系统自动生成,下载前可以参看下载内容)

下载文件列表

相关说明

  • 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
  • 本站是交换下载平台,提供交流渠道,下载内容来自于网络,除下载问题外,其它问题请自行百度
  • 本站已设置防盗链,请勿用迅雷、QQ旋风等多线程下载软件下载资源,下载后用WinRAR最新版进行解压.
  • 如果您发现内容无法下载,请稍后再次尝试;或者到消费记录里找到下载记录反馈给我们.
  • 下载后发现下载的内容跟说明不相乎,请到消费记录里找到下载记录反馈给我们,经确认后退回积分.
  • 如下载前有疑问,可以通过点击"提供者"的名字,查看对方的联系方式,联系对方咨询.
 相关搜索: FMLDATA 大智慧接口 dll
 输入关键字,在本站1000多万海量源码库中尽情搜索: