如何在宏中实现差值？

%macro diff(a=,b=,);
......

%mend;

a b 传递数据集的变量，得到&a-&b的差值
a为x0 ，b为x1                  则为x0-x1
a为x0 ，b为x1 x2              则为x0-x1 x0-x2        需要循环
a为x1 x2 ，b为x0              则为x1-x0 x2-x0        需要循环
a为x0 y0 ，b为x1 y1          则为x0-x1 y0-y1        需要循环


a为x0 y0 ，b为x1 y1 x2 y2 则为x0-x1 y0-y1  x0-x2 y0-y2   需要循环
a为x1 y1 x2 y2 ，b为x0 y0 则为x1-x0 y1-y0  x2-x0 y2-y0   需要循环
或
a为x0 y0 ，b为x1 y1\x2 y2 则为x0-x1 y0-y1  x0-x2 y0-y2   需要循环
a为x1 y1\x2 y2 ，b为x0 y0 则为x1-x0 y1-y0  x2-x0 y2-y0   需要循环



也可能是
a为x4 y4，    b为x1 y1\x2 y2\x3 y3
a为x4 y4 z4，b为x1 y1 z1\x2 y2 z2\x3 y3 z3

如何在宏中实现？要求程序具有通用性。

1. %macro diff(a=, b=);
   
2. %local i j k1 k2;
   
3. %local Sa Sb Str;
   
4. %local Na Nb La Lb;
   
5. %let Na = %sysfunc(countw(&a, \));
   
6. %let Nb = %sysfunc(countw(&b, \));
   
7. 
   
8. %do i=1 %to %sysfunc(max(&Na, &Nb));
   
9.         %let j = %eval(&i - (&i-1)/&Na*&Na);
   
10.         %let Sa = %scan(&a, &j, \);
    
11.         %let j = %eval(&i - (&i-1)/&Nb*&Nb);
    
12.         %let Sb = %scan(&b, &j, \);
    
13.        
    
14.         %let La = %sysfunc(countw(&Sa, %str( )));
    
15.         %let Lb = %sysfunc(countw(&Sb, %str( )));
    
16.        
    
17.         %do j=1 %to %sysfunc(max(&La, &Lb));
    
18.                 %let k1 = %eval(&j - (&j-1)/&La*&La);
    
19.                 %let k2 = %eval(&j - (&j-1)/&Lb*&Lb);
    
20.                 %let Str = &Str %scan(&Sa, &k1, %str( ))-%scan(&Sb, &k2, %str( ));
    
21.         %end;       
    
22. %end;       
    
23. %put str=&str;
    
24. %mend;
    
25. 
    
26. %diff(a=x0, b=x1)
    
27. %diff(a=x0, b=x1 x2)
    
28. %diff(a=x1 x2, b=x0)
    
29. %diff(a=x0 y0, b=x1 y1)
    
30. %diff(a=x0 y0, b=x1 y1 x2 y2)
    
31. %diff(a=x1 y1 x2 y2, b=x0 y0)
    
32. %diff(a=x0 y0, b=x1 y1\x2 y2)
    
33. %diff(a=x1 y1\x2 y2, b=x0 y0)
    
34. %diff(a=x4 y4, b=x1 y1\x2 y2\x3 y3)
    
35. %diff(a=x4 y4 z4, b=x1 y1 z1\x2 y2 z2\x3 y3 z3)

复制代码

正常运行把

1. %put str=&str;

复制代码

改成

1. &str

复制代码

可以运行啦！

邓贵大 发表于 2013-12-23 22:51
正常运行把改成

可以运行啦！

邓贵大 发表于 2013-12-23 18:07
正常运行把改成

邓贵大先生匠心独具  学习了