传递两个macro变量得到一个新的宏变量

传递两个macro变量
x为1 2 3 4
ctrl为1 或2 或1 2


希望得到新的宏变量




假设参比ctrl为1，剩下为2 3 4，构造出 一个宏变量为：
                           "2 vs 1"  -1 1 0 0,
                           "3 vs 1" -1 0 1 0,
                           "4 vs 1" -1 0 0 1


假设参比ctrl为2，剩下为1 3 4，构造出 一个宏变量为：
                          "1 vs 2"  1 -1 0 0,
                          "3 vs 2"  0 -1 1 0,
                          "4 vs 2"  0- 1  0 1


假设参比ctrl为1 2，剩下为3 4，构成出一个宏变量为：
                          "3 vs 1" -1 0 1 0,
                          "4 vs 1" -1 0 0 1，
                          "3 vs 2"  0 -1 1 0,
                          "4 vs 2" 0- 1  0 1

可以借助循环与数组完成：

1. %macro tri_vs_ctrl(total=,ctrl=);
   
2. %local tri;
   
3. %global _rst_;
   
4. %let tri=%cmpres(%sysfunc(compress(&total,%sysfunc(compress(&ctrl)))));
   
5. 
   
6. data _null_;
   
7.   array _par_[%sysfunc(countw(&total))]_temporary_;
   
8. 
   
9.   length text $1024.;
   
10.   do i=%sysfunc(tranwrd(&tri,%str( ),%str(,)));
    
11.     do j=%sysfunc(tranwrd(&ctrl,%str( ),%str(,)));
    
12.       call missing(of _par_[*]);
    
13.       _par_[i]=1;
    
14.       _par_[j]=-1;
    
15.       text=catx(',',text,quote(cat(i,' vs ',j))||''||catx('',of _par_[*]));
    
16.     end;
    
17.   end;
    
18.   call symputx('_rst_',tranwrd(text,'.','0'));
    
19. run;
    
20. %mend;

复制代码

调用示例如下：

1. %tri_vs_ctrl(total=1 2 3 4,ctrl=1);
   
2. %put &=_rst_;
   
3. _RST_="2 vs 1" -1 1 0 0,"3 vs 1" -1 0 1 0,"4 vs 1" -1 0 0 1
   
4. 
   
5. %tri_vs_ctrl(total=1 2 3 4,ctrl=2);
   
6. %put &=_rst_;
   
7. _RST_="1 vs 2" 1 -1 0 0,"3 vs 2" 0 -1 1 0,"4 vs 2" 0 -1 0 1
   
8. 
   
9. %tri_vs_ctrl(total=1 2 3 4,ctrl=1 2);
   
10. %put &=_rst_;
    
11. _RST_="3 vs 1" -1 0 1 0,"3 vs 2" 0 -1 1 0,"4 vs 1" -1 0 0 1,"4 vs 2" 0 -1 0 1

复制代码

你或许可以完全改用宏语句实现，就更为方便了。

假设参比ctrl为1 2，
ctrl为1，2 3 4
ctrl为2，3 4      (注2和1已比过)
构成出一个宏变量为：
                          "2 vs 1" -1 1 0 0,
                          "3 vs 1" -1 0 1 0,
                          "4 vs 1" -1 0 0 1，
                          "3 vs 2"  0 -1 1 0,
                          "4 vs 2" 0- 1  0 1

如果是&x为1 2 3 4，&ctrl为1 或2 或1 2。
当ctrl为1时，需得到的宏变量y为1-2!1-3!1-4
当ctrl为2时，需得到的宏变量y为2-1!2-3!2-4
当ctrl为1 2时，需得到的宏变量y为1-2!1-3!1-4!2-3!2-4

参考whymath的code，稍微修改了点code如下，
%macro tri_vs_ctrl(total=,ctrl=);
%local tri;
%global _rst_;
%let tri=&total.;
%let _rst_=;
%do i=1 %to %sysfunc(countw(&ctrl));
  %let num_i = %scan(&ctrl, &i);
  %let tri=%cmpres(%sysfunc(compress(&tri,%sysfunc(compress(&num_i)))));
  %do j=1 %to %sysfunc(countw( &tri ));
    %let num_j = %scan(&tri, &j);
    data _NULL_;
      length text $1024.;
      text=catx('!', "&_rst_.", catx('-', &num_i, &num_j));
      call symputx('_rst_',text);
    run;
  %end;
%end;
%put &=_rst_;
%mend;

结果
%tri_vs_ctrl(total=1 2 3 4,ctrl=1);
output: _RST_=1-2!1-3!1-4

%tri_vs_ctrl(total=1 2 3 4,ctrl=2);
output:_RST_=2-1!2-3!2-4

%tri_vs_ctrl(total=1 2 3 4,ctrl=1 2);
ouptut:_RST_=1-2!1-3!1-4!2-3!2-4