输入文件名

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

例如有300份文件，需要将这些文件的文件名作为源数据导入到一个数据集中，请问该怎么编程呢？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：文件名 数据导入 怎么编程 数据集 输入 文件

1. options noxwait xsync;
   
2. x "dir C:\windows > C:\dir.txt";
   
3. /*用X命令将文件夹crackman下的所有文件的基本信息存储在该文件夹下dir.txt文本中*/
   
4. 
   
5. 
   
6. data ReadFile(drop=DateString);
   
7. infile "C:\dir.txt" firstobs=8 missover;/*读取文本信息，从文本的第八行开始读取*/
   
8. input DateString $ 1-10 @;/*读取的第一个变量，变量长度为10，注意@符号的价值*/
   
9. if DateString="" then stop;
   
10. input @1 Date : yymmdd10.  Time & : time. /*注意冒号的使用，具体可以看看文章http://crackman.net/?p=651*/
    
11. Bytes : comma. FileName : $64.;
    
12. format Date mmddyy10. Time timeampm8. Bytes comma18.;
    
13. run;
    
14. x “erase C:\dir.txt”; /*释放对文件夹的占用*/
    
15. 
    
16. /*这个方法比较传统，而且每次执行都要反复执行X命令，但是我们在运行中由于设置了NOXWAIT参数，所有没有等待我们去看到弹出来的DOS运行窗口。*/
    
17. 
    
18. 
    
19. 
    
20. 
    
21. /*第二种方法：用PIPE*/
    
22. options noxwait xsync;
    
23. filename dirpipe pipe "dir c:\windows";/*建立管道，获取文件夹crackman下文件的信息并放在dirpipe中，dirpipe是一个
    
24. 虚拟的文件，随着pipe的建立而建立，pipe的断开而消失*/
    
25. data ReadPipe(drop=DateString);
    
26. infile dirpipe firstobs=8 truncover;
    
27. input DateString $ 1-10 @;
    
28. if DateString="" then stop;
    
29. input @1 Date : yymmdd10. Time : time.
    
30. Bytes : comma. FileName : $64.;
    
31. format Date mmddyy10. Time timeampm8. Bytes comma18.;
    
32. run;
    
33. filename dirpipe clear;
    
34. 
    
35. /*其实第二种方法比第一种方法要好，没有额外的文件生成，比第一个方法要简单。*/
    
36. 
    
37. /*如果仅仅要获得文件名，在dir命令后加选项/b   dir c:\windows/b */
    
38. /*程序如下：*/
    
39. 
    
40. options noxwait;
    
41. filename hello pipe "dir C:\windows /b";
    
42. data files;
    
43. infile hello pad; /*也可以使用truncover选项，但不能使用missover选项，不知道为什么*/
    
44. input file $ 1-64;
    
45. run;
    
46. filename hello clear;

复制代码

Imasasor 发表于 2012-8-28 20:13

thanks~

Imasasor 发表于 2012-8-28 20:13

不错不错，学习学习