//+------------------------------------------------------------------+
//|                                              M15_USDJPY_Ver2.mq4 |
//|                                        Copyright ｩ 2008, Aki0307 |
//|                                  http://aki0307.blog.shinobi.jp/ |
//+------------------------------------------------------------------+
#property copyright "Copyright ｩ 2008, Aki0307"
#property link      "http://aki0307.blog.shinobi.jp/"

// 時間足用
datetime dtTimeFrame = 0;

// ログファイル名
string filename = "";

//ファイルハンドル
int handle=0; 

//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
   // ファイル名を生成する（EA名+YYYYMMDD)
   filename = "M15_USDJPY"+TimeYear(TimeLocal())+TimeMonth(TimeLocal())+TimeDay(TimeLocal())+".csv";
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
//----
    // EA開始時に、過去何本分かの4本値をファイルに書き出す
    if(dtTimeFrame == 0){
        for(int i = 100; i > 1; i--){
            handle = FileOpen(filename,FILE_READ|FILE_WRITE|FILE_CSV,'\t');
            FileSeek(handle, 0, SEEK_END);
            FileWrite(handle,TimeToStr(iTime(NULL,0,i), TIME_DATE),TimeToStr(iTime(NULL,0,i), TIME_SECONDS), iOpen(NULL,0,i),iHigh(NULL,0,i),iLow(NULL,0,i),iClose(NULL,0,i));
            FileClose(handle);
        }
    }

    // 今の時間を取得時間足に変化があると中に入る
    if(dtTimeFrame<iTime(NULL,0,0)) {
        dtTimeFrame=iTime(NULL,0,0);
        // 現在の時間足の４値をファイルに出力する
        handle = FileOpen(filename,FILE_READ|FILE_WRITE|FILE_CSV,'\t');
        FileSeek(handle, 0, SEEK_END);
        FileWrite(handle,TimeToStr(iTime(NULL,0,1), TIME_DATE),TimeToStr(iTime(NULL,0,1), TIME_SECONDS), iOpen(NULL,0,1),iHigh(NULL,0,1),iLow(NULL,0,1),iClose(NULL,0,1));
        FileClose(handle);
        Print("15M:",TimeToStr(iTime(NULL,0,1), TIME_SECONDS),"-",iOpen(NULL,0,1),"-",iHigh(NULL,0,1),"-",iLow(NULL,0,1),"-",iClose(NULL,0,1));
        Alert("15M:",TimeToStr(iTime(NULL,0,1), TIME_SECONDS),"-",iOpen(NULL,0,1),"-",iHigh(NULL,0,1),"-",iLow(NULL,0,1),"-",iClose(NULL,0,1));
    }
   
//----
   return(0);
  }
//+------------------------------------------------------------------+