如何用macro实现？

牵你↗左手 发表于 2014-2-20 11:18
我根据他的思路写成了宏，输出数据集需要进行处理，删除空值观测，添加format

能否把"输出数据集需要进行处理，删除空值观测，添加format"补到你的程序中？谢谢！

牵你↗左手 发表于 2014-2-28 08:31
这是我的一个思路，可以改成宏的。

老师，你这个代码有问题。

1. data c;
   
2. retain sum a1 b1 c1 a2 b2 c2 a3 b3 c3;
   
3.    set aaa(rename=(a1=aa b1=bb c1=cc));
   
4.         by no;
   
5.      if first.no then sum=1;
   
6.      else sum+1;
   
7.          array a{3}$ a1-a3;
   
8.          array b{3} b1-b3;
   
9.          array c{3} c1-c3;
   
10.           if first.no then do i=1 to 3;
    
11.            a{i}=.;
    
12.            b{i}=0;
    
13.            c{i}=0;
    
14.           end;
    
15.           a{sum}=aa;
    
16.           b{sum}+bb;
    
17.           c{sum}+cc;
    
18.           if last.no ;
    
19.      keep no a1 b1 c1 a2 b2 c2 a3 b3 c3 ;

复制代码

dxystata 发表于 2014-3-2 04:33
能否把"输出数据集需要进行处理，删除空值观测，添加format"补到你的程序中？谢谢！

1. %macro aaa(dsin=,
   
2.            vars=,
   
3.            invars=,
   
4.            keepvars=,
   
5.            dsout=,
   
6.                    format=);
   
7.         %let vars_num=%sysfunc(countw(&vars.,' '));
   
8.         %let invars_num=%sysfunc(countw(&invars.,' '));
   
9.         %let i_num=%eval(&vars_num/&invars_num);
   
10.         %do i=1 %to &vars_num.;
    
11.                 %let value&i=%SYSFUNC(SCAN(&vars.,&i,' '));
    
12.         %end;
    
13.         %do j=1 %to &invars_num.;
    
14.                 %let name&j=%SYSFUNC(SCAN(&invars.,&j,' '));
    
15.         %end;
    
16.         data &dsout.;
    
17.                 set &dsin.;
    
18.                 keep &keepvars. &invars;
    
19.                 %do i=1 %to &i_num;
    
20.                         %do j=1 %to &invars_num;
    
21.                                 %let k=%eval(&j+(&i-1)*&invars_num);
    
22.                                 &&name&j=&&value&k;
    
23.                         %end;
    
24.                         output;
    
25.                 %end;
    
26.         run;
    
27.                 data &dsout.;
    
28.                         set &dsout.;
    
29.                         where &name1 ne '';
    
30.                         format &format.;
    
31.                 run;
    
32. %mend;
    
33. 
    
34. 
    
35. %aaa(dsin=aaa,
    
36.          vars=a1 b1 c1 a2 b2 c2 a3 b3 c3,
    
37.          invars=a1 b1 c1,
    
38.          keepvars=no,
    
39.          dsout=aaa1,
    
40.                  format=%str(b1 b1fmt. c1 c1fmt.));

复制代码

这样可不可以，多加了一个参数

龙潭丰乐 发表于 2014-3-2 11:14
老师，你这个代码有问题。

1. data c;
   
2. retain no a1 b1 c1 a2 b2 c2 a3 b3 c3 ;
   
3.    set aaa1(rename=(a1=aa b1=bb c1=cc));
   
4.         by no;
   
5.      if first.no then sum=1;
   
6.      else sum+1;
   
7.          array a{3}$ a1-a3;
   
8.          array b{3} b1-b3;
   
9.          array c{3} c1-c3;
   
10.                  if first.no then do i=1 to 3;
    
11.                         a{i}='';
    
12.            b{i}=.;
    
13.            c{i}=.;
    
14.                   end;
    
15.                  do i=1 to 3;
    
16.           if sum=i then do ;
    
17.            a{i}=aa;
    
18.            b{i}=bb;
    
19.            c{i}=cc;
    
20.           end;
    
21.          end;
    
22.           if last.no ;
    
23.      keep no a1 b1 c1 a2 b2 c2 a3 b3 c3 ;
    
24. run;

复制代码

你这么改一下就好了

学习拉

学习中

牵你↗左手 发表于 2014-3-3 08:23
这样可不可以，多加了一个参数

这样也行

1. %macro aaa(dsin=,
   
2.            vars=,
   
3.            invars=,
   
4.            keepvars=,
   
5.            dsout=,
   
6.                    format=);
   
7.         %let vars_num=%sysfunc(countw(&vars.,' '));
   
8.         %let invars_num=%sysfunc(countw(&invars.,' '));
   
9.         %let i_num=%eval(&vars_num/&invars_num);
   
10.         %do i=1 %to &vars_num.;
    
11.                 %let value&i=%SYSFUNC(SCAN(&vars.,&i,' '));
    
12.         %end;
    
13.         %do j=1 %to &invars_num.;
    
14.                 %let name&j=%SYSFUNC(SCAN(&invars.,&j,' '));
    
15.         %end;
    
16.         data &dsout.;
    
17.                 set &dsin.;
    
18.                 keep &keepvars. &invars;
    
19.                 %do i=1 %to &i_num;
    
20.                         %do j=1 %to &invars_num;
    
21.                                 %let k=%eval(&j+(&i-1)*&invars_num);
    
22.                                 &&name&j=&&value&k;
    
23.                         %end;
    
24.                                                 if not missing(&name1) then do;
    
25.                                                         format &format.;
    
26.                                                         output;
    
27.                                                 end;
    
28.                 %end;
    
29.         run;
    
30. %mend;

复制代码