SAS Macro小技巧—获取文件路径

浮光掠影转瞬间

给大家分享一下SAS Macro获取文件路径的技巧！
获取路径有哪些用途呢：如果路径都用宏变量表示，当文件夹的物理路径发生变化时，都还是可以直接运行程序！不需要修改成程序

代码：

1. %macro getpath;
   
2. 
   
3. %global currentroot PGMLIB Path Project;
   
4. 
   
5. %let currentroot= %sysfunc(getoption(sysin));
   
6. 
   
7. %if "¤troot;" eq "" %then %do;
   
8. 
   
9. %let currentroot= %sysget(sas_execfilepath);
   
10. 
    
11. %let Path=%sysfunc(PRXCHANGE(s/(.*)\\.*/\1/,-1,¤troot;));
    
12. 
    
13. %end;
    
14. 
    
15. %let PGMLIB=&Path.;\macro\;
    
16. 
    
17. %put NOTE:PGMLIB =&PGMLIB.;
    
18. 
    
19. %put NOTE:Path   =&Path.;
    
20. 
    
21. %inc "&PGMLIB.;\*.sas";
    
22. 
    
23. %mend;
    
24. 
    
25. %getpath;

复制代码

如上：定义的 & Path。 为SAS程序所在路径。（如上代码可以直接复用）


SAS 创建文件夹：<前面是文件名，后面是路径>如下代码：

这样做的的好处是啥呢，每次运行数据或者数据集想实现自动存下来，这个时候就可以用SAS自动创建文件夹的方式来存储。



/*获取系统时间*/


data _null_;

call symput("date",left(compress(put("&sysdate;"d,yymmdd10.),"-"," ")));

run;

/*以时间命名的新建文件夹*/


data _null_;

    NewDir=dcreate("&date.","D:\");

run;


proc Sql 定义Macro变量的实现语法批操作。

<如果我们需要在data step中对某一类变量实现类似的操作>



<如：很多变量都有类似的 if 语句的判断>

first:

proc  contnets 获取变量列表 并筛选出你需要变量。

利用data Step  对name 进行一些连接




data _varstemp12;

set _varstemp10;

NAME1=strip(left("input("))||strip(left(NAME))||strip(",??yymmdd10.)");

Cond="if length("||strip(left(NAME))||")=7 then "|| strip(NAME)||left("=compress("||strip(NAME)||left("||'-15')"));

run;

对所有不完整日期的变量进行补充“-15”操作



  proc sql noprint;

    select NAME1 into:varlist1 separated by ";" from DATALIB._varstemp12   ;

  quit;

data RAWDATA2;

set RAWDATA1;

&varlist1.;

run;

如上：
讲语句都封装在宏变量里面，直接调用宏变量，就可以执行了。