如何識別macro變量值的位置？

是 否 +2 論壇幣

k人 參與回答

經(jīng)管之家送您一份

應屆畢業(yè)生專屬福利!

求職就業(yè)群

趙安豆老師微信：zhaoandou666

經(jīng)管之家聯(lián)合CDA

送您一個全額獎學金名額~ !

立即領取

感謝您參與論壇問題回答

經(jīng)管之家送您兩個論壇幣！

+2 論壇幣

%let aaa=3 4 5;
%let bbb=4;
有什么簡單的辦法得到bbb在aaa中的位置賦值給ccc？
如果bbb為3 其位置為1
           為4 其位置為2
           為5 其位置為3

謝謝！

掃碼加我 拉你入群

請注明：姓名-公司-職位

以便審核進群資格，未注明則拒絕

分享0 收藏0 回帖

關(guān)鍵詞：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 發(fā)表于 2013-12-26 22:41
%macro test;
%let aaa=3 4 5;
%let bbb=4;

這里面有比較tricky的地方，如果aaa為3 4 4，bbb為4的話，返回的值是3，而不是2，你自己可以根據(jù)需要再改下

用FIND函數(shù)就好了

playmore 發(fā)表于 2013-12-27 13:12
用FIND函數(shù)就好了

%let aaa=3 4 5;
%let bbb=4;
%put %sysfunc(find(&aaa,&bbb));
結(jié)果顯示為3，應該為2。


%let aaa=3 44 5;
%let bbb=4;
%put %sysfunc(find(&aaa,&bbb));
結(jié)果顯示為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 發(fā)表于 2013-12-28 09:43
%macro findpositon(source, target);
       %let pos=%sysfunc(find( %sysfunc(compress(&source)),&tar ...

%findpositon(3 44 5,4 )
結(jié)果不對！

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 發(fā)表于 2013-12-26 22:43
這里面有比較tricky的地方，如果aaa為3 4 4，bbb為4的話，返回的值是3，而不是2，你自己可以根據(jù)需要再改 ...

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