如何识别macro变量值的位置？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

%let aaa=3 4 5;
%let bbb=4;
有什么简单的办法得到bbb在aaa中的位置赋值给ccc？
如果bbb为3 其位置为1
           为4 其位置为2
           为5 其位置为3

谢谢！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Macro Mac CRO acr 变量值 如何

%scan?

%macro test;
%let aaa=3 4 5;
%let bbb=4;
%let indicator=%sysfunc(indexw(&aaa.,&bbb.));
%if %eval( &indicator gt 0) %then %do;
        %let i=%sysfunc(countw(&aaa,%str( )));
        %put &i.;
        %do j=1 %to &i.;
                %if %qscan(&aaa., &j.,%str( ))=&bbb. %then %do; %let ccc=&j.; %put ccc=&ccc.; %end;
        %end;
%end;
%mend test;

%test

Eternal0601 发表于 2013-12-26 22:41
%macro test;
%let aaa=3 4 5;
%let bbb=4;

这里面有比较tricky的地方，如果aaa为3 4 4，bbb为4的话，返回的值是3，而不是2，你自己可以根据需要再改下

用FIND函数就好了

playmore 发表于 2013-12-27 13:12
用FIND函数就好了

%let aaa=3 4 5;
%let bbb=4;
%put %sysfunc(find(&aaa,&bbb));
结果显示为3，应该为2。


%let aaa=3 44 5;
%let bbb=4;
%put %sysfunc(find(&aaa,&bbb));
结果显示为3，应该为0。

%macro findpositon(source, target);
       %let pos=%sysfunc(find( %sysfunc(compress(&source)),&target));
       %put &pos;
%mend;

%findpositon(3 4 5,4 )
%findpositon(3 4 5,5 )

webgu 发表于 2013-12-28 09:43
%macro findpositon(source, target);
       %let pos=%sysfunc(find( %sysfunc(compress(&source)),&tar ...

%findpositon(3 44 5,4 )
结果不对！

Try this

1. %macro GetPosition(aaa,bbb);
   
2.   data _null_;
   
3.    length a b $20.;
   
4.    a = "&aaa";
   
5.    b = "&bbb";
   
6.    position = 0;
   
7.    do i = 1 to countw(a);
   
8.    if scan(strip(a), i) = strip(b) then position = i;
   
9.    end;
   
10.     put a=   b=  position= ;
    
11. run;
    
12. %mend GetPosition;
    
13. %GetPosition(3 4 5, 4)

复制代码

Eternal0601 发表于 2013-12-26 22:43
这里面有比较tricky的地方，如果aaa为3 4 4，bbb为4的话，返回的值是3，而不是2，你自己可以根据需要再改 ...

%macro test(aaa=,bbb=);
%let indicator=%sysfunc(indexw(&aaa.,&bbb.));
%if %eval( &indicator gt 0) %then %do;
        %let i=%sysfunc(countw(&aaa,%str( )));
        %put &i.;
        %do j=1 %to &i.;
                %if %qscan(&aaa., &j.,%str( ))=&bbb. %then %do; %let ccc=&j.; %put ccc=&ccc.; %goto exit;  %end;
        %end;
%end;
%exit:
%mend test;

%test(aaa=3 4 4,bbb=4)