SAS数据集多行合并为1行，以及文本还原为多行

1. /*
   
2. 功能说明：SAS 数据集多行合并为1行输出。
   
3. 功能调用：%nline(sds=,tds=,n=); 入口在文档尾部。
   
4. 输出还原：还原方法参考 <a href="https://www.saihu.com/thread-2495-1-1.html">https://www.saihu.com/thread-2495-1-1.html</a>
   
5. 联系：建议意见可联系微信号 daijp1971
   
6. */
   
7. 
   
8. /*
   
9. 宏 ：%renfileds(ds=,prefix=);
   
10. 功能：SAS 数据集变量批量改名为 prefix + 原变量名。
    
11. 参数：
    
12. ds: 数据集
    
13. prefix: 新变量名前缀
    
14. 步骤：
    
15.         获得数据集ds的所有字段。
    
16.         逐一改名。
    
17. 联系：建议意见可联系微信号 daijp1971
    
18. */
    
19. %macro renfileds(ds=,prefix=);
    
20. %if %length(%sysfunc(compress("&ds.","."))) ne %length(%sysfunc(compress("&ds.","")))
    
21. %then
    
22.         %do;
    
23.         %let libname=%scan("&ds.",1,".");
    
24.         %let memname=%scan("&ds.",2,".");
    
25.         %end;
    
26. %else
    
27.         %do;
    
28.         %let libname=WORK;
    
29.         %let memname=&ds.;
    
30.         %end;
    
31. 
    
32. proc sql noprint;
    
33. select name into :fieldnames separated by ' '
    
34. from dictionary.columns where libname=upcase("&libname") and memname=upcase("&memname") order by varnum;
    
35. quit;
    
36. 
    
37. data &ds;
    
38. set &ds;
    
39. %local i;
    
40. %let i=1;
    
41. %do %until (%scan(&fieldnames.,&i.," ")=);
    
42. %let oldname=%sysfunc(compress(%scan("&fieldnames",&i," ")));
    
43. rename &oldname=&prefix.&oldname;
    
44. %let i=%eval(&i.+1);
    
45. %end;
    
46. run;
    
47. %mend;
    
48. 
    
49. /*
    
50. 宏：%nline(sds=,tds=,n=);
    
51. 功能：SAS 数据集多行合并为1行输出。
    
52. 参数：
    
53. sds: 源数据集
    
54. tds: 目标数据集
    
55. n: n行合并为1行
    
56. 步骤：
    
57.         将sds切分为n个临时表
    
58.         将n个临时表合并为tds
    
59. 注意：
    
60.         过程中需要建立和删除n个临时表 XXX0 XXX1...XXXn-1 ，XXX可定义
    
61. 联系：建议意见可联系微信号 daijp1971
    
62. */
    
63. %let XXX=T;
    
64. %macro nline(sds=,tds=,n=);
    
65. %local i;
    
66. %do i=0 %to &n-1;
    
67.         data &XXX._&i;
    
68.         set &sds;
    
69.         if mod(_n_,&n)=&i;
    
70.         run;
    
71. %end;
    
72. 
    
73. %do i=0 %to &n-1;
    
74.         %renfileds(ds=&XXX._&i,prefix=&XXX.&i);
    
75. %end;
    
76. 
    
77. data &tds;
    
78. merge %do i=1 %to &n-1; &XXX._&i %end; &XXX._0;
    
79. run;
    
80. 
    
81. proc datasets nolist;
    
82. %do i=0 %to &n-1;
    
83.         %put "#### delete: &XXX._&i";
    
84.         delete &XXX._&i;
    
85. %end;
    
86. run;
    
87. %mend;
    
88. 
    
89. /* ---------------------------------功能调用点------------------------------- */
    
90. %nline( sds=mapsgfk.us_counties, tds=tb, n=10 );

复制代码