//+------------------------------------------------------------------+
//|                           Exporte un cour pour carry trading.mq4 |
//|                                                               LM |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "LM"
#property link      "https://www.mql5.com"
#property version   "1.00"
#property strict

// #include "..\include\calculs_LM.mq4";

void OnStart()
  {
//---
  // Sleep(1900);
  //  Ajuter Bid Ask Jours Boucle
  string rep = "d:\\_mt4_data\\" ; // ne fonctionne pas
  string symb;
  string ligne;
  int i,k; //j
  int t[9]={PERIOD_M1,PERIOD_M5,PERIOD_M15,PERIOD_M30,PERIOD_H1,PERIOD_H4,PERIOD_D1,PERIOD_W1,PERIOD_MN1};
  string per[9]={"_M1","_M5","_M15","_M30","_H1","_H4","_D1","_W1","_MN1"};

 // for(j=0;j<SymbolsTotal(false);j++)    {
 //     symb= SymbolName(j,false); 
  symb="EURTRI";
      //for(k=0;k<9;k++)         {
          //MessageBox(t[k],per[k]);
          //string fichier = rep+symb+".txt"; ne marche pas
        k=0;
        string fichier =symb+per[k]+".txt";
        ResetLastError(); 
        int file_handle=FileOpen(fichier,FILE_READ|FILE_WRITE|FILE_TXT," "); 
        if(file_handle!=INVALID_HANDLE) 
           { 
           ligne= DoubleToString(MarketInfo(symb,MODE_BID))+" " 
             +DoubleToString(MarketInfo(symb,MODE_ASK))+" " 
             +DoubleToString(MarketInfo(symb,MODE_POINT))+" "
             +DoubleToString(MarketInfo(symb,MODE_DIGITS))+" "
             +DoubleToString(MarketInfo(symb,MODE_SPREAD))+" "
             +DoubleToString(MarketInfo(symb,MODE_TICKSIZE))+" "
             +DoubleToString(MarketInfo(symb,MODE_TICKVALUE))+" "
             +DoubleToString(MarketInfo(symb,MODE_LOTSIZE))+" "
             +DoubleToString(MarketInfo(symb,MODE_LOTSTEP))+" "
             +DoubleToString(AccountLeverage()); 
                    
            FileWrite(file_handle,"Bid         Ask         Point        Digits     Spread       TickSize     TickValue   LotSize    LotStep    Levier");
            FileWrite(file_handle,ligne);  FileWrite(file_handle,"");

            FileWrite(file_handle,"Ref        Date       Time       Open       Close       Low       High       MME       StdDev       Volume");
            for(i=0;i<20000;i++) 
              {
               RefreshRates();
             //if (iTime(symb,t[k],i)>0)
                {
                  ligne=IntegerToString(i)+" "+IntegerToString(iTime(symb,t[k],i))+" "+TimeToString(iTime(symb,t[k],i))+" "
                    +DoubleToString(Ask+" ")//iOpen(symb,t[k],i))+" "
                    +DoubleToString(iClose(symb,t[k],i))+" "
                    +DoubleToString(iLow(symb,t[k],i))+" "+DoubleToString(iHigh(symb,t[k],i))+" "
                    +DoubleToString(iMA(symb,t[k],20,0,MODE_EMA,PRICE_CLOSE,i))+" "
                    +DoubleToString(iStdDev(symb,t[k],20,0,MODE_EMA,PRICE_CLOSE,i))+" "
                    +IntegerToString(iVolume(symb,t[k],i));
                  FileWrite(file_handle,ligne);
                }
              }
            Print(symb+" exporté à "+IntegerToString(GetMicrosecondCount())+" µ-secondes"); 
            FileClose(file_handle); 
           } 
        else 
           {
            MessageBox("Erreur :"+IntegerToString(GetLastError())); 
            PrintFormat("Failed to open %symb file, Error code = %d",symb,GetLastError()); 
            ResetLastError(); 
           }
 //       }   
 //   }    
  /*
  
  
  Marketinfo( ); toutes  les infos 
  
  Export : rendre une fonction executable depuis un autre programme MQ4.
  */
  
   
  }
//+------------------------------------------------------------------+