CDir (MT5) - die Klasse für das Erhalten des Titels des Katalogs - Bibliothek für den MetaTrader 5

Manchmal entsteht die Notwendigkeit, die Grenzen "des Sandkasten" zu überschreiten und den Titel des Katalogs zu lesen, das Vorhandensein der Datei oder des Katalogs im Dateisystem zu prüfen. Auch kann es gefordert werden, die Attribute der Datei oder des Verzeichnisses, den Umfang der Datei, die Zeit ihrer Erstellung, den letzten Zugang zu ihr oder die Aufzeichnung zu erfahren. Das Beispiel der möglichen Lösung solcher Aufgaben wird durch diesen Code vorgestellt:

Der Standardprolog und die Beschreibung der Variable, sowie der Link zum Anfangscode der hinzugefügten Klasse #include <win_api\dir_api.mqh> - ist ein offenbarer Hinweis dem Compiler, dass diese Datei im Verzeichnis \MQL5\Include\WIN_API gesucht werden soll. Sie sind frei, diesen Link je nach Ihren Präferenzen in der Organisation der Arbeit mit den hinzugefügten Dateien zu ändern, abgesehen von Dokumentation .

//+------------------------------------------------------------------+
//|                                            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> 
//+------------------------------------------------------------------+
//| Script program start function                                    |
//+------------------------------------------------------------------+
void OnStart()
  {
   File_Def File;            // work structure
   CDir Dir; int total,i;     
   string path = TerminalInfoString(TERMINAL_COMMONDATA_PATH)+
               "\\..\\..\\Terminal";
//---    
  

Wie wir sehen, enthält die Zeile-Variabel path den Weg zum Ordner, der sich auf zwei Ebenen höher als die Standardanordnung des Katalogs des gestarteten Terminales befindet, und wir werden (falls die Option /portable nicht verwendet wurde) den Weg zum Katalog bekommen, der die Anwenderdaten aller Kundenterminale dieses Benutzers enthält.

Der nachdenkliche Leser wird sagen, dass wir die überflüssigen Körperbewegungen machen - genug wäre, auf eine Ebene höher zu steigen, und wir sind im nötigen Katalog. Ja, aber was ist, wenn wir wollen, die Navigation zu einem anderen Katalog zu verwirklichen - zum Beispiel: Crashes oder Tester? Für unser Beispiel, es ist lehrreicher.

Wir gehen zum Code des Beispiels zurück.

/---    
   total = Dir.Create(path);       // init dir
   Print (path," Total=",total-3); //Common,Help && Community not calc
    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(); 
//---    

Wenn wir ein Exemplar der Klasse erstellen, wir werden in der Variabel total die Anzahl der Elemente (der Dateien oder der Unterverzeichnisse) bekommen. Wenn wir schon die Loop erstellt haben, drucken wir die Kataloge-Liste der Terminalen (überspringend die allgemeinen Verzeichnisse). Den Zugang zu den Daten des Exemplars illustrieren wir durch den Zugang zur Kopie der Arbeitsstruktur der Klasse-Daten File.

  path=TerminalInfoString(TERMINAL_PATH)+
              "\\..";
    Dir.Create(path,"\\M*");   // use filter "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();  

Auf dem Beispiel des Ausdrucks des Titel-Teiles des Verzeichnisses (wird die Selektionen der Elemente verwendet, die am Anfang des Namens den Buchstaben M enthalten) werden andere Methoden der Arbeit mit den Elementen der Klasse demonstriert.

Und zunächst ist der Teil des Kodes, wo wir das Vorhandensein der konkreten Datei prüfen und ihre Länge erfahren.

//---  Use to check the file
    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();              

Wir beenden den Test-Skript mit dem Beispiel der Link-Verwendung auf dem Exemplar der Klasse der Elementen-Speicherung des Titels des Verzeichnisses:

  //--- use pointer to access data
   path="C:\\Temp";
    //---------------------> pointer declarate
    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. -----------------------");
}
//+------------------------------------------------------------------+

Ich bezweifle nicht, dass die Mehrheit der Leser gerade diese Weise des Zuganges zu den Daten der Klasse in der Arbeit benutzen werden.

Für das Entziffern der Attribute kann die zusätzlichen Angaben gefordert werden:

Ich hoffe, dass dieses Beispiel, wie auch die Klasse Ihnen nützlich sein wird, und ich war nicht langweilig mit meinen Erklärungen... ;)

Viel Spaß!