请帮忙看个程序

谢谢啦 ，，，，，，，，，，，，，

写了个，看看好不好用。好用的话把钱给二楼。我这没法试中文，所以拼音代替了

1. data a;
   
2. input id year qtr name $30.;
   
3. cards;
   
4. 1 1996 1 Zhangsan, Lisi, Wangwu   
   
5. 1 1996 1 Liuliu                     
   
6. 1 1996 1 Baba, Zhangsheng         
   
7. 1 1996 1 Qiqi                  
   
8. 1 1996 2 Zhangsan                  
   
9. 1 1996 2 Lisi, Liuliu            
   
10. 1 1996 2 Baba, Qiqi            
    
11. 1 1996 2 Wangquan   
    
12. 2 1996 1 Baba, Zhangsheng         
    
13. 2 1996 1 Qiqi                  
    
14. 2 1996 2 Zhangsan                  
    
15. 2 1996 2 Lisi, Liuliu            
    
16. ;
    
17. 
    
18. data b;
    
19. input year qtr name $10.;
    
20. cards;
    
21. 1996 1 Zhangsan
    
22. 1996 1 Liuliu
    
23. 1996 1 Baba
    
24. 1996 1 Zhangsheng
    
25. 1996 2 Zhangsan
    
26. 1996 2 Lisi
    
27. ;
    
28. 
    
29. data a;
    
30. set a;
    
31. ii=_n_;
    
32. num=count(name, ",")+1;
    
33. run;
    
34. 
    
35. proc sql;
    
36. create table c as
    
37. select         ii, id, year, qtr, name,
    
38.                 case when sum(ind)=num then 1 else 0 end as var1,
    
39.                 max(ind) as var2 from
    
40. (
    
41.         select         a.*, b.name as name1,
    
42.                         case when index(a.name, strip(b.name)) then 1 else 0 end as ind
    
43.         from a left join b on a.year=b.year and a.qtr=b.qtr
    
44. )
    
45. group by ii, id, year, qtr, name;
    
46. 
    
47. select distinct id, year, qtr, name, var1, var2 from c
    
48. order by ii;
    
49. 
    
50. quit;
    
51. 
    

复制代码

这个问题也不难，我把数据贴出来：

大表：
id        year        qtr        name                     var1        var2
1        1996        1        张三，李四，王五       0        1
1        1996        1        六六                            1        1
1        1996        1        巴巴，张生                 1        1
1        1996        1        琪琪                            0        0
1        1996        2        张三                            1        1
1        1996        2        李四，六六                  0        1
1        1996        2        巴巴，琪琪                  0        0
1        1996        2        王全                            0        0
                          3                        
                          4                        
          1997        1                        
          1997        2                        

小表：
year        qtr        name
1996        1        张三
1996        1        六六
1996        1        巴巴
1996        1        张生
1996        2        张三
1996        2        李四

需求：
var1规则是，name中的所有人在对应时期必须有，则取1，否则0。
var2规则是，name中至少其中一个人有，则取1，否则0。

看起来也不是很容易啊

提醒注意一下，是中文还是英文状态下逗号

1. data want;
   
2.   if 0 then set b(rename=name=name1);
   
3.   if _n_ = 1 then do;
   
4.     dcl hash h(dataset:'b(rename=name=name1)');
   
5.         h.definekey(all:'y');
   
6.         h.definedone();
   
7.   end;
   
8. 
   
9.   set a;
   
10.   var1 = 0;
    
11.   do i = 1 to countw(name);
    
12.     name1 = cats(scan(name,i,','));
    
13.         var1 + ~h.check();
    
14.         var2 = max(var2,~h.check());
    
15.   end;
    
16.   var1 = (var1 = countw(name));
    
17. 
    
18.   drop name1 i;
    
19. run;

复制代码

借用teqel数据的另一种做法，不过大数据有内存不足可能，另外你name字段中文的话，scan改用kscan；countw也不知道会不会有问题

Tigflanker 发表于 2015-12-1 17:03
借用teqel数据的另一种做法，不过大数据有内存不足可能，另外你name字段中文的话，scan改用kscan；countw也 ...

哦    我用的是9.4呢   看你这类问题基本上用hash   炉火纯青了

小鳄鱼a 发表于 2015-12-1 20:08
哦    我用的是9.4呢   看你这类问题基本上用hash   炉火纯青了

我很推荐你小小学一下hash，反正我感觉那东西逻辑容纳性很强，

data步循环，一维；数组循环，二维；hash遍历，三维