CDir (MT5) - ディレクトリの内容を取得するクラス - MetaTrader 5のためのライブラリ

ファイルシステム内のファイルやディレクトリの存在を確認するために、サンドボックス外の内容を読み取る必要がある場合があります。また、ファイルやディレクトリの属性、ファイルサイズ、作成時間、最後のアクセス権、または書き込みを見つける必要があるかもしれません。次のコードは、これらの問題を解決する方法の例を示しています。

コンパイラが暗黙の指示を受けて、#include <WIN_API \ Dir_API.mqh>インクルードクラスのソースコードへのリンク、標準的なプロローグと変数の記述のために\MQL5\Include\WIN_APIフォルダを検索します。文書に従ってインクルードファイルを使った操作を整理する際の好みに応じて、このリンクは自由に変更することができます。

//+------------------------------------------------------------------+
//|                                            ExampleDirClass.mq4/5 |
//|                                        Copyright © 2017, Avatara |
//|                            https://www.mql5.com/en/users/avatara |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2017, Avatara"            2017/02/12
#property link      "https://www.mql5.com/en/users/avatara"
#property description "-- Example Dir Class --------------"
#property strict
#include <WIN_API\Dir_API.mqh> 
//+------------------------------------------------------------------+
//| スクリプトプログラム開始関数                                         |
//+------------------------------------------------------------------+
void OnStart()
  {
   File_Def File;            // 作業の構造
   CDir Dir; int total,i;     
   string path = TerminalInfoString(TERMINAL_COMMONDATA_PATH)+
               "\\..\\..\\Terminal";
//---    
  

ご覧のように、path文字列変数には実行中のターミナルディレクトリの標準位置より2つ上のフォルダへのパスが含まれていて、（/portable オプションは使用されていない場合）そのユーザーのすべてのクライアント端末のユーザーデータを含むディレクトリへのパスが取得されます。

思慮深い読者は、正しいディレクトリに行くためには1レベル上げるだけで十分で、私たちは余計なことをしているとおっしゃるでしょう。しかし、Crashesや Testerのような別のフォルダに移動する場合はどうでしょうか？これはより有益な例です。

例のコ―ドに戻ってみます。

/---    
   total = Dir.Create(path);       // initディレクトリ
   Print (path," Total=",total-3); //Common、Help && Community で計算ではない
    for (i = 0;i<total;i++)
    {
     string nameFile = Dir.GetNameFile(i);
     if(nameFile == "Common"||nameFile=="Help"||nameFile=="Community")
                                                              continue;
     File = Dir.GetStruct(i);
     Print (StringFormat ("%37s \t%8X\t  %5s\t",nameFile,
     File.FileAttributes,File.isDir?"-SubDir-":""),
     File.isDir?"            ":IntegerToString(File.FileLength,12),
     File.CreationTime,"     ",File.LastWriteTime,"     ",
     File.LastAccessTime);
    }
    Dir.Clear(); 
//---    

クラスインスタンスを作成したら、total変数に要素（ファイルとサブディレクトリ）の数を受け取ります。ループを編成することで、端末のディレクトリのリストを印刷することができます（共有ディレクトリは抜かします）。Fileクラスの作業データ構造体のコピーにアクセスして、インスタンスデータへのアクセスを説明しましょう。

  path=TerminalInfoString(TERMINAL_PATH)+
              "\\..";
    Dir.Create(path,"\\M*");   // "M*"フィルタを使用する       
    Print ("Alternative access:");
    total = Dir.Size(); 
    Print (Dir.Path," Total=",total);
    for (i = 0;i<total;i++)
    {
    Print  (StringFormat("%57s \t%8X \t %s \t",Dir.GetNameFile(i), 
                         Dir.GetStruct(i).FileAttributes,
                         Dir.isDir(i)?"--- SubDir ---": 
                         IntegerToString(Dir.GetFileLength(i),14)),
    "\t   Last modify: ",Dir.GetLastWriteTime(i));
    }
//---    
    Dir.Clear();  

ディレクトリ内容の一部を印刷する例（冒頭にM文字を含む要素の選択を使用）は、クラスメンバと作業するための他のメソッドを示しています。

コードの次の部分では、特定のファイルの存在を確認し、その長さを調べます。

//---  ファイルの確認に使用する
    path="C:";
    Print("------------ Use to check the file ---------------------");
    stringfilter="\\pagefile.sys";
    Dir.Create(path,filter);
    total=Dir.Size();
    PrintFormat("Find %d entry.",total);
    if(total>0)
      for(i =0;i<total;i++)Print("File search \"",path,filter,
        "\" is return:",Dir.isDir(i)?"--- SubDir ---  "+
        Dir.GetNameFile(i):Dir.GetNameFile(i)+
        IntegerToString(Dir.GetFileLength(i),14)+" byte. \t",
        StringFormat("Atributes=%X",Dir.GetAtributes(i)));
    else  Print("File ",path,filter," is absent.");
//---
    Dir.Clear();              

テストスクリプトは、ディレクトリ内容要素を格納しているクラスのインスタンスへの参照を使用する例で終了します。

  //--- データアクセスにポインタを使用する
   path="C:\\Temp";
    //---------------------> ポインタの宣言
    CDir_API *e;
  
    Print("------ Pointer use example. --------");
    total =Dir.Create(path);
    PrintFormat("%s       Find %d entry.",path,total);
    if(total>0)
      for(i =0;i<total;i++)
      {
      e=Dir.GetPointers(i);
      Print(StringFormat("%77s \t%8X\t  %5s\t ",e.Name_File,
          e.FileDef.FileAttributes,e.FileDef.isDir?"-SubDir-":""),
          e.FileDef.isDir?"         ":
          IntegerToString(e.FileDef.FileLength,12),"   ",
          e.FileDef.CreationTime,"     ",
          e.FileDef.LastWriteTime,"     ",
          e.FileDef.LastAccessTime);
      }  
    else  Print("File ",path,filter," is absent.");
//---
    Dir.Clear();
    Print("------------- The end. -----------------------");
}
//+------------------------------------------------------------------+

ほとんどの読者が、このメソッドを使用してクラスデータにアクセスすることは間違いありません。

属性を理解するためには追加情報が必要な場合があります。

私はこの例とクラスそのものがあなたに役立つことを願っています。

お楽しみ下さい。