ForumSections

All open positions to CSV? Can't find code in MQL4 Reference

New comment

hi

i have this script to export multiple MA and ATR, and i need also all open trades. can't find anything :(

i hope someone can help.

thank you very much!


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

int start()
  {
 static int  flag;
 int handle;
  
   
  double AUDCAD_Bid, AUDCAD_Ask, 
         AUDCAD_M1_50_MA, AUDCAD_M1_100_MA, AUDCAD_M1_300_MA, AUDCAD_M1_450_MA, AUDCAD_M1_675_MA, 
         AUDCAD_M5_50_MA, AUDCAD_M5_100_MA, AUDCAD_M5_300_MA, AUDCAD_M5_450_MA, AUDCAD_M5_675_MA, 
         AUDCAD_M15_50_MA, AUDCAD_M15_100_MA, AUDCAD_M15_300_MA, AUDCAD_M15_450_MA, AUDCAD_M15_675_MA, 
         AUDCAD_M30_50_MA, AUDCAD_M30_100_MA, AUDCAD_M30_300_MA, AUDCAD_M30_450_MA, AUDCAD_M30_675_MA, 
         AUDCAD_H1_50_MA, AUDCAD_H1_100_MA, AUDCAD_H1_300_MA, AUDCAD_H1_450_MA, AUDCAD_H1_675_MA, 
         AUDCAD_H4_50_MA, AUDCAD_H4_100_MA, AUDCAD_H4_300_MA, AUDCAD_H4_450_MA, AUDCAD_H4_675_MA, 
         AUDCAD_D1_50_MA, AUDCAD_D1_100_MA, AUDCAD_D1_300_MA, AUDCAD_D1_450_MA, AUDCAD_D1_675_MA, 
         AUDCAD_W1_50_MA, AUDCAD_W1_100_MA, AUDCAD_W1_300_MA, AUDCAD_W1_450_MA, AUDCAD_W1_675_MA, 
         
         AUDCAD_M15_ATR, AUDCAD_M30_ATR, AUDCAD_H1_ATR, AUDCAD_H4_ATR, AUDCAD_D1_ATR;
  
    
  
         AUDCAD_Bid = MarketInfo("AUDCAD",MODE_BID);
         AUDCAD_Ask = MarketInfo("AUDCAD",MODE_ASK);
         AUDCAD_M1_50_MA = iMA("AUDCAD",PERIOD_M1,50,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_M1_100_MA = iMA("AUDCAD",PERIOD_M1,100,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_M1_300_MA = iMA("AUDCAD",PERIOD_M1,300,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_M1_450_MA = iMA("AUDCAD",PERIOD_M1,450,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_M1_675_MA = iMA("AUDCAD",PERIOD_M1,675,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_M5_50_MA = iMA("AUDCAD",PERIOD_M5,50,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_M5_100_MA = iMA("AUDCAD",PERIOD_M5,100,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_M5_300_MA = iMA("AUDCAD",PERIOD_M5,300,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_M5_450_MA = iMA("AUDCAD",PERIOD_M5,450,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_M5_675_MA = iMA("AUDCAD",PERIOD_M5,675,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_M15_50_MA = iMA("AUDCAD",PERIOD_M15,50,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_M15_100_MA = iMA("AUDCAD",PERIOD_M15,100,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_M15_300_MA = iMA("AUDCAD",PERIOD_M15,300,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_M15_450_MA = iMA("AUDCAD",PERIOD_M15,450,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_M15_675_MA = iMA("AUDCAD",PERIOD_M15,675,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_M30_50_MA = iMA("AUDCAD",PERIOD_M30,50,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_M30_100_MA = iMA("AUDCAD",PERIOD_M30,100,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_M30_300_MA = iMA("AUDCAD",PERIOD_M30,300,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_M30_450_MA = iMA("AUDCAD",PERIOD_M30,450,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_M30_675_MA = iMA("AUDCAD",PERIOD_M30,675,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_H1_50_MA = iMA("AUDCAD",PERIOD_H1,50,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_H1_100_MA = iMA("AUDCAD",PERIOD_H1,100,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_H1_300_MA = iMA("AUDCAD",PERIOD_H1,300,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_H1_450_MA = iMA("AUDCAD",PERIOD_H1,450,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_H1_675_MA = iMA("AUDCAD",PERIOD_H1,675,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_H4_50_MA = iMA("AUDCAD",PERIOD_H4,50,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_H4_100_MA = iMA("AUDCAD",PERIOD_H4,100,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_H4_300_MA = iMA("AUDCAD",PERIOD_H4,300,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_H4_450_MA = iMA("AUDCAD",PERIOD_H4,450,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_H4_675_MA = iMA("AUDCAD",PERIOD_H4,675,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_D1_50_MA = iMA("AUDCAD",PERIOD_D1,50,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_D1_100_MA = iMA("AUDCAD",PERIOD_D1,100,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_D1_300_MA = iMA("AUDCAD",PERIOD_D1,300,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_D1_450_MA = iMA("AUDCAD",PERIOD_D1,450,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_D1_675_MA = iMA("AUDCAD",PERIOD_D1,675,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_W1_50_MA = iMA("AUDCAD",PERIOD_W1,50,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_W1_100_MA = iMA("AUDCAD",PERIOD_W1,100,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_W1_300_MA = iMA("AUDCAD",PERIOD_W1,300,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_W1_450_MA = iMA("AUDCAD",PERIOD_W1,450,0,MODE_SMA,PRICE_CLOSE,1);
         AUDCAD_W1_675_MA = iMA("AUDCAD",PERIOD_W1,675,0,MODE_SMA,PRICE_CLOSE,1);
          
         
         AUDCAD_M15_ATR= iATR("AUDCAD",PERIOD_M15,96, 1);   
         AUDCAD_M30_ATR= iATR("AUDCAD",PERIOD_M30,96, 1);   
         AUDCAD_H1_ATR= iATR("AUDCAD",PERIOD_H1,96, 1);   
         AUDCAD_H4_ATR= iATR("AUDCAD",PERIOD_H4,84, 1);   
         AUDCAD_D1_ATR= iATR("AUDCAD",PERIOD_D1,14, 1);   
         
         
         
//===========================================================    






//===========================================================    
   handle=FileOpen("BID ASK MA ATR.csv", FILE_CSV|FILE_WRITE, ',');
   if(handle>0)
    {
     FileWrite(handle, 
      DoubleToStr(AUDCAD_Bid, 5), DoubleToStr(AUDCAD_Ask, 5), 
      DoubleToStr(AUDCAD_M1_50_MA,5), DoubleToStr(AUDCAD_M1_100_MA,5), DoubleToStr(AUDCAD_M1_300_MA,5), DoubleToStr(AUDCAD_M1_450_MA,5), DoubleToStr(AUDCAD_M1_675_MA,5), 
      DoubleToStr(AUDCAD_M5_50_MA,5), DoubleToStr(AUDCAD_M5_100_MA,5), DoubleToStr(AUDCAD_M5_300_MA,5), DoubleToStr(AUDCAD_M5_450_MA,5), DoubleToStr(AUDCAD_M5_675_MA,5), 
      DoubleToStr(AUDCAD_M15_50_MA,5), DoubleToStr(AUDCAD_M15_100_MA,5), DoubleToStr(AUDCAD_M15_300_MA,5), DoubleToStr(AUDCAD_M15_450_MA,5), DoubleToStr(AUDCAD_M15_675_MA,5), 
      DoubleToStr(AUDCAD_M30_50_MA,5), DoubleToStr(AUDCAD_M30_100_MA,5), DoubleToStr(AUDCAD_M30_300_MA,5), DoubleToStr(AUDCAD_M30_450_MA,5), DoubleToStr(AUDCAD_M30_675_MA,5), 
      DoubleToStr(AUDCAD_H1_50_MA,5), DoubleToStr(AUDCAD_H1_100_MA,5), DoubleToStr(AUDCAD_H1_300_MA,5), DoubleToStr(AUDCAD_H1_450_MA,5), DoubleToStr(AUDCAD_H1_675_MA,5), 
      DoubleToStr(AUDCAD_H4_50_MA,5), DoubleToStr(AUDCAD_H4_100_MA,5), DoubleToStr(AUDCAD_H4_300_MA,5), DoubleToStr(AUDCAD_H4_450_MA,5), DoubleToStr(AUDCAD_H4_675_MA,5), 
      DoubleToStr(AUDCAD_D1_50_MA,5), DoubleToStr(AUDCAD_D1_100_MA,5), DoubleToStr(AUDCAD_D1_300_MA,5), DoubleToStr(AUDCAD_D1_450_MA,5), DoubleToStr(AUDCAD_D1_675_MA,5), 
      DoubleToStr(AUDCAD_W1_50_MA,5), DoubleToStr(AUDCAD_W1_100_MA,5), DoubleToStr(AUDCAD_W1_300_MA,5), DoubleToStr(AUDCAD_W1_450_MA,5), DoubleToStr(AUDCAD_W1_675_MA,5), 
         
      DoubleToStr(AUDCAD_M15_ATR, 5), DoubleToStr(AUDCAD_M30_ATR, 5), DoubleToStr(AUDCAD_H1_ATR, 5), DoubleToStr(AUDCAD_H4_ATR, 5), DoubleToStr(AUDCAD_D1_ATR, 5) 

     );
     FileClose(handle);
     Comment(" BID ASK MA ATR SENT ");
    }

    return(0);
  }
New comment