求助怎样将一个目录下的doc文件名与文件标题一一读出来！

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

怎样用SAS将一个目录下的doc文件名与文件标题一一读出来，谢谢！

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：DOC文件 文件名 doc

前者用pipe
类似

1. filename xx pipe "dir e:\*.doc /b";
   
2. data _null_;
   
3.         infile xx;
   
4.         input str:$100.;
   
5.         put _all_;
   
6. run;

复制代码

后者完全不会，坐等高人出现......

首先对这个问题感兴趣，所以搜索了下相关资料，贴出来给点思路，以便楼下讨论。

1. filename readdoc1 dde
   
2. "winword|c:\n0321\sapa00321.doc!FirstListOfTitles"
   
3.        notab;
   
4. 
   
5. filename readdoc2 dde
   
6. "winword|c:\n0321\sapa00321.doc!SecondListOfTitles"
   
7.        notab;
   
8. 
   
9.         data sasuser.titles1;
   
10.         infile readdoc1 end=eof truncover;
    
11.         input @1 title $char200.;
    
12.         run;
    
13. 
    
14.         data sasuser.titles2;
    
15.         infile readdoc2 end=eof truncover;
    
16.         input @1 title $char200.;
    
17.         run;
    
18. 
    
19. data sasuser.Titles_In_SAP;
    
20. set sasuser.titles1
    
21.      sasuser.titles2;
    
22. if substr(title,1,2) in('14','16');
    
23. first_space=index(title,' ');
    
24. title_number=substr(title,1,first_space-1);
    
25. title=substr(title,first_space+1);
    
26. title=tranwrd(title,'Data Listing','Listing');
    
27. title=tranwrd(title,'Subject ','Subjects');
    
28. run;
    
29. proc sort data=sasuser.Titles_In_SAP out=Titles_In_SAP;
    
30. by title;
    
31. run;
    
32. 
    
33. data sasuser.Titles_In_Docs;
    
34. set a00321_doc_titles;
    
35. path="r:\products\efz\a00321\stat\analysis\info\deliverables\20011202
    
36. - draft1\"||substr(filename,1,3)||'doc\';
    
37. title=tranwrd(title,'Populatio','Population');
    
38. title=tranwrd(title,'Data Listing','Listing');
    
39. title=tranwrd(title,'Subject ','Subjects');
    
40. 
    
41. run;
    
42. 
    
43. proc sort data=sasuser.Titles_In_Docs  out=Titles_In_Docs;
    
44. by title;
    
45. run;
    
46. 
    
47. 
    
48. data SAPonly
    
49.      Docsonly
    
50.      both;
    
51. merge Titles_In_SAP(in=inSAP)
    
52.       Titles_In_Docs(in=inDocs);
    
53. by title;
    
54. if inSAP & inDocs then output both;
    
55. else if inSAP & ^ inDocs then output SAPonly;
    
56. else if ^inSAP & inDocs then output Docsonly;
    
57. run;

复制代码

用通道技术（pipe）
给你个例子参考吧 ，应该还要完善一下。在linux下命令要换一下的。

1. filename f pipe "dir -R D:\base_tt\test";
   
2. data resdat (drop = location name info msg);
   
3.         length sasname $50.;
   
4.         infile f ;
   
5.         input name info msg sasname;
   
6.         location = index(sasname,'.');
   
7.         if substr(sasname,location+1) = 'sas7bdat';
   
8.         sasname = substr(sasname,1,location-1);
   
9. run;
   
10. 
    
11. 
    
12. 
    
13. /*将sas代码写入临时文件集*/
    
14. filename labelref catalog "work.C.sdb.source";
    
15. filename SASRes pipe "dir -r D:\base_tt\test";
    
16. data _null_;
    
17. file labelref LRECL=500;
    
18. 
    
19. str='data resdat (drop = location name info msg);';
    
20. put str;
    
21. str='length sasname $50.;';
    
22. put str;
    
23. str='infile SASRes;';
    
24. put str;
    
25. str='input name info msg sasname;';
    
26. put str;
    
27. str="location = index(sasname,'.');";
    
28. put str;
    
29. str='if substr(sasname,location+1) = "sas7bdat";';
    
30. put str;
    
31. str='sasname = substr(sasname,1,location-1);';
    
32. put str;
    
33. str='run;';
    
34. put str;
    
35. 
    
36. 
    
37. 
    
38. 
    
39. run;
    
40. /*执行source中的sas code*/
    
41. %include labelref /source;
    
42. 
    
43. /*取消临时目录的引用*/
    
44. filename labelref clear;

复制代码

上面两段分开

谢谢各位，下来研究研究！