如何调用宏删除下标为偶数的变量

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

想要调用宏删除下标为偶数的变量，写的代码如下：

1. %MACRO TEST();
   
2. %DO M=1 %TO 3;
   
3. %LET N=%EVAL(2*&M-1);
   
4. %PUT &N;
   
5. %END;
   
6. DATA A;
   
7. INPUT ID_1 ID_2 ID_3 ID_4 ID_5;
   
8. CARDS;
   
9. 1 2 3 4 5
   
10. 2 3 4 5 6
    
11. 3 4 5 6 7
    
12. ;
    
13. DROP ID_&N;
    
14. RUN;
    
15. %MEND TEST;
    
16. %TEST;

复制代码

但就是不通。。。求高手帮忙

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Input Macro cards test card 如何

顶一下，会的高手帮帮忙~~

1. %MACRO TEST(datasets);
   
2. %DO M=1 %TO 2;
   
3. %LET N=%EVAL(2*&M);
   
4. %PUT &N;
   
5. data &datasets;
   
6. set &datasets;
   
7. drop ID_&N;
   
8. run;
   
9. %END;
   
10. %MEND TEST;
    
11. DATA A;
    
12. INPUT ID_1 ID_2 ID_3 ID_4 ID_5;
    
13. CARDS;
    
14. 1 2 3 4 5
    
15. 2 3 4 5 6
    
16. 3 4 5 6 7
    
17. ;
    
18. run;
    
19. %TEST(a);

复制代码

1. DATA A;
   
2. INPUT ID_1 ID_2 ID_3 ID_4 ID_5;
   
3. CARDS;
   
4. 1 2 3 4 5
   
5. 2 3 4 5 6
   
6. 3 4 5 6 7
   
7. ;
   
8. RUN;
   
9. 
   
10. %macro test(dsn);
    
11.   data _null_;
    
12.     set &dsn ;
    
13.         array vars _all_;
    
14.         call symputx('vars_num',dim(vars));
    
15.   run;
    
16. 
    
17.   %do i=1 %to &vars_num;
    
18.   %if %sysfunc(mod(&i,2))=0 %then %do;
    
19.       data &dsn;
    
20.           set &dsn(drop=id_&i);
    
21.           run;
    
22.   %end;
    
23.   %end;
    
24. %mend;
    
25. 
    
26. %test (a)

复制代码

用字符串比循环好。这里偷懒了

1. DATA A;
   
2. INPUT ID_1 ID_2 ID_3 ID_4 ID_5;
   
3. CARDS;
   
4. 1 2 3 4 5
   
5. 2 3 4 5 6
   
6. 3 4 5 6 7
   
7. ;
   
8. 
   
9. %macro test();
   
10. 
    
11. %do M=1 %to 2;
    
12. %LET N=%EVAL(2*&M);
    
13. proc sql;
    
14. alter table A
    
15. drop ID_&N;
    
16. quit;
    
17. %end;
    
18. 
    
19. %mend;

复制代码