求sas大神帮忙

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

这里有三张图，我要根据sex的取值，如果sex=1 ，然后就取图1的symptom并去除掉存在在图2里的symptom
如果sex=0 ，然后取图1中symptom并去除掉存在在图3里的symptom，望大神指教

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：MPT Tom SEX

1. data one;
   
2.         input vid sex symptom$40.;
   
3. datalines;
   
4. 1 1 小猫，小狗，小猪，小羊
   
5. 2 0 小狗，小熊，小牛，小鸡
   
6. ;
   
7. run;
   
8. 
   
9. data two three;
   
10.         symptom="小鸡，小牛";output two;
    
11.         symptom="小狗，小猫";output three;
    
12. run;
    
13. 
    
14. data want;
    
15.         set one;
    
16.         if sex=1 then set two(rename=(symptom=sym));
    
17.         if sex=0 then set three(rename=(symptom=sym));
    
18.         do i=1 to (count(sym,"，")+1);
    
19.             if count(symptom,scan(sym,i,"，")) then do;
    
20.                         if i< count(sym,"，")+1 then symptom=strip(tranwrd(symptom,scan(sym,i,"，")||"，",""));
    
21.                         else if i=count(sym,"，")+1 then  symptom=strip(tranwrd(symptom,"，"||scan(sym,i,"，"),""));
    
22.                 end;
    
23.         end;
    
24. run;

复制代码

孤单的我们 发表于 2016-1-4 09:56

麻烦您解释一下您的基本思路吗。

孤单的我们 发表于 2016-1-4 09:56

麻烦您解释一下您的基本思路吗。

if sex=1 then set two(rename=(symptom=sym));
if sex=0 then set three(rename=(symptom=sym));
*根据sex=0或1把symptom重命名后，拼接进去;
do i=1 to (count(sym,"，")+1);
*根据逗号的个数+1 判断sym中有几串字符，将这些字符串进入循环逐个判断替换;
if count(symptom,scan(sym,i,"，")) then do;
*如果symptom中，出现了sym的第i个字符;
if i< count(sym,"，")+1 then symptom=strip(tranwrd(symptom,scan(sym,i,"，")||"，",""));
else if i=count(sym,"，")+1 then  symptom=strip(tranwrd(symptom,"，"||scan(sym,i,"，"),""));
*首尾的情况不同，分别处理。尾部替换的是"，小狗",前面替换的是"小狗，"。注：此处有一点小bug，如果倒数第二个字符已经替换，最后一个字符应该替换"小狗"而非"，小狗";
*tranwrd()：字符替换函数;