文章内容截取于SAS编程：Dopen系列函数先容。
我利用以下路径文件举行演示，路径中有4个.sas文件、4个.log文件，以及1个文件夹，共9个文件。
过程涉及以下3个函数：
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系列函数先容
感谢阅读， 欢迎关注！
如有疑问，欢迎品评互换！ |
