如果通过SAS批量匹配文件，求大神帮忙

详见附件，将原始数据2的姓名一列unique，并在原始数据1中根据性别和省份找到同类，生成n个文件，n为原始数据2的nobs,如果无法匹配，仅输出原始数据2的内容就行

1. data d1;
   
2. input name$ sex$ prov$;
   
3. datalines;
   
4. 张三 男 山东
   
5. 李四 男 江苏
   
6. 王五 女 山东
   
7. 郑六 女 江苏
   
8. 狗蛋 男 山东
   
9. 大瓜 女 江苏
   
10. 狗娃 男 山东
    
11. ;
    
12. run;
    
13. 
    
14. data d2;
    
15. input test$ sex$ prov$;
    
16. datalines;
    
17. test1 男 山东
    
18. test2 男 江苏
    
19. test3 女 山东
    
20. test4 女 江苏
    
21. test5 男 北京
    
22. ;
    
23. run;
    
24. 
    
25. proc sql noprint;
    
26. create table d3 as
    
27. select distinct a.*,b.test from d1 as a
    
28. full join d2 as b
    
29. on a.sex eq b.sex and a.prov eq b.prov;
    
30. quit;
    
31. 
    
32. %macro split;
    
33. proc sql noprint;
    
34.         select distinct test into: tlst separated by ' ' from d3;
    
35. quit;
    
36. 
    
37. %let i=1;
    
38. %do %while(%scan(&tlst.,&i.,' ') ne );
    
39. %let test=%scan(&tlst.,&i.,' ');
    
40. 
    
41. proc sql noprint;
    
42.         select distinct sum(ifn(not missing(sex),1,0)) into: nobs from d3 where test eq "&test.";
    
43. quit;
    
44. 
    
45. %if &nobs.>0 %then %do;
    
46.         data want&i.;
    
47.                 set d3;
    
48.                 where test eq "&test.";
    
49.                 drop test;
    
50.                 rename name=&test.;
    
51.         run;
    
52. %end;
    
53. %else %do;
    
54.         data want&i.;
    
55.                 set d2;
    
56.                 where test eq "&test.";
    
57.         run;
    
58. %end;
    
59. %let i=%eval(&i+1);
    
60. %end;
    
61. %mend split;
    
62. %split;

复制代码

网络问题，重复了

重复了。。

孤单的我们 发表于 2020-9-28 14:24
重复了。。

非常感谢！请问如何把test1的内容变成样本，而不是表头呢？

shevaze 发表于 2020-9-28 15:58
非常感谢！请问如何把test1的内容变成样本，而不是表头呢？

你说的样本是什么意思？如果是要在数据里保留test1，去掉drop test;这句就可以了。

孤单的我们 发表于 2020-9-28 16:01
你说的样本是什么意思？如果是要在数据里保留test1，去掉drop test;这句就可以了。

好的！非常感谢！

孤单的我们 发表于 2020-9-28 16:01
你说的样本是什么意思？如果是要在数据里保留test1，去掉drop test;这句就可以了。

抱歉再次打扰，请问如果d2里有性别和省份充分的，也需要匹配，怎么办

shevaze 发表于 2020-9-28 16:46
抱歉再次打扰，请问如果d2里有性别和省份充分的，也需要匹配，怎么办

试试下面的code：
data d1;
input name $ sex $ prov $;
datalines;
张三 男 山东
李四 男 江苏
王五 女 山东
郑六 女 江苏
狗蛋 男 山东
大瓜 女 江苏
狗娃 男 山东
;
run;

data d2;
input name $ sex $  prov $;
datalines;
test1 男 山东
test2 男 江苏
test3 女 山东
test4 女 江苏
test5 男 北京
;
run;

proc sort data=d2 nodupkey;
by name;
run;

Data d3;
set d1 d2;
run;

Data IDlist (drop=Name sex prov);
set D2;
N=_N_;
ID=cats(sex, prov);
Run;

%macro DS(N,ID);
Data DS&N;
set D3;
where cats (sex, prov)="&ID";
run;
%mend;

Data _null_;
set IDList;
call execute('%DS('||N||', '||Strip(ID)||');');
run;

shevaze 发表于 2020-9-28 16:46
抱歉再次打扰，请问如果d2里有性别和省份充分的，也需要匹配，怎么办

原代码如果d2有重复应该也会自动输出，您可以测试一下