如何找重复的id号

pobel 发表于 2013-10-29 12:49
data wanted(keep=id1 id2);
   set tem;
   length _id1 $100;

quote函数不需要也可以吧，试了一下，不影响啊

可~乐 发表于 2013-10-29 14:03

这个想法真是奇特，不过，看了一大圈也没想明白为什么要scan(compress(put这么长一圈，我试了一下
if index("&id1.",cats(id2))>_n_ or index("&id1.",cats(id2))=0;

这样就可以了

Imasasor 发表于 2013-11-4 14:31
quote函数不需要也可以吧，试了一下，不影响啊

版主给出的例子里，quote函数不必要。
下面的这个例子，quote函数就有用了：
data tem;
input id1 id2;
cards;
11 2
2 1
;

Imasasor 发表于 2013-11-4 14:32
这个想法真是奇特，不过，看了一大圈也没想明白为什么要scan(compress(put这么长一圈，我试了一下
if in ...

嗯，之前做过一个类似的对比，不过需要一个字符串一个字符串的查找，所以就把之前的想法直接搬过来了。。。

pobel 发表于 2013-11-4 14:53
版主给出的例子里，quote函数不必要。
下面的这个例子，quote函数就有用了：
data tem;

理解了，高..........

Imasasor 发表于 2013-11-4 17:18
理解了，高..........

Imasasor, what's your expected output for a 5-cycle, or it just won't happen? I know sometimes you're just handing out easy Lun Tan Bi to get more posts.

1. data tem;
   
2. input id1 id2;
   
3. cards;
   
4. 1 2
   
5. 2 3
   
6. 3 4
   
7. 4 5
   
8. 5 1
   
9. ;
   
10. 
    
11. proc sql noprint;
    
12.         select id1 into :id1 separated by "" from tem;
    
13. quit;
    
14. 
    
15. %put &id1.;
    
16. 
    
17. data test;
    
18.         set tem;;
    
19.         if index("&id1.",scan(compress(put(id2,best12.)),1))>_n_ or index("&id1.",scan(compress(put(id2,best12.)),1))=0;
    
20.         keep id1 id2;
    
21. run;
    
22. proc print;title 'Coke';
    
23. data wanted(keep=id1 id2);
    
24.    set tem;
    
25.    length _id1 $100;
    
26.    retain _id1 ;
    
27.    if index(_id1,quote(cats(id2))) then flag=0;
    
28.    else do;
    
29.         flag=1;
    
30.         _id1=catx(",",_id1,quote(cats(id1)));
    
31.         end;
    
32.         if flag;
    
33. run;
    
34. 
    
35. proc print;title 'Pobel';
    
36. 
    
37. /* the code works for the given data, not try for other data */
    
38. 
    
39. 
    
40. data repeated;
    
41.      set tem (rename=(id1=_id1 id2=_id2));
    
42.        n = _n_;
    
43.      do i = n+1 to nobs;
    
44.        set tem nobs=nobs point=i;
    
45.        if _id1 = id2 then output;
    
46.      end;
    
47.     keep id1 id2;
    
48. run;
    
49. 
    
50. proc sql;
    
51.   create table want as
    
52.     select *
    
53.     from tem
    
54.     except select * from repeated;
    
55. quit;
    
56. proc print data=want; title 'Yongyitian';run;
    
57. 
    
58. 
    
59. data tem1(rename=(id1=id2 id2=id1));
    
60.         if _n_=1 then do;
    
61.                 declare hash h(dataset:"tem");
    
62.                 h.definekey('id1');
    
63.                 h.definedata('id2');
    
64.                 h.definedone();
    
65.         end;
    
66.         set tem(rename=(id1=id2 id2=id1));
    
67.         if h.find() NE 0 then output;
    
68. run;
    
69. proc print;title 'Playmore';
    
70. 
    
71. data tem1;
    
72. array id(5,3) _temporary_;
    
73. infile cards eof=end;
    
74. input ;
    
75. id(_N_,1)=input(scan(_infile_,1), best.);
    
76. id(_N_,2)=input(scan(_infile_,2), best.);
    
77. return;
    
78. 
    
79. end:
    
80. 
    
81.   do i=1 to dim(id,1)-1;
    
82.     do j=i+1 to dim(id,1);
    
83.           if  id(i,1)=id(j,2) then id(j,3)=0;
    
84.         end;
    
85.   end;
    
86.   do i=1 to dim(id,1);
    
87.      if id(i,3) ne 0 then do;
    
88.            id1=id(i,1);
    
89.        id2=id(i,2);
    
90.            output;
    
91.          end;
    
92.   end;
    
93. keep id:;
    
94. datalines;
    
95. 1 2
    
96. 2 3
    
97. 3 4
    
98. 4 5
    
99. 5 1
    
100. ;
     
101. 
     
102. proc print;title 'Bobguy';run;

复制代码

邓贵大 发表于 2013-11-4 22:01
Imasasor, what's your expected output for a 5-cycle, or it just won't happen? I know sometimes you ...

事实上我要的东西没那么复杂，我原始的数据是夫妻对，一对id id1对应一对夫妻，有的时候夫妻巅倒顺序会出现两次，所以去掉一次，只保留一次。
就是如果是1,2，下面出现的一定是2,1，并且只会出现一次