//+------------------------------------------------------------------+
//|                                                       Export.mq4 |
//|                                              Copyright 2016, AM2 |
//|                                      http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2016, AM2"
#property link      "http://www.forexsystems.biz"
#property version   "1.00"
#property strict
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
struct Orders
  {
   int               Type;
   double            OpenPrice;
   double            Lots;
  };

Orders Order;
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void Log(string s="")
  {
//--- Открываем файл 
   int h=FileOpen("Buff.txt",FILE_READ|FILE_WRITE|FILE_TXT);
   FileWrite(h,s);
   FileClose(h); // закрываем файл 
  }
//+------------------------------------------------------------------+
//| Script program start function                                    |
//+------------------------------------------------------------------+
void OnStart()
  {
   while(!IsStopped())
     {
      for(int i=OrdersTotal()-1;i>=0;i--)
        {
         if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
           {
            if(OrderSymbol()==Symbol())
              {
               if(OrderType()==OP_BUY)
                 {
                  Order.Type=0;
                  Order.Lots=OrderLots();
                  Order.OpenPrice=OrderOpenPrice();
                 }
               if(OrderType()==OP_SELL)
                 {
                  Order.Type=1;
                  Order.Lots=OrderLots();
                  Order.OpenPrice=OrderOpenPrice();
                 }
              }
           }
        }
        
      Log(Symbol() +" "+ (string)Order.Type +" "+ (string)Order.Lots +" "+ (string)Order.OpenPrice);
      
      Comment("\n Order Type: ",Order.Type,
              "\n Order Lots: ",Order.Lots,
              "\n Order OpenPrice: ",Order.OpenPrice);

     }

  }
//+------------------------------------------------------------------+

//+------------------------------------------------------------------+
//|                                                       Import.mq4 |
//|                                              Copyright 2016, AM2 |
//|                                      http://www.forexsystems.biz |
//+------------------------------------------------------------------+

#property copyright "Copyright 2016, AM2"
#property link      "http://www.forexsystems.biz"
#property version   "1.00"
#property strict

int Type=0;
string s="";
double Lots=0;
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void PutOrder(int type,double price)
  {
   int r=0;
   color clr=Green;
   double sl=0,tp=0;

   if(type==1 || type==3 || type==5)
     {
      clr=Red;
     }

   if(type==0 || type==2 || type==4)
     {
      clr=Blue;
     }

   r=OrderSend(NULL,type,Lots,NormalizeDouble(price,Digits),100,0,0,"",0,0,clr);
   return;
  }
//+------------------------------------------------------------------+
//| Script program start function                                    |
//+------------------------------------------------------------------+
void OnStart()
  {
   while(!IsStopped())
     {
      if(OrdersTotal()<1)
        {
         //--- Открываем файл 
         int h=FileOpen("Buff.txt",FILE_READ|FILE_TXT);
         s=FileReadString(h,100);
         Type=(int)StringSubstr(s,7,1);
         Lots=(double)StringSubstr(s,9,5);
         FileClose(h); // закрываем файл 
         
         if(Type<1) PutOrder(Type,Ask); 
         if(Type>0) PutOrder(Type,Ask);        
        }

      Comment("\n Order Type: ",Type,
              "\n Order Lots: ",Lots,
              "\n String: ",s);

     }
  }
//+------------------------------------------------------------------+