用macro实现重复

1. %macro  aaa(num=, style=);
   
2. 
   
3. %put styles;
   
4. %mend;

复制代码

num=5，style=l     styles为lllll
num=5，style=c    styles为ccccc
num=5，style=l2   styles为llccc
num=5，style=l3   styles为lllcc

谢谢！

%macro repeat(num=,style=,num1=);
        data _null_;
                num=&num.;
                %if %length(&num1.)>0 %then %do; num1=&num1.; %end;
                %else %do; num1=&num.; %end;
                styles=substr(cats(repeat("&style.",num1-1),repeat("c",num-1)),1,num);
                call symput("styles",strip(styles));
        run;
        %put ### styles=&styles.;
%mend;

%repeat(num=5, style=l, num1=);
%repeat(num=5, style=c, num1=);
%repeat(num=5, style=l, num1=2);
%repeat(num=5, style=l, num1=3);

不知能否满足楼主的需求，仅供参考~

洪哥得势1 发表于 2019-7-27 12:07
%macro repeat(num=,style=,num1=);
        data _null_;
                num=&num.;

谢谢！

洪哥得势1 发表于 2019-7-27 12:07
%macro repeat(num=,style=,num1=);
        data _null_;
                num=&num.;

谢谢！