如何从现有MT4指标代码导出到CSV文件

时间:2014-12-02 03:42:41

标签: csv mql4 mt4

我想将结果导出为CSV文件。 这是来自MT4的iExposure指标(iExposure.mq4)。 目前,我现在知道如何将值导出为CSV

这是我尝试使用的代码,可以导出为CSV。

int h1;
h1 = FileOpen("data3.csv", FILE_CSV | FILE_WRITE | FILE_READ, ',');
FileSeek( ExtSymbolsSummaries[i][DEALS]=0, ExtSymbolsSummaries[i],

 [BUY_PRICE]=0,ExtSymbolsSummaries[i][SELL_LOTS]=0 ,ExtSymbolsSummaries[i]  
[SELL_PRICE]=0,ExtSymbolsSummaries[i][NET_LOTS]=0, ExtSymbolsSummaries[i][PROFIT]=0, SEEK_END);
FileWrite(h1, Symbols[i]=SymbolName, ExtSymbolsSummaries[i][DEALS]=0, ExtSymbolsSummaries[i]
[BUY_PRICE]=0,ExtSymbolsSummaries[i][SELL_LOTS]=0 ,ExtSymbolsSummaries[i]  
[SELL_PRICE]=0,ExtSymbolsSummaries[i][NET_LOTS]=0, ExtSymbolsSummaries[i][PROFIT]=0 );
FileClose(h1)

这是原始代码:

     //+------------------------------------------------------------------+
//|                                                    iExposure.mq4 |
//|                      Copyright © 2007, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2007, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net"

#property indicator_separate_window
#property indicator_buffers 1
#property indicator_minimum 0.0
#property indicator_maximum 0.1

#define SYMBOLS_MAX 1024
#define DEALS          0
#define BUY_LOTS       1
#define BUY_PRICE      2
#define SELL_LOTS      3
#define SELL_PRICE     4
#define NET_LOTS       5
#define PROFIT         6

extern color ExtColor=LightSeaGreen;

string ExtName="Exposure";
string ExtSymbols[SYMBOLS_MAX];
int    ExtSymbolsTotal=0;
double ExtSymbolsSummaries[SYMBOLS_MAX][7];
int    ExtLines=-1;
string ExtCols[8]={"Symbol",
                   "Deals",
                   "Buy lots",
                   "Buy price",
                   "Sell lots",
                   "Sell price",
                   "Net lots",
                   "Profit"};
int    ExtShifts[8]={ 10, 80, 130, 180, 260, 310, 390, 460 };
int    ExtVertShift=14;
double ExtMapBuffer[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
void init()
  {
    IndicatorShortName(ExtName);
   SetIndexBuffer(0,ExtMapBuffer);
   SetIndexStyle(0,DRAW_NONE);
   IndicatorDigits(0);
    SetIndexEmptyValue(0,0.0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void deinit()
  {
   int windex=WindowFind(ExtName);
   if(windex>0) ObjectsDeleteAll(windex);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
void start()
  {
   string name;
   int    i,col,line,windex=WindowFind(ExtName);
//----
   if(windex<0) return;
//---- header line
   if(ExtLines<0)
     {
      for(col=0; col<8; col++)
        {
         name="Head_"+col;
         if(ObjectCreate(name,OBJ_LABEL,windex,0,0))
           {
            ObjectSet(name,OBJPROP_XDISTANCE,ExtShifts[col]);
            ObjectSet(name,OBJPROP_YDISTANCE,ExtVertShift);
            ObjectSetText(name,ExtCols[col],9,"Arial",ExtColor);
           }
        }
      ExtLines=0;
     }
//----
   ArrayInitialize(ExtSymbolsSummaries,0.0);
   int total=Analyze();
   if(total>0)
     {
      line=0;
      for(i=0; i<ExtSymbolsTotal; i++)
        {
         if(ExtSymbolsSummaries[i][DEALS]<=0) continue;
         line++;
         //---- add line
         if(line>ExtLines)
           {
            int y_dist=ExtVertShift*(line+1)+1;
            for(col=0; col<8; col++)
              {
               name="Line_"+line+"_"+col;
               if(ObjectCreate(name,OBJ_LABEL,windex,0,0))
                 {
                  ObjectSet(name,OBJPROP_XDISTANCE,ExtShifts[col]);
                  ObjectSet(name,OBJPROP_YDISTANCE,y_dist);
                 }
              }
            ExtLines++;
           }
         //---- set line
         int    digits=MarketInfo(ExtSymbols[i],MODE_DIGITS);
         double buy_lots=ExtSymbolsSummaries[i][BUY_LOTS];
         double sell_lots=ExtSymbolsSummaries[i][SELL_LOTS];
         double buy_price=0.0;
         double sell_price=0.0;
         if(buy_lots!=0)  buy_price=ExtSymbolsSummaries[i][BUY_PRICE]/buy_lots;
         if(sell_lots!=0) sell_price=ExtSymbolsSummaries[i][SELL_PRICE]/sell_lots;
         name="Line_"+line+"_0";
         ObjectSetText(name,ExtSymbols[i],9,"Arial",ExtColor);
         name="Line_"+line+"_1";
         ObjectSetText(name,DoubleToStr(ExtSymbolsSummaries[i][DEALS],0),9,"Arial",ExtColor);
         name="Line_"+line+"_2";
         ObjectSetText(name,DoubleToStr(buy_lots,2),9,"Arial",ExtColor);
         name="Line_"+line+"_3";
         ObjectSetText(name,DoubleToStr(buy_price,digits),9,"Arial",ExtColor);
         name="Line_"+line+"_4";
         ObjectSetText(name,DoubleToStr(sell_lots,2),9,"Arial",ExtColor);
         name="Line_"+line+"_5";
         ObjectSetText(name,DoubleToStr(sell_price,digits),9,"Arial",ExtColor);
         name="Line_"+line+"_6";
         ObjectSetText(name,DoubleToStr(buy_lots-sell_lots,2),9,"Arial",ExtColor);
         name="Line_"+line+"_7";
         ObjectSetText(name,DoubleToStr(ExtSymbolsSummaries[i][PROFIT],2),9,"Arial",ExtColor);
        }
     }
//---- remove lines
   if(total<ExtLines)
     {
      for(line=ExtLines; line>total; line--)
        {
         name="Line_"+line+"_0                                    ";
         ObjectSetText(name,"");
         name="Line_"+line+"_1";
         ObjectSetText(name,"");
         name="Line_"+line+"_2";
         ObjectSetText(name,"");
         name="Line_"+line+"_3";
         ObjectSetText(name,"");
         name="Line_"+line+"_4";
         ObjectSetText(name,"");
         name="Line_"+line+"_5";
         ObjectSetText(name,"");
         name="Line_"+line+"_6";
         ObjectSetText(name,"","                       ");
         name="Line_"+line+"_7";
         ObjectSetText(name,"","                           ");
        }
     }
//---- to avoid minimum==maximum
   ExtMapBuffer[Bars-1]=-1;
//----
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Analyze()
  {
   double profit;
   int    i,index,type,total=OrdersTotal();
//----
   for(i=0; i<total; i++)
     {
      if(!OrderSelect(i,SELECT_BY_POS)) continue;
      type=OrderType();
      if(type!=OP_BUY && type!=OP_SELL) continue;
      index=SymbolsIndex(OrderSymbol());
      if(index<0 || index>=SYMBOLS_MAX) continue;
      //----
      ExtSymbolsSummaries[index][DEALS]++;
      profit=OrderProfit()+OrderCommission()+OrderSwap();
      ExtSymbolsSummaries[index][PROFIT]+=profit;
      if(type==OP_BUY)
        {
         ExtSymbolsSummaries[index][BUY_LOTS]+=OrderLots();
         ExtSymbolsSummaries[index][BUY_PRICE]+=OrderOpenPrice()*OrderLots();
        }
      else
        {
         ExtSymbolsSummaries[index][SELL_LOTS]+=OrderLots();
         ExtSymbolsSummaries[index][SELL_PRICE]+=OrderOpenPrice()*OrderLots();
        }
     }
//----
   total=0;
   for(i=0; i<ExtSymbolsTotal; i++)
     {
      if(ExtSymbolsSummaries[i][DEALS]>0) total++;
     }
//----
   return(total);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int SymbolsIndex(string SymbolName)
  {
   bool found=false;
//----
   for(int i=0; i<ExtSymbolsTotal; i++)
     {
      if(SymbolName==ExtSymbols[i])
        {
         found=true;
         break;
        }
     }
//----
   if(found) return(i);
   if(ExtSymbolsTotal>=SYMBOLS_MAX) return(-1);
//----
   i=ExtSymbolsTotal;
   ExtSymbolsTotal++;
   ExtSymbols[i]=SymbolName;
   ExtSymbolsSummaries[i][DEALS]=0;
   ExtSymbolsSummaries[i][BUY_LOTS]=0;
   ExtSymbolsSummaries[i][BUY_PRICE]=0;
   ExtSymbolsSummaries[i][SELL_LOTS]=0;
   ExtSymbolsSummaries[i][SELL_PRICE]=0;
   ExtSymbolsSummaries[i][NET_LOTS]=0;
   ExtSymbolsSummaries[i][PROFIT]=0;




//----
   return(i);
  }



//+------------------------------------------------------------------+

代码结束

1 个答案:

答案 0 :(得分:1)

CSV输出示例:

对于这个例子,我将描述一种实现以下目的的方法:

  1. 为文件夹和CSV文件名添加输入字符串。
  2. 创建一个用于生成CSV的按钮。
  3. 监听事件,以便我们可以检测按钮被点击的时间。
  4. 解析对象列表,并将对象的名称和描述写入CSV文件。
  5. 注意:如果您无法完成第2步,请跳至第3步,查看OnChartEvent()中的代码,然后根据您要编写CSV的时间对其进行自定义文件。但是,请注意,如果每次OnCalculate()事件发生时都在编写文件,那么将会进行大量的文件编写。

    由于默认情况下iExposure.mq4可用(至少对于版本:4.0 Build 765),我们首先创建原始副本。我将我的例子命名为iExposureTest。

    第1步:为我们的文件夹和CSV文件添加输入字符串。

    这是我们最简单的步骤之一,只需添加文件夹和CSV文件的输入字符串即可。我将这些添加到另一个输入变量旁边。

    //Step 1
    input string  InputFileName="iExposure.csv";      // File name
    input string  InputDirectoryName="Data";     // Folder name
    

    第2步:创建CSV按钮。

    包含ChartObjectPanel.mqh的标头。我选择将我的include行直接放在输入变量之上。

    //Part of Step 2
    #include <ChartObjects\ChartObjectPanel.mqh>
    

    这为我们提供了创建CChartObjectButton类型的权限,我们需要访问此示例的按钮Globally,因此请在OnInit()之前添加下一行代码。

    //Part of Step 2
    CChartObjectButton CSVButton;
    

    我们有一个CChartObjectButton的按钮类型,但它尚未实例化。让我们使用我们从OnInit()调用的函数来做到这一点。

    OnInit()内,添加以下内容:

    //Part of Step 2
    CreateCSVButton(0);
    

    现在我们需要实际的功能,所以在指标代码的末尾让我们接下来添加这个功能。

    //Part of Step 2
    bool CreateCSVButton(const long chart_ID=0)
    { 
         //--- reset the error value
         ResetLastError();
    
         //--- set property values
         if(!CSVButton.Create(0,"CSVButton",0,10,25,75,15))
         {
             //--- display the error message in Experts journal
             Print(__FUNCTION__+", Error Code = ",GetLastError());
             return(false);
         }
    
         CSVButton.Description("CSV");
    
         CSVButton.FontSize(10);
         CSVButton.Corner(CORNER_LEFT_LOWER);
         CSVButton.Anchor(ANCHOR_CENTER);
    
         CSVButton.State(false);
    
         return true;
    } 
    

    此时,当我们编译时,窗口上应该有一个CSV按钮。这主要是创建的,因此我们可以通过点击生成CSV。它看起来应该与下图相似。

    CSV Button

    如果你有CSV按钮,那么我们就完成了第2步。

    第3步:收听事件并捕获单击CSV按钮。

    我们可以使用内置的OnChartEvent()捕获我们需要的事件。

    在我们的OnChartEvent()中,我们正在检查事件是否为CHARTEVENT_OBJECT_CLICK事件,如果sparam等于我们的CSVButton且按钮状态为真,我们会我们的文件工作。

    另外,请注意我们调用的函数WriteCSVObjects尚未存在,我们将file_handle传递给了 //step 3 void OnChartEvent(const int id, const long &lparam, const double &dparam, const string &sparam) { if(id==CHARTEVENT_OBJECT_CLICK) { if (sparam=="CSVButton") { if(CSVButton.State() == true) { ResetLastError(); int file_handle=FileOpen(InputDirectoryName+"//"+InputFileName,FILE_READ|FILE_WRITE|FILE_CSV); if(file_handle!=INVALID_HANDLE) { PrintFormat("%s file is available for writing",InputFileName); PrintFormat("File path: %s\\Files\\",TerminalInfoString(TERMINAL_DATA_PATH)); //Call Step 4 WriteCSVObjects(file_handle); //--- close the file FileClose(file_handle); PrintFormat("Data is written, %s file is closed",InputFileName); } else { PrintFormat("Failed to open %s file, Error code = %d",InputFileName,GetLastError()); } } ChartRedraw(); } } } 。我们将在第4步中创建它。

      //Step 4
      void WriteCSVObjects(int file_hand)
      {
         int obj_total=ObjectsTotal();
         string name;
         string desc;
    
         for(int i=obj_total;i>=0;i--)
          {
            name = ObjectName(i);
            desc = ObjectDescription(name);
    
            if(name == "")
            {
             name = "Empty Name";
            }
    
            if(desc == "")
            {
             desc = "Empty Desc";
            }
            FileWrite(file_hand, name + "," + desc);    
          }
      }
    

    第4步:解析“对象”列表,并将名称和说明写入CSV。

    几乎就在那里!这是解决问题的最后一部分。将此函数添加到我们的代码示例的末尾。

    Files//Data//iExposure.csv

    在上面的函数中,请注意我们循环对象并写出每个对象的名称和描述。输出和对象的顺序可能与您的目标不同,因此请相应地进行修改。

    此时,当我们编译并单击CSV按钮时,它应该为存储在{{1}}的CSV文件生成值。