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 "-- Dir 实例类 --------------"
#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 包含了文件夹的路径，它比运行终端目录的标准位置高两层，并且我们(如果没有使用 /portable(可移动) 选项) 可以获得包含所有终端用户用户数据的目录路径。

用心的读者可能会说我们做得多了 - 只要向上一层就能得到正确的目录，但是如果我们转到了另一个目录会怎么样呢，比如转到 Crashes(崩溃) 或者 Tester(测试器)目录?这里是一个更有说服力的实例，

让我们回顾例子代码。

/---    
   total = Dir.Create(path);       // 初始目录
   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 ("可以访问:");
    total = Dir.Size(); 
    Print (Dir.Path," 总数=",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)?"--- 子目录 ---": 
                         IntegerToString(Dir.GetFileLength(i),14)),
    "\t   最后修改时间: ",Dir.GetLastWriteTime(i));
    }
//---    
    Dir.Clear();  

打印目录内容部分的实例 (使用的是选择了以M开头的元素) 演示了操作类成员的其他方法。

在下面部分代码中，我们检查特定的文件是否存在以及查看它的长度。

//---  用于检查文件
    path="C:";
    Print("------------ 用于检查文件 ---------------------");
    stringfilter="\\pagefile.sys";
    Dir.Create(path,filter);
    total=Dir.Size();
    PrintFormat("找到了 %d 记录.",total);
    if(total>0)
      for(i =0;i<total;i++)Print("文件搜索 \"",path,filter,
        "\" 返回:",Dir.isDir(i)?"--- 子目录 ---  "+
        Dir.GetNameFile(i):Dir.GetNameFile(i)+
        IntegerToString(Dir.GetFileLength(i),14)+" byte. \t",
        StringFormat("属性=%X",Dir.GetAtributes(i)));
    else  Print("文件 ",path,filter," 不存在.");
//---
    Dir.Clear();              

测试脚本的最后是使用类实例的引用来保存目录内容元素:

  //--- 使用指针来访问数据
   path="C:\\Temp";
    //---------------------> 声明指针
    CDir_API *e;
  
    Print("------ 指针应用实例. --------");
    total =Dir.Create(path);
    PrintFormat("%s       找到了 %d 记录.",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?"-子目录-":""),
          e.FileDef.isDir?"         ":
          IntegerToString(e.FileDef.FileLength,12),"   ",
          e.FileDef.CreationTime,"     ",
          e.FileDef.LastWriteTime,"     ",
          e.FileDef.LastAccessTime);
      }  
    else  Print("文件 ",path,filter," 不存在.");
//---
    Dir.Clear();
    Print("------------- 结束. -----------------------");
}
//+------------------------------------------------------------------+

我不怀疑大部分读者都将使用这个方法来在他们的工作中访问类成员,

可能还需要额外的信息来了解属性:

我希望这个例子和类本身会对您有用。

赶紧试试吧!