//+------------------------------------------------------------------+
//|                                                        essai.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,j,k;
  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"};

  Comment("Exporte Marketinfo en cours d'execution");
  //string fichier =symb+per[k]+".txt";
  ResetLastError(); 
  int file_handle=FileOpen("Market_info-r marges2.csv",FILE_READ|FILE_WRITE|FILE_TXT," "); 
  if(file_handle!=INVALID_HANDLE) 
     { 
     FileWrite(file_handle,"Ecart_type 15'*20;Marge*minilot;Prix mini tick;Ratio gain;Ecart;Ecart levier % /heure;Levier;Symbol;Bid;Ask;Point/Frs;Digits;Spread/point;TickSize/point;TickValue/Frs;LotSize/Frs;LotStep/lot;MinLot/lot;MAXLOT;STARTING;EXPIRATION;TRADEALLOWED;SWAPTYPE;PROFITCALCMODE;MARGINCALCMODE;MARGININIT;MARGINMAINTENANCE;MARGINHEDGED;MARGINREQUIRED;FREEZELEVEL;CLOSEBY_ALLOWED;Levier;");
     for(j=0;j<SymbolsTotal(false);j++)
      {
       symb= SymbolName(j,false);
       //if (StringSubstr(symb,StringLen(symb)-2,2)==".r") 
         {
          Calc_bases(symb,PERIOD_H1,false);
          ligne=
          DoubleToString(iStdDev(symb,15,20,0,MODE_EMA,PRICE_CLOSE,0))+";"
          +DoubleToStr(marge_par_mini_lot,2)+";"
          +DoubleToStr(prix_mini_tick,3)+";"
          +DoubleToStr(ratio_gain,2)+";"
          +DoubleToStr(ecart,2)+";"
          +DoubleToStr(ecart_levier_pourcent_par_heure,5)+";"
          +DoubleToStr(levier,1)+";"
          +symb+";" 
          +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(MarketInfo(symb,MODE_MINLOT))+";"
          +DoubleToString(MarketInfo(symb,MODE_MAXLOT))+";"             
          +DoubleToString(MarketInfo(symb,MODE_STARTING))+";"
          +DoubleToString(MarketInfo(symb,MODE_EXPIRATION))+";"
          +DoubleToString(MarketInfo(symb,MODE_TRADEALLOWED))+";"
          +DoubleToString(MarketInfo(symb,MODE_SWAPTYPE))+";"
          +DoubleToString(MarketInfo(symb,MODE_PROFITCALCMODE))+";"             
          +DoubleToString(MarketInfo(symb,MODE_MARGINCALCMODE))+";"
          +DoubleToString(MarketInfo(symb,MODE_MARGININIT))+";"
          +DoubleToString(MarketInfo(symb,MODE_MARGINMAINTENANCE))+";"
          +DoubleToString(MarketInfo(symb,MODE_MARGINHEDGED))+";"             
          +DoubleToString(MarketInfo(symb,MODE_MARGINREQUIRED))+";"             
          +DoubleToString(MarketInfo(symb,MODE_FREEZELEVEL))+";"
          +DoubleToString(MarketInfo(symb,MODE_CLOSEBY_ALLOWED))+";"          
          +DoubleToString(AccountLeverage())+";"
          ;        
          
          StringReplace(ligne,".",",");
                    
          FileWrite(file_handle,ligne); 
          //Print(Bars);          
         }
      }
     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(); 
     }
  
  Comment("Exporte Marketinfo Terminé");
   
//  Export : rendre une fonction executable depuis un autre programme MQ4.
  
  
   
  }
//+------------------------------------------------------------------+