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不含任何恶意代码，但使用风险自担。 二、下载：点击这里下载(近100KB)。
三、安装方法：
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文件也很简单
扫一扫
1757
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
