主题：取实盘数据

请问老师：

如何用DEBUGFILE做实盘成交数据的输出？

每次开平仓一次就输出一次成交价

 

if HOLDING>0 then
DEBUGOUT("开仓价",ENTERPRICE);
if HOLDING<0 then
DEBUGOUT( "平仓价",EXITPRICE );

if short then 
      buy(1,1,limitr,dnprice);

      DEBUGOUT("成交额",AMOUNT);

   end

这样应该不行吧

麻烦再问一下：

if myholding<0 then
DEBUGFILE('D:\TEST.TXT','平仓价',EXITPRICE);

如何在后台高频的情况下，在当根K下只输出一次出值？

因为我只需要取一次平仓价就可以了。

而这样的话在后台的高频下会出现

2011-05-27 15:39:31.015    平仓价
2011-05-27 15:39:41.015    平仓价
2011-05-27 15:39:41.843    平仓价
2011-05-27 15:39:42.843    平仓价
2011-05-27 15:39:43.843    平仓价
2011-05-27 15:39:44.843    平仓价
2011-05-27 15:39:45.843    平仓价
2011-05-27 15:39:46.843    平仓价
2011-05-27 15:39:48.843    平仓价
2011-05-27 15:39:49.843    平仓价
2011-05-27 15:39:51.843    平仓价

这样的话就当当在一分钟周期里就会有近百次的输出。

请问老师这个怎么解决？

再试试这个 上一次交易的成交价

t:TYPE(1);
if t=1 or t=3 then
DEBUGOUT("开仓价",ENTERPRICE);
if t=2 or t=4 then
DEBUGOUT( "平仓价",EXITPRICE );

if 开空 then
DEBUGFILE('D:\TEST.TXT','开空',ENTERPRICE);

if 开多 then
DEBUGFILE('D:\TEST.TXT','开多',ENTERPRICE);

if 平空 then
DEBUGFILE('D:\TEST.TXT','平空',EXITPRICE);

if 平多 then
DEBUGFILE('D:\TEST.TXT','平多',EXITPRICE);

 

请问老师这样能否行呢？

使用DEBUGFILE比较困难,最好方法是用VBA

使用VBA，可以参考我发的VBA缠论交易系统，在策略发布区，固顶的贴子。

 

VBA我不会编写啊。只能用DEBUGFILE来试试看

http://www.weistock.com/bbs/dispbbs.asp?BoardID=4&ID=390&replyID=&skin=1

 

参考这个