SAS编程：如何获取某路径下文件的名称？

文章内容截取于SAS编程：Dopen系列函数介绍。

我使用以下路径文件进行演示，路径中有4个.sas文件、4个.log文件，以及1个文件夹，共9个文件。

过程涉及以下3个函数：

• DOPEN
• DNUM
• DREAD

1. DOPEN(fileref)

DOPEN函数的作用是，打开一个路径，并返回一个路径标识值 (Opens a directory, and returns a directory identifier value)。

这可以理解为，在一次SAS会话中，给路径发放身份证明，这个证明跟路径是一一对应的，就像人的身份证一样。人有了身份证，可以进行诸如乘高铁、坐飞机的活动，路径有了“身份证”，也可以进行一些特定的活动，例如获取一些路径属性信息。

DEOPEN函数的参数值是一个文件引用(fileref)，这个文件引用必须在调用函数前与特定的路径进行关联，常用的文件关联方式有两种：

第1种，全局filename语句：

filename dirpath "E:/99_Test/Test/test1";

第2种，filename函数：

data test;
  fileres = filename("dirpath", "E:/99_Test/Test/test1");
run;

如果关联成功，filename会返回0；如果关联失败，filename会返回非0值。

文件引用关联成功后，就可以使用DOPEN函数打开，函数在该SAS会话中，返回路径对应的“身份证号”。

**dopen;
%let dirpath = E:/99_Test/Test/test1;

data tmp;
    fileres = filename("dirpath","&dirpath"); 

    dirid = dopen("dirpath"); 
run;

Filename函数返回0值，说明文件引用关联成功。Dopen函数返回的路径“身份证号”的值为1。

其他信息可以参考SAS文档：SAS Help Center: DOPEN Function。

2. DNUM(directory-id)

DNUM函数的作用是，返回路径内文件数量(Returns the number of members in a directory)。

例如，演示路径下有9个文件，DNUM函数对该路径的“身份证号”进行处理，返回值应该是9。

**dnum;
%let dirpath = E:/99_Test/Test/test1;

data tmp;
    fileres = filename("dirpath","&dirpath."); 

    dirid = dopen("dirpath"); 
    num = dnum(dirid);
run;

其他信息可以参考SAS文档：SAS Help Center: DNUM Function

3. DREAD(directory-id, nval)

DREAD函数的作用是，读取路径下文件的名称(Returns the name of a directory member)。这是获取文件名称的主要步骤。

DREAD函数有2个参数，一个是路径的“身份证号”，一个是路径内文件的位序，文件位序的排序为文件名的字符排序。

演示路径下有9个文件，对应的，也就是可以读取到9个文件的名称。

**dread;
%let dirpath = E:/99_Test/Test/test1;

data tmp;
    fileres = filename("dirpath","&dirpath."); 

    dirid = dopen("dirpath."); 

    length direct filename filepath $200;
    
    direct = "&dirpath";

    ord = 1;
    filename =dread(dirid, 1); 
    filepath = catx("/", direct, filename);
    output;

    ord = 2;
    filename =dread(dirid, 2); 
    filepath = catx("/", direct, filename);
    output;

    ……

    ord = 9;
    filename =dread(dirid, 9); 
    filepath = catx("/", direct, filename);
    output;
run;

一一读取文件比较繁琐，由于DNUM函数可以获取路径内文件数目，基于此可以使用Do循环进行读取文件名称，路径名称与文件名拼接可以获得文件路径。

**dread;
%let dirpath = E:/99_Test/Test/test1;

data tmp;
    fileres = filename("dirpath","&dirpath."); 

    dirid = dopen("dirpath"); 
    num = dnum(dirid);

    length direct filename filepath $200;
    
    direct = "&dirpath.";

    if dirid > 0 then do;
      do i = 1 to num;
        filename = dread(driid, i);
        filepath = catx("/", direct,filename);
        ord = i;
        output;
      end;
    end;

    drop i;
run;

循环读入结果与上面相同。

其他信息可以参考SAS文档：SAS Help Center: DREAD Function。

以上步骤，就完成了使用SAS获取路径中的文件名称，如果想筛选特定后缀的文件，直接在数据集中进行筛选。

相关阅读：
SAS编程：Dopen系列函数介绍
SAS编程：Fopen系列函数介绍

感谢阅读， 欢迎关注！
若有疑问，欢迎评论交流！