【MQL5】FileWriteLong関数について

uint  FileWriteLong(
  int  file_handle,    // ファイルハンドル
  long  value            // 書かれる値
  );

//--- スクリプトの起動時に入力パラメータのウィンドウを表示する設定
#property script_show_inputs

//--- 端末からデータを受け取るパラメータを宣言
input string         InpSymbolName="EURUSD";           // 通貨ペア（例：EURUSD）
input ENUM_TIMEFRAMES InpSymbolPeriod=PERIOD_H1;       // 時間軸（例：1時間足）
input datetime       InpDateStart=D'2013.01.01 00:00'; // データのコピー開始日（例：2013年1月1日 0時0分）

//--- データをファイルに書き込むためのパラメータを宣言
input string         InpFileName="Volume.bin";         // 書き込み先のファイル名（例：Volume.bin）
input string         InpDirectoryName="Data";          // ディレクトリ名（例：Dataディレクトリ）

//+------------------------------------------------------------------+
//| スクリプトプログラムのメイン関数                                  |
//+------------------------------------------------------------------+
void OnStart()
{
  //--- 現在のサーバー時刻を取得し、date_finish変数に保存
  datetime date_finish=TimeCurrent();

  //--- ボリュームと時間を保存するためのバッファを定義
  long     volume_buff[];   // ティックボリュームを保存するための配列
  datetime time_buff[];     // 時間データを保存するための配列
  int      size;            // データのサイズ（配列の要素数）

  //--- 最後に発生したエラーをリセットする
  ResetLastError();

  //--- 指定した通貨ペアと時間軸のティックボリュームデータをコピー
  if(CopyTickVolume(InpSymbolName, InpSymbolPeriod, InpDateStart, date_finish, volume_buff)==-1)
  {
    //--- ティックボリュームのコピーに失敗した場合、エラーメッセージをエキスパートログに表示して処理を終了
    PrintFormat("Failed to copy values of the tick volume. Error code = %d", GetLastError());
    return;  // 処理を終了
  }

  //--- 指定した通貨ペアと時間軸の時間データをコピー
  if(CopyTime(InpSymbolName, InpSymbolPeriod, InpDateStart, date_finish, time_buff)==-1)
  {
    //--- 時間データのコピーに失敗した場合、エラーメッセージをエキスパートログに表示して処理を終了
    PrintFormat("Failed to copy time values. Error code = %d", GetLastError());
    return;  // 処理を終了
  }

  //--- コピーしたデータのサイズ（配列の要素数）を取得
  size = ArraySize(volume_buff);

  //--- データを書き込むためにファイルを開く（存在しない場合は新規作成）
  ResetLastError();  // 最後のエラーをリセット
  int file_handle = FileOpen(InpDirectoryName+"//"+InpFileName, FILE_READ|FILE_WRITE|FILE_BIN);
  
  //--- ファイルが正しく開けたかどうか確認
  if(file_handle != INVALID_HANDLE)
  {
    //--- ファイルが正しく開けた場合、メッセージを表示
    PrintFormat("%s file is available for writing", InpFileName);
    PrintFormat("File path: %s\\Files\\", TerminalInfoString(TERMINAL_DATA_PATH));  // ファイルパスを表示

    //--- 最初にデータのサイズ（サンプル数）を書き込む
    FileWriteLong(file_handle, (long)size);

    //--- 時間とティックボリュームデータをファイルに書き込むループ
    for(int i = 0; i < size; i++)
    {
      //--- 時間データをファイルに書き込む
      FileWriteLong(file_handle, (long)time_buff[i]);
      //--- ティックボリュームデータをファイルに書き込む
      FileWriteLong(file_handle, volume_buff[i]);
    }

    //--- データの書き込みが完了したら、ファイルを閉じる
    FileClose(file_handle);
    PrintFormat("Data is written, %s file is closed", InpFileName);  // 書き込み完了メッセージ
  }
  else
  {
    //--- ファイルが開けなかった場合、エラーメッセージを表示
    PrintFormat("Failed to open %s file, Error code = %d", InpFileName, GetLastError());
  }
}

//--- スクリプトの起動時に入力パラメータのウィンドウを表示する
#property script_show_inputs

//--- 端末からデータを受け取るパラメータ
input string             InpSymbolName="EURUSD";           // 通貨ペアのシンボル名を指定する。初期値は"EURUSD"
input ENUM_TIMEFRAMES    InpSymbolPeriod=PERIOD_H1;        // 時間軸を指定する。初期値は1時間足（H1）
input datetime           InpDateStart=D'2013.01.01 00:00'; // データのコピーを開始する日時を指定する。初期値は2013年1月1日 00:00

//--- データをファイルに書き込むためのパラメータ
input string             InpFileName="Trend.bin";          // ファイル名を指定する。初期値は"Trend.bin"
input string             InpDirectoryName="Data";          // ディレクトリ名を指定する。初期値は"Data"

//+------------------------------------------------------------------+
//| スクリプトプログラムのメイン関数                                  |
//+------------------------------------------------------------------+
void OnStart()
{
  //--- 現在のサーバー時刻を取得し、date_finish変数に保存
  datetime date_finish=TimeCurrent();

  //--- ボリュームと時間を保存するためのバッファを定義
  long     volume_buff[];   // ティックボリュームを保存するための配列
  datetime time_buff[];     // 時間データを保存するための配列
  int      size;            // データのサイズ（配列の要素数）

  //--- 最後に発生したエラーをリセットする
  ResetLastError();

 //--- 指定した通貨ペアと時間軸のティックボリュームデータをコピー
  if(CopyTickVolume(InpSymbolName, InpSymbolPeriod, InpDateStart, date_finish, volume_buff)==-1)
  {
    //--- ティックボリュームのコピーに失敗した場合、エラーメッセージをエキスパートログに表示して処理を終了
    PrintFormat("Failed to copy values of the tick volume. Error code = %d", GetLastError());
    return;  // 処理を終了
  }

  //--- 指定した通貨ペアと時間軸の時間データをコピー
  if(CopyTime(InpSymbolName, InpSymbolPeriod, InpDateStart, date_finish, time_buff)==-1)
  {
    //--- 時間データのコピーに失敗した場合、エラーメッセージをエキスパートログに表示して処理を終了
    PrintFormat("Failed to copy time values. Error code = %d", GetLastError());
    return;  // 処理を終了
  }

  //--- コピーしたデータのサイズ（配列の要素数）を取得
  size = ArraySize(volume_buff);

  //--- データを書き込むためにファイルを開く（存在しない場合は新規作成）
  ResetLastError();  // 最後のエラーをリセット
  int file_handle = FileOpen(InpDirectoryName+"//"+InpFileName, FILE_READ|FILE_WRITE|FILE_BIN);
  

  if(file_handle != INVALID_HANDLE)
  {
    //--- ファイルが正しく開けた場合、メッセージを表示
    PrintFormat("%s file is available for writing", InpFileName);
    PrintFormat("File path: %s\\Files\\", TerminalInfoString(TERMINAL_DATA_PATH));  // ファイルパスを表示

    //--- 最初にデータのサイズ（サンプル数）を書き込む
    FileWriteLong(file_handle, (long)size);

    //--- 時間とティックボリュームデータをファイルに書き込むループ
    for(int i = 0; i < size; i++)
    {
      //--- 時間データをファイルに書き込む
      FileWriteLong(file_handle, (long)time_buff[i]);
      //--- ティックボリュームデータをファイルに書き込む
      FileWriteLong(file_handle, volume_buff[i]);
    }

    //--- データの書き込みが完了したら、ファイルを閉じる
    FileClose(file_handle);
    PrintFormat("Data is written, %s file is closed", InpFileName);  // 書き込み完了メッセージ
}

 else
  {
    //--- ファイルが開けなかった場合、エラーメッセージを表示
    PrintFormat("Failed to open %s file, Error code = %d", InpFileName, GetLastError());
  }
}