farmman60 发表于 2013-12-15 23:22
%macro aaa(vars=);
%let i=1;
%do %until (%qscan(&vars,&i,' ,( )')=);

farmman60 发表于 2013-12-16 04:42
%macro aaa(vars=);
%let i=1;
%do %until (%qscan(&vars,&i,' ')=);
      
   %let var=%qscan(&vars,&i,' ');
            
             %if %index(&var,%str(%())^=0 %then %do;
                          %let var1=%sysfunc(compress(&var,%str(%( %))));
                                %let j=1;
                                   %do %until (%qscan(%quote(&var1),&j,',')=);
                                      %let var2=%qscan(%quote(&var1),&j,',');
                                          %put &var2;
                                          %let j=%eval(&j+1);
                                 %end;
                                 %end;
             %else %put &var;
   %let i=%eval(&i+1);
%end;
%mend;
%aaa(vars=gage (gender,1/2) wgt);

farmman60 发表于 2013-12-15 23:22
%macro aaa(vars=);
%let i=1;
%do %until (%qscan(&vars,&i,' ,( )')=);

jjtww 发表于 2013-12-21 19:20
1.把1/2变为1 2可以translate函数
2.建议学正则表达式吧，你开始想法就错了，宏不能滥用。

dxystata 发表于 2013-12-21 19:39
你开始想法就错了，宏不能滥用。
能否说得清楚些吗？

zw612003 发表于 2013-12-15 22:47
用%qscan可以分割含括号。

%macro aaa(vars=);

farmman60 发表于 2013-12-15 20:12
%macro aaa(vars=);
%let i=1;
%do %until (%qscan(&vars,&i,' ')=);