用SAS程序对C盘进行目录文件分类

厉害，厉害，厉害

1. dm "log;clear;output;clear;";
   
2. options noxwait;
   
3. 
   
4. x "dir c:\windows\ > d:/dirfiles.txt";
   
5. filename dirfiles "d:\dirfiles.txt";
   
6. 
   
7. data a;
   
8.         infile dirfiles truncover;
   
9.         input lines $ 1-200;
   
10.         lines=strip(lines);
    
11.         if _n_<=5 then delete;
    
12. run;
    
13. 
    
14. data a1;
    
15.         set a end=last1;
    
16.         if last1 then delete;
    
17. run;
    
18. 
    
19. data a2;
    
20.         set a1 end=last2;
    
21.         if last2 then delete;
    
22. run;
    
23. 
    
24. data dir file;
    
25.         set a2;
    
26.         if find(lines,'<DIR>') then output dir;
    
27.         else output file;
    
28. run;
    
29. 
    
30. proc print data=dir; run;
    
31. proc print data=file; run;

复制代码

zhengbo8 发表于 2015-10-14 16:22

谢谢！
谢谢！
谢谢！
重要的事情说三遍

加油啊