以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  如何用文本记录下单日志  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=66627)
--  作者：QQ56048933
--  发布时间：2014/6/26 9:55:03
--  如何用文本记录下单日志
//图表日内交易模块:
 
  IF HOLDING=0 THEN BEGIN 
     //多头开仓 
     IF  开多 THEN BEGIN 
         BUY(1,P,LIMITR,CLOSE); 
         MAXPROFIT:=0; 
        //DEBUGFILE()
     END 
      
     //空头开仓 
     IF  开空 THEN BEGIN 
         BUYSHORT(1,P,LIMITR,CLOSE); 
         MAXPROFIT:=0; 
           // DEBUGFILE()
     END 
 END 
 
 IF HOLDING>0 THEN BEGIN 
     //多头平仓 
     IF 平多 THEN 
         SELL(1,HOLDING,LIMITR,CLOSE); 
 END 

 IF HOLDING<0 AND 平空 THEN BEGIN
 SELLSHORT(1,P,LIMITR,CLOSE);
 END
我想用  DEBUGFILE()函数把 下单的品种  方向 数量 输出到文本  怎么办呢
--  作者：yukizzc
--  发布时间：2014/6/26 10:14:03
--  
debugfile(\'D:\\test.txt\',\'开多\'&STKLABEL&\'数量为%.0f\',P)                                //放到开多语句后面
--  作者：QQ56048933
--  发布时间：2014/6/26 10:39:10
--  
谢谢  我输出成为这样
2014-06-26 10:33:29.540    IF07卖出价格2144
2014-06-26 10:33:29.541   开数量1
我用两行才能写出数量  上面的价格是CLOSE 怎么养才能够写到一行。 最好 合约代码和 方向之间有个空格 怎么办
--  作者：QQ56048933
--  发布时间：2014/6/26 10:41:04
--  
还有时间 出到秒就可以了 后面的不必要
--  作者：yukizzc
--  发布时间：2014/6/26 11:01:19
--  
debugfile(\'D:\\66666.txt\',STKLABEL&\'  \'&\'开多\'&\'数量为\'&NUMTOSTR(P,0)&\'价格为%.2f\',close)                //用&输出多个字符串做到      
--  作者：王锋
--  发布时间：2014/6/26 12:01:33
--  

方向:=\'\';

 

IF HOLDING=0 THEN BEGIN 

     //多头开仓 
     IF  开多 THEN BEGIN 
         BUY(1,P,LIMITR,CLOSE); 
         方向:=\'买\';
         MAXPROFIT:=0; 
        IF Islastbar Then
            DEBUGFILE2(\'D:\\TESTMO.TXT\',STKLABEL&\' \'&方向&\' \'&NUMTOSTR(P,0),0);
     END 
      
     //空头开仓 
     IF  开空 THEN BEGIN 
         BUYSHORT(1,P,LIMITR,CLOSE); 
         方向:=\'卖\';
         MAXPROFIT:=0; 
        IF Islastbar Then
             DEBUGFILE2(\'D:\\TESTMO.TXT\',STKLABEL&\' \'&方向&\' \'&NUMTOSTR(P,0),0);
     END 
 END 
 
 IF HOLDING>0 THEN BEGIN 
     //多头平仓 
     IF 平多 THEN 
         SELL(1,HOLDING,LIMITR,CLOSE); 
 END 

 IF HOLDING<0 AND 平空 THEN BEGIN
 SELLSHORT(1,P,LIMITR,CLOSE);
 END
[此贴子已经被作者于2014/6/26 12:02:58编辑过]
--  作者：QQ56048933
--  发布时间：2014/6/26 16:16:26
--  
谢谢 内容已经解决但是，时间还是 有秒之后的内容  怎么写到秒就好了
--  作者：王锋
--  发布时间：2014/6/26 16:32:38
--  

时间还是 有秒之后的内容  怎么写到秒就好了

这句话我们不明白
--  作者：QQ56048933
--  发布时间：2014/6/26 23:22:49
--  
就是 秒之后还有毫秒 这个不是问题了 ，这样 所有的日志都保存到一个文本里去了，怎么样可以每天的交易单独成为一个文本呢，就是以日期命名的文本
--  作者：yukizzc
--  发布时间：2014/6/27 9:02:20
--  

aa:NUMTOSTR( date, 0);

debugfile(\'D:\\\'&aa&\'.txt\',STKLABEL&\'  \'&\'开多\'&\'数量为\'&NUMTOSTR(P,0)&\'价格为%.2f\',close)；     //输出文件的路径这里用date的字符串形式替换