SAS %scan 空格分隔如何解析

1. %macro aaa(vars=);
   
2. %let i=1;
   
3. %do %until (%scan(&vars,&i,)=);
   
4.         %let var=%scan(&vars,&i,);
   
5.             %put &var.;
   
6.         %let i=%eval(&i+1);
   
7. %end;
   
8. %mend;
   
9. %aaa(vars=gage (gender,1/2) wgt);

复制代码

以空格作为分割符，能否分为：gage
gender,1/2
wgt
谢谢！

dxystata 发表于 2013-12-15 23:31
先把gage (gender,1/2) wgt 分解成gage (gender,1/2) wgt, 再把 (gender,1/2)进一步分解为 gender 1/2

%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);

用%qscan可以分割含括号。

%macro aaa(vars=);
%let i=1;
%do %until (%qscan(&vars,&i,)=);
        %let var=%qscan(&vars,&i,);
            %put &var.;
        %let i=%eval(&i+1);
%end;
%mend;
%aaa(vars=gage (gender,1/2) wgt);

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

%macro aaa(vars=);

如何进一步把 (gender,1/2) 分解成gender 和 1/2呢？

dxystata 发表于 2013-12-15 22:49
如何进一步把 (gender,1/2) 分解成gender 和 1/2呢？

去掉的括号是固定的吗？还是不一定有的？

zw612003 发表于 2013-12-15 23:00
去掉的括号是固定的吗？还是不一定有的？

gage (gender,1/2) wgt 分解成gage (gender,1/2) wgt,  (gender,1/2)进一步分解为 gender 1/2

%macro aaa(vars=);
%let i=1;
%do %until (%qscan(&vars,&i,' ,( )')=);
        %let var=%qscan(&vars,&i,', ()');
            %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,' ,( )')=);

先把gage (gender,1/2) wgt 分解成gage (gender,1/2) wgt, 再把 (gender,1/2)进一步分解为 gender 1/2

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,' ,( )')=);

如何在macro中把1/2 变成1 2呢？谢谢！