//+------------------------------------------------------------------+
//|                                                        essai.mq4 |
//|                                                               LM |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "LM"
#property link      "https://www.mql5.com"
#property version   "1.00"
#property strict
//+------------------------------------------------------------------+
//| Script program start function                                    |
//+------------------------------------------------------------------+
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"};

  for(j=0;j<SymbolsTotal(false);j++)
    {
      symb= SymbolName(j,false); 
      for(k=0;k<9;k++) 
        {
          //MessageBox(t[k],per[k]);
          //string fichier = rep+symb+".txt"; ne marche pas
        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=20000;i>=0;i--) 
              {
             if (iTime(symb,t[k],i)>0)
                {
                  ligne=IntegerToString(iTime(symb,t[k],i))+" "+TimeToString(iTime(symb,t[k],i))+" "
                    +DoubleToString(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.
  */
  
   
  }
//+------------------------------------------------------------------+