【MQL5】FileReadNumber関数について

double  FileReadNumber(
  int  file_handle    // ファイルハンドル
  );

//+------------------------------------------------------------------+
//| カスタム指標をプロットする設定                                   |
//+------------------------------------------------------------------+
#property indicator_chart_window        // チャート上に直接プロットする指標
#property indicator_buffers 5           // 指標に使用するバッファの数
#property indicator_plots   1           // プロットするラインの数
//---- ラベル1をプロットする設定
#property indicator_label1 "Overbought & Oversold" // ラベル名を設定
#property indicator_type1   DRAW_COLOR_BARS        // カラーバーで表示
#property indicator_color1 clrRed, clrBlue         // カラーバーの色（赤と青）
#property indicator_style1 STYLE_SOLID             // ラインのスタイルはソリッド（実線）
#property indicator_width1  2                      // ラインの幅を2ピクセルに設定

//--- データ読み込みのパラメータ
input string InpFileName="RSI.csv";   // ファイル名を指定（デフォルトはRSI.csv）
input string InpDirectoryName="Data"; // ディレクトリ名を指定（デフォルトはData）

//--- 指標に使用するバッファ
double   open_buff[];   // 開始価格用バッファ
double   high_buff[];   // 高値価格用バッファ
double   low_buff[];    // 安値価格用バッファ
double   close_buff[];  // 終値価格用バッファ
double   color_buff[];  // カラーインデックス用バッファ

//--- 買われ過ぎを示す変数
int      ovb_ind=0;         // 買われ過ぎのインデックス
int      ovb_size=0;        // 買われ過ぎのサイズ
datetime ovb_time[];        // 買われ過ぎの時間を格納する配列

//--- 売られ過ぎを示す変数
int      ovs_ind=0;         // 売られ過ぎのインデックス
int      ovs_size=0;        // 売られ過ぎのサイズ
datetime ovs_time[];        // 売られ過ぎの時間を格納する配列

//+------------------------------------------------------------------+
//| カスタム指標を初期化する関数                                     |
//+------------------------------------------------------------------+
int OnInit()
 {
  //--- デフォルトの配列サイズ
  int ovb_def_size=100;  // 買われ過ぎ配列の初期サイズ
  int ovs_def_size=100;  // 売られ過ぎ配列の初期サイズ

  //--- 配列のサイズを指定したデフォルトサイズに変更
  ArrayResize(ovb_time,ovb_def_size);  // 買われ過ぎ時間配列のリサイズ
  ArrayResize(ovs_time,ovs_def_size);  // 売られ過ぎ時間配列のリサイズ

  //--- ファイルを開く
  ResetLastError();  // エラーコードをリセット
  int file_handle=FileOpen(InpDirectoryName+"//"+InpFileName,FILE_READ|FILE_CSV|FILE_ANSI);  // ファイルをCSVモードで開く
  if(file_handle!=INVALID_HANDLE)  // ファイルが正常に開けた場合
    {
    //--- ファイルが開けたことをログに出力
    PrintFormat("%s file is available for reading",InpFileName);
    PrintFormat("File path: %s\\Files\\",TerminalInfoString(TERMINAL_DATA_PATH));

    double value;  // ファイルから読み取る値用の変数

    //--- ファイルからデータを読み取る
    while(!FileIsEnding(file_handle))  // ファイルの終端に達するまで読み込む
       {
        //--- ファイルから数値を読み込む
        value=FileReadNumber(file_handle);

        //--- 読み取った値に応じて処理を行う
        if(value>=70)  // 値が70以上なら買われ過ぎと判定
           ReadData(file_handle,ovb_time,ovb_size,ovb_def_size);  // 買われ過ぎのデータを読み取る
        else  // 70未満なら売られ過ぎと判定
           ReadData(file_handle,ovs_time,ovs_size,ovs_def_size);  // 売られ過ぎのデータを読み取る
       }
    //--- ファイルを閉じる
    FileClose(file_handle);  // ファイルハンドルを閉じる
    PrintFormat("Data is written, %s file is closed",InpFileName);  // ログに書き込み完了を表示
    }
  else  // ファイルが開けなかった場合
    {
    //--- エラーメッセージを表示
    PrintFormat("Failed to open %s file, Error code = %d",InpFileName,GetLastError());
    return(INIT_FAILED);  // 初期化失敗を返す
    }

  //--- バッファをインジケータに割り当てる
  SetIndexBuffer(0,open_buff,INDICATOR_DATA);  // 開始価格バッファをインジケータにセット
  SetIndexBuffer(1,high_buff,INDICATOR_DATA);  // 高値価格バッファをインジケータにセット
  SetIndexBuffer(2,low_buff,INDICATOR_DATA);   // 安値価格バッファをインジケータにセット
  SetIndexBuffer(3,close_buff,INDICATOR_DATA); // 終値価格バッファをインジケータにセット
  SetIndexBuffer(4,color_buff,INDICATOR_COLOR_INDEX);  // カラーインデックスバッファをインジケータにセット

  //--- チャートに表示されない値を設定
  PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,0);  // 空の値を設定して表示を調整

  return(INIT_SUCCEEDED);  // 初期化成功を返す
 }
//+------------------------------------------------------------------+
//| ファイルの文字列データを読み込む関数                             |
//+------------------------------------------------------------------+
void ReadData(const int file_handle,datetime &arr[],int &size,int &def_size)
 {
  bool flag=false;  // 1回目の読み取りをスキップするためのフラグ

  //--- 行の終わりかファイルの終わりまでデータを読み込む
  while(!FileIsLineEnding(file_handle) && !FileIsEnding(file_handle))  // ファイルの終端または行の終端まで読み込む
    {
    //--- 数値データを読み飛ばして次の位置に移動
    if(flag)
        FileReadNumber(file_handle);  // 次の値を読み飛ばす

    //--- 現在の日時を配列に格納
    arr[size]=FileReadDatetime(file_handle);  // 読み取った日時を配列に保存
    size++;  // サイズを増加

    //--- 必要に応じて配列のサイズを拡張
    if(size==def_size)  // サイズがデフォルトサイズに達した場合
       {
        def_size+=100;  // デフォルトサイズを100増加
        ArrayResize(arr,def_size);  // 配列サイズをリサイズ
       }

    flag=true;  // 1回目のループを終了し、次から通常処理を行う
    }
 }
//+------------------------------------------------------------------+
//| カスタム指標の計算を行う関数                                     |
//+------------------------------------------------------------------+
int OnCalculate(const int rates_total,
              const int prev_calculated,
              const datetime &time[],
              const double &open[],
              const double &high[],
              const double &low[],
              const double &close[],
              const long &tick_volume[],
              const long &volume[],
              const int &spread[])
 {
  //--- 配列を時系列に設定
  ArraySetAsSeries(time,false);  // time配列を時系列ではなく設定
  ArraySetAsSeries(open,false);  // open配列を時系列ではなく設定
  ArraySetAsSeries(high,false);  // high配列を時系列ではなく設定
  ArraySetAsSeries(low,false);   // low配列を時系列ではなく設定
  ArraySetAsSeries(close,false); // close配列を時系列ではなく設定

  //--- 処理されていないバーのループ
  for(int i=prev_calculated;i<rates_total;i++)  // 前回の計算からまだ処理していないバーを処理
    {
    //--- バッファの初期化
     open_buff[i]=0;   // 開始価格バッファを初期化
     high_buff[i]=0;   // 高値価格バッファを初期化
     low_buff[i]=0;    // 安値価格バッファを初期化
     close_buff[i]=0;  // 終値価格バッファを初期化
     color_buff[i]=

0;  // カラーバッファを初期化

    //--- 買われ過ぎデータがまだ残っているか確認
    if(ovb_ind<ovb_size)  // 買われ過ぎデータが残っている場合
        for(int j=ovb_ind;j<ovb_size;j++)  // 買われ過ぎデータをチェック
          {
          //--- 日付が一致する場合、バーが買われ過ぎ領域にある
          if(time[i]==ovb_time[j])  // バーの日時と買われ過ぎの日時が一致する場合
             {
              open_buff[i]=open[i];  // 開始価格をセット
              high_buff[i]=high[i];  // 高値価格をセット
              low_buff[i]=low[i];    // 安値価格をセット
              close_buff[i]=close[i];// 終値価格をセット
              color_buff[i]=0;       // 赤（0）をセット
              ovb_ind=j+1;           // インデックスを更新
              break;                 // ループを抜ける
             }
          }

    //--- 売られ過ぎデータがまだ残っているか確認
    if(ovs_ind<ovs_size)  // 売られ過ぎデータが残っている場合
        for(int j=ovs_ind;j<ovs_size;j++)  // 売られ過ぎデータをチェック
          {
          //--- 日付が一致する場合、バーが売られ過ぎ領域にある
          if(time[i]==ovs_time[j])  // バーの日時と売られ過ぎの日時が一致する場合
             {
              open_buff[i]=open[i];  // 開始価格をセット
              high_buff[i]=high[i];  // 高値価格をセット
              low_buff[i]=low[i];    // 安値価格をセット
              close_buff[i]=close[i];// 終値価格をセット
              color_buff[i]=1;       // 青（1）をセット
              ovs_ind=j+1;           // インデックスを更新
              break;                 // ループを抜ける
             }
          }
    }

  return(rates_total);  // 次回の計算に備えて現在のバー数を返す
 }
//+------------------------------------------------------------------+
//| チャートイベントハンドラ                                         |
//+------------------------------------------------------------------+
void OnChartEvent(const int id,
                const long &lparam,
                const double &dparam,
                const string &sparam
                 )
 {
  //--- チャートのスケールに応じてラインの幅を調整する
  if(ChartGetInteger(0,CHART_SCALE)>3)  // チャートのスケールが3以上の場合
    PlotIndexSetInteger(0,PLOT_LINE_WIDTH,2);  // ライン幅を2に設定
  else  // スケールが3未満の場合
    PlotIndexSetInteger(0,PLOT_LINE_WIDTH,1);  // ライン幅を1に設定
 }

//+------------------------------------------------------------------+
//| カスタム指標をプロットする設定                                   |
//+------------------------------------------------------------------+
#property indicator_chart_window        // チャート上に直接プロットする指標
#property indicator_buffers 5           // 指標に使用するバッファの数
#property indicator_plots   1           // プロットするラインの数
//---- ラベル1をプロットする設定
#property indicator_label1 "Overbought & Oversold" // ラベル名を設定
#property indicator_type1   DRAW_COLOR_BARS        // カラーバーで表示
#property indicator_color1 clrRed, clrBlue         // カラーバーの色（赤と青）
#property indicator_style1 STYLE_SOLID             // ラインのスタイルはソリッド（実線）
#property indicator_width1  2                      // ラインの幅を2ピクセルに設定

//--- データ読み込みのパラメータ
input string InpFileName="RSI.csv";   // ファイル名を指定（デフォルトはRSI.csv）
input string InpDirectoryName="Data"; // ディレクトリ名を指定（デフォルトはData）

//--- 指標に使用するバッファ
double   open_buff[];   // 開始価格用バッファ
double   high_buff[];   // 高値価格用バッファ
double   low_buff[];    // 安値価格用バッファ
double   close_buff[];  // 終値価格用バッファ
double   color_buff[];  // カラーインデックス用バッファ

//--- 買われ過ぎを示す変数
int      ovb_ind=0;         // 買われ過ぎのインデックス
int      ovb_size=0;        // 買われ過ぎのサイズ
datetime ovb_time[];        // 買われ過ぎの時間を格納する配列

//--- 売られ過ぎを示す変数
int      ovs_ind=0;         // 売られ過ぎのインデックス
int      ovs_size=0;        // 売られ過ぎのサイズ
datetime ovs_time[];        // 売られ過ぎの時間を格納する配列

//+------------------------------------------------------------------+
//| カスタム指標を初期化する関数                                     |
//+------------------------------------------------------------------+
int OnInit()
 {
  //--- デフォルトの配列サイズ
  int ovb_def_size=100;  // 買われ過ぎ配列の初期サイズ
  int ovs_def_size=100;  // 売られ過ぎ配列の初期サイズ

  //--- 配列のサイズを指定したデフォルトサイズに変更
  ArrayResize(ovb_time,ovb_def_size);  // 買われ過ぎ時間配列のリサイズ
  ArrayResize(ovs_time,ovs_def_size);  // 売られ過ぎ時間配列のリサイズ

  //--- ファイルを開く
  ResetLastError();  // エラーコードをリセット
  int file_handle=FileOpen(InpDirectoryName+"//"+InpFileName,FILE_READ|FILE_CSV|FILE_ANSI);  // ファイルをCSVモードで開く

  if(file_handle!=INVALID_HANDLE)  // ファイルが正常に開けた場合
    {
    //--- ファイルが開けたことをログに出力
    PrintFormat("%s file is available for reading",InpFileName);
    PrintFormat("File path: %s\\Files\\",TerminalInfoString(TERMINAL_DATA_PATH));

    double value;  // ファイルから読み取る値用の変数

    //--- ファイルからデータを読み取る
    while(!FileIsEnding(file_handle))  // ファイルの終端に達するまで読み込む
       {
        //--- ファイルから数値を読み込む
        value=FileReadNumber(file_handle);

        //--- 読み取った値に応じて処理を行う
        if(value>=70)  // 値が70以上なら買われ過ぎと判定
           ReadData(file_handle,ovb_time,ovb_size,ovb_def_size);  // 買われ過ぎのデータを読み取る
        else  // 70未満なら売られ過ぎと判定
           ReadData(file_handle,ovs_time,ovs_size,ovs_def_size);  // 売られ過ぎのデータを読み取る
       }
    //--- ファイルを閉じる
    FileClose(file_handle);  // ファイルハンドルを閉じる
    PrintFormat("Data is written, %s file is closed",InpFileName);  // ログに書き込み完了を表示
    }

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

  //--- バッファをインジケータに割り当てる
  SetIndexBuffer(0,open_buff,INDICATOR_DATA);  // 開始価格バッファをインジケータにセット
  SetIndexBuffer(1,high_buff,INDICATOR_DATA);  // 高値価格バッファをインジケータにセット
  SetIndexBuffer(2,low_buff,INDICATOR_DATA);   // 安値価格バッファをインジケータにセット
  SetIndexBuffer(3,close_buff,INDICATOR_DATA); // 終値価格バッファをインジケータにセット
  SetIndexBuffer(4,color_buff,INDICATOR_COLOR_INDEX);  // カラーインデックスバッファをインジケータにセット

  //--- チャートに表示されない値を設定
  PlotIndexSetDouble(0,PLOT_EMPTY_VALUE,0);  // 空の値を設定して表示を調整

  return(INIT_SUCCEEDED);  // 初期化成功を返す
 }

//+------------------------------------------------------------------+
//| ファイルの文字列データを読み込む関数                             |
//+------------------------------------------------------------------+
void ReadData(const int file_handle,datetime &arr[],int &size,int &def_size)
 {
  bool flag=false;  // 1回目の読み取りをスキップするためのフラグ

  //--- 行の終わりかファイルの終わりまでデータを読み込む
  while(!FileIsLineEnding(file_handle) && !FileIsEnding(file_handle))  // ファイルの終端または行の終端まで読み込む
    {
    //--- 数値データを読み飛ばして次の位置に移動
    if(flag)
        FileReadNumber(file_handle);  // 次の値を読み飛ばす

    //--- 現在の日時を配列に格納
    arr[size]=FileReadDatetime(file_handle);  // 読み取った日時を配列に保存
    size++;  // サイズを増加

    //--- 必要に応じて配列のサイズを拡張
    if(size==def_size)  // サイズがデフォルトサイズに達した場合
       {
        def_size+=100;  // デフォルトサイズを100増加
        ArrayResize(arr,def_size);  // 配列サイズをリサイズ
       }

    flag=true;  // 1回目のループを終了し、次から通常処理を行う
    }
 }

//+------------------------------------------------------------------+
//| カスタム指標の計算を行う関数                                     |
//+------------------------------------------------------------------+
int OnCalculate(const int rates_total,
              const int prev_calculated,
              const datetime &time[],
              const double &open[],
              const double &high[],
              const double &low[],
              const double &close[],
              const long &tick_volume[],
              const long &volume[],
              const int &spread[])
 {
  //--- 配列を時系列に設定
  ArraySetAsSeries(time,false);  // time配列を時系列ではなく設定
  ArraySetAsSeries(open,false);  // open配列を時系列ではなく設定
  ArraySetAsSeries(high,false);  // high配列を時系列ではなく設定
  ArraySetAsSeries(low,false);   // low配列を時系列ではなく設定
  ArraySetAsSeries(close,false); // close配列を時系列ではなく設定

  //--- 処理されていないバーのループ
  for(int i=prev_calculated;i<rates_total;i++)  // 前回の計算からまだ処理していないバーを処理
    {
    //--- バッファの初期化
     open_buff[i]=0;   // 開始価格バッファを初期化
     high_buff[i]=0;   // 高値価格バッファを初期化
     low_buff[i]=0;    // 安値価格バッファを初期化
     close_buff[i]=0;  // 終値価格バッファを初期化
     color_buff[i]=0;  // カラーバッファを初期化

//--- 買われ過ぎデータがまだ残っているか確認
    if(ovb_ind<ovb_size)  // 買われ過ぎデータが残っている場合
        for(int j=ovb_ind;j<ovb_size;j++)  // 買われ過ぎデータをチェック
          {
          //--- 日付が一致する場合、バーが買われ過ぎ領域にある
          if(time[i]==ovb_time[j])  // バーの日時と買われ過ぎの日時が一致する場合
             {
              open_buff[i]=open[i];  // 開始価格をセット
              high_buff[i]=high[i];  // 高値価格をセット
              low_buff[i]=low[i];    // 安値価格をセット
              close_buff[i]=close[i];// 終値価格をセット
              color_buff[i]=0;       // 赤（0）をセット
              ovb_ind=j+1;           // インデックスを更新
              break;                 // ループを抜ける
             }
          }

  //--- 売られ過ぎデータがまだ残っているか確認
    if(ovs_ind<ovs_size)  // 売られ過ぎデータが残っている場合
        for(int j=ovs_ind;j<ovs_size;j++)  // 売られ過ぎデータをチェック
          {
          //--- 日付が一致する場合、バーが売られ過ぎ領域にある
          if(time[i]==ovs_time[j])  // バーの日時と売られ過ぎの日時が一致する場合
             {
              open_buff[i]=open[i];  // 開始価格をセット
              high_buff[i]=high[i];  // 高値価格をセット
              low_buff[i]=low[i];    // 安値価格をセット
              close_buff[i]=close[i];// 終値価格をセット
              color_buff[i]=1;       // 青（1）をセット
              ovs_ind=j+1;           // インデックスを更新
              break;                 // ループを抜ける
             }
          }
    }

  return(rates_total);  // 次回の計算に備えて現在のバー数を返す
 }