在SAS中实现相对路径引用

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

如果用SAS写一个比较大的工程

全部放在一个SAS文件里，看起来会很麻烦

并且SAS自带的编辑器极端难用，也不会自动折叠什么的

于是想到了把一个长代码拆成若干小代码，然后用%include调用，如下所示：

1. %include "d:\temp\a.sas";

复制代码

      这时出现的问题就是SAS能否实现相对路径引用，这样你的代码不论移到哪个文件夹，都可以直接调用，不用再修改路径名称了。

      于是我在网上查了下，发现直接实现应该无望，于是用了下面折衷的办法，用一个宏得到当前的活动文件夹路径宏变量，然后就可以在%include中使用了

1. %macro GetCurrentPath(Type,OutputVar);
   
2. 
   
3. /**********************************************************************/
   
4. /* 此宏用于得到当前活动路径或文件名。其中，Type是标记变量，=Path表示  */
   
5. /* 不包括文件名的路径，以\结尾，=FullPath表示全部路径，=FileNameAndExt*/
   
6. /* 表示包含扩展名的全部文件名，=FileName表示文件名；OutputVar是输出的 */
   
7. /* 宏变量名称。此宏主要用于变相得到相对路径引用。                     */
   
8. /*                                                                    */
   
9. /* 最终得到的是当前活动路径或文件名的宏变量&OutputVar。               */
   
10. /*                                                                    */
    
11. /**********************************************************************/
    
12. 
    
13. /* 检查Type的合法性 */
    
14. %if (%UPCASE(&Type) NE PATH) AND (%UPCASE(&Type) NE FULLPATH) AND (%UPCASE(&Type) NE FILENAMEANDEXT) AND (%UPCASE(&Type) NE FILENAME) %then %do;
    
15.         %put ERROR: The Type should be Path, FullPath, FileNameAndExt or FileName, case insensitive and without quotes.;
    
16.         %goto exit;
    
17. %end;
    
18. 
    
19. /* 检查OutputVar的存在性 */
    
20. %if &OutputVar EQ %STR() %then %do;
    
21.     %put ERROR: The OutputVar should not be blank, please check it again.;
    
22.     %goto exit;
    
23. %end;
    
24. 
    
25. %global &OutputVar;
    
26. 
    
27. /* 开始进行计算 */
    
28. %if %UPCASE(&Type) EQ PATH %then %do;
    
29.         %let &OutputVar=%QSUBSTR(%SYSGET(SAS_EXECFILEPATH),1,%LENGTH(%SYSGET(SAS_EXECFILEPATH))-%LENGTH(%SYSGET(SAS_EXECFILENAME)));
    
30. %end;
    
31. %else %if %UPCASE(&Type) EQ FULLPATH %then %do;
    
32.         %let &OutputVar=%SYSGET(SAS_EXECFILEPATH);
    
33. %end;
    
34. %else %if %UPCASE(&Type) EQ FILENAMEANDEXT %then %do;
    
35.         %let &OutputVar=%SYSGET(SAS_EXECFILENAME);
    
36. %end;
    
37. %else %if %UPCASE(&Type) EQ FILENAME %then %do;
    
38.         %let &OutputVar=%QSUBSTR(%SYSGET(SAS_EXECFILENAME),1,%LENGTH(%SYSGET(SAS_EXECFILENAME))-%LENGTH(%SCAN(%SYSGET(SAS_EXECFILENAME),-1,%STR(.)))-1);
    
39. %end;
    
40. 
    
41. %exit:
    
42. %mend;

复制代码

扫码加我 拉你入群

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

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

分享0 收藏4 回帖

关键词：相对路径 Sensitive filename include CURRENT 中实 相对路径 引用 sas

感谢分享

好贴，谢谢分享。