在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 收藏11 回帖

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

谢谢总结

不幸的是EXECFILEPATH和EXECFILENAME仅仅是增强型编辑器的环境变量，对于批处理方式无效

leptonyu 发表于 2013-7-11 00:41
不幸的是EXECFILEPATH和EXECFILENAME仅仅是增强型编辑器的环境变量，对于批处理方式无效

嗯，应该是
大牛有其他好办法吗？

没有 windows下 反正都是增强型编辑器里面运行 够用了

修改cfg文件，SAS9.3通常在目录C:\Program Files\SASHome\SASFoundation\9.3\nls\zh下sasv9.cfg，在文件末尾增加下面语句可以配置你的环境，比如宏目录设置，格式，逻辑库等，‘.’表示相对路径，也就是你的大工程文件下要复制这个cfg文件

1. -INITSTMT '        libname myauto "./AUTO_RUN";
   
2.                         options MSTORED SASMSTORE=myauto fmtsearch=(myauto) noxwait noxsync;
   
3.                         libname datadir "./DataDir";
   
4.                         libname syslib "./WorkDir";
   
5.                         libname worklib "./ModelDir/work";
   
6.                         libname temp "./ModelDir/temp";'

复制代码

最后用批处理的方式启动sas，autoexe.bat代码如下（这个文件也需要在你的大工程目录下，sas.exe文件可能要根据你sas安装的具体位置改动，这里以sas9.3默认位置为例）：

1. "C:\Program Files\SASHome\SASFoundation\9.3\sas.exe" -config "%cd%\sasv9.cfg"

复制代码

这方法可以实现真的很赞，但是我这运行还有有问题呢，您可以分别就这四种情形，=Path，=FullPath，=FileNameAndExt，=FileName，给我演示一下如何运行吗？
这个宏是用于变相得到相对路径引用，为什么还是输入Type这个路径或者文件名呢？
谢谢大牛~~~