SAS编程：如何获取某路径下文件的名称？
文章内容截取于SAS编程：Dopen系列函数介绍。
我使用以下路径文件进行演示，路径中有4个.sas文件、4个.log文件，以及1个文件夹，共9个文件。
Directory
过程涉及以下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;
Dopen
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;
dnum
其他信息可以参考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;
Dread
一一读取文件比较繁琐，由于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系列函数介绍
感谢阅读， 欢迎关注！
若有疑问，欢迎评论交流！
