輸入文件名

是 否 +2 論壇幣

k人 參與回答

經(jīng)管之家送您一份

應(yīng)屆畢業(yè)生專屬福利!

求職就業(yè)群

趙安豆老師微信：zhaoandou666

經(jīng)管之家聯(lián)合CDA

送您一個全額獎學金名額~ !

立即領(lǐng)取

感謝您參與論壇問題回答

經(jīng)管之家送您兩個論壇幣！

+2 論壇幣

例如有300份文件，需要將這些文件的文件名作為源數(shù)據(jù)導入到一個數(shù)據(jù)集中，請問該怎么編程呢？

掃碼加我 拉你入群

請注明：姓名-公司-職位

以便審核進群資格，未注明則拒絕

分享0 收藏1 回帖

關(guān)鍵詞：文件名 數(shù)據(jù)導入 怎么編程 數(shù)據(jù)集 輸入 文件

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. /*這個方法比較傳統(tǒng)，而且每次執(zhí)行都要反復執(zhí)行X命令，但是我們在運行中由于設(shè)置了NOXWAIT參數(shù)，所有沒有等待我們?nèi)タ吹綇棾鰜淼腄OS運行窗口。*/
    
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 發(fā)表于 2012-8-28 20:13

thanks~

Imasasor 發(fā)表于 2012-8-28 20:13

不錯不錯，學習學習