求助：如何有效地一次性创建多个变量

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

有个问题想请教一下大家，我现在有一个数据，里面有一个变量（var1）是字符型，然后我想在这其中搜索某些特定符号，如果搜索到包含字符aa，就在原文件中建立一个新的变量aa，这一行变量aa的取值为1，如果搜索到包含字符bb，又建立一个新的变量bb，同样取值为1。。。依次类推，建立很多个变量，用来搜索各个我想要的字符。我自己所想到的方法有：
data want;
  set have;
  if var1 contains "aa" then aa=1;
  else if var1 contains "bb" then bb=1;
.
.
.
但是好像有错，我知道contains 可以用在where语句中，但是只能保留符合条件的数据，我想所有数据都保留，只是在后面加上一串新的变量。请教版上各位大牛，应该怎么实现呢？谢谢啦！

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：多个变量 有效地 一次性 Contain Where where 如何

可以用一下code，其中special是包含特定字符的data，完整这个data即可：

1. data base;
   
2.         input var1 $ x y;
   
3. cards;
   
4. 1 1 1
   
5. aa 2 2
   
6. bb 3 3
   
7. 2 4 4
   
8. cc 5 5
   
9. 5 6 6
   
10. ;
    
11. run;
    
12. data special;
    
13.         input special $ @@;
    
14. cards;
    
15. aa
    
16. bb
    
17. cc
    
18. ;
    
19. run;
    
20. 
    
21. options mprint mlogic;
    
22. %macro giveyou();
    
23. data _null_;
    
24.         set special;
    
25.         call symputx("s"||compress(put(_n_,best.)), trim(left(special)));
    
26.         call symputx("n", compress(put(_n_,best.)));
    
27. run;
    
28. 
    
29. data want;
    
30.         set base;
    
31. run;
    
32. 
    
33. %do i=1 %to &n;
    
34. data want&i;
    
35.         set base;
    
36.         if index(var1,"&&s&i")>0 then &&s&i=1;
    
37.                         else &&s&i=.;
    
38. run;
    
39. 
    
40. data want;
    
41.         merge want want&i;
    
42. run;
    
43. %end;
    
44. %mend giveyou;
    
45. 
    
46. %giveyou();

复制代码

1. proc sort data=special;
   
2. by special;
   
3. run;
   
4. proc sql noprint;
   
5. select special into :special_list SEPARATED BY " " from special;
   
6. select count(*) into: num from special;
   
7. quit;
   
8. %put &special_list  #
   
9. 
   
10. data giveyou(drop=j special);
    
11.    set base;
    
12.    do j=1 to #
    
13.      set special point=j;
    
14.      array var_{&num} &special_list;
    
15.      if index(var1,trim(special))>0 then var_(j)=1;
    
16.    end;
    
17.    output;
    
18. run;

复制代码