[求助]循环语句

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现在需要将一些记录扩展为完全相同的几十条记录，请问如何在sas应用循环语句实现？而且结果可以自动保存在数据库（表）中呢？

如果第一条原始记录复制成100条相同记录，第2条原始记录复制成50条记录，然后2次复制的结果要放在同一个数据表中，请问如何实现呢？谢谢各位大侠。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：循环语句 SAS应用 自动保存 各位大侠 如何实现 求助 语句

data a;
input x y@@;
cards;
1 2 3 4
;
run;
%macro bb;
%do i=1 %to 49;
data c;
set a _last_;
%end;run;
%mend bb;
%bb

这样可实现数据文件c中包含50个a的copy

data a;
input x y@@;
cards;
1 2 3 4
;
run;
data d1;
set a;
if _n_=1;
run;
%macro bb(c,a,n);
%do i=1 %to (&n-1);
data &c;
set &a _last_;
%end;run;
%mend bb;
%bb(data1,d1,100)
data d2;
set a;
if _n_=2;
run;
%bb(data2,d2,50)
data data3;
set data1 data2;
run;

此程序可实现第一条记录重复100遍，第二条记录重复50遍，最后合并保存于data3数据文件中

请求版主加分，初来乍到，穷啊~~~

好人啊，非常感谢，希望版主可以给楼上兄弟加分

2楼的程序是关键，受教了

1. %MACRO TEST();
   
2. data x;
   
3.         set a;
   
4.         if _N_=1 then do;
   
5.         %do i=1 %to 100;
   
6.                 output;
   
7.         %end;
   
8.         end;
   
9.         if _N_=2 then do;
   
10.         %do i=1 %to 50;
    
11.                 output;
    
12.         %end;
    
13.         end;
    
14. run;
    
15. %MEND TEST;
    
16. %TEST;

复制代码

具体某条记录需要重复多少遍可以再用一张表加宏变量来控制循环中的%to 后面的数字。
这样原始数据集只读取一次，可能效率上更好些

6# soporaeternus2

Why macro?

1. 
   
2. data b;
   
3. set a;
   
4. if _n_ = 1 then do i = 1 to 100;
   
5.   output;
   
6.   end;
   
7. else if _n_ = 2 then do i = 1 to 50;
   
8.   output;
   
9.   end;
   
10. else output;
    
11. drop i;
    
12. run;

复制代码

woodolt 发表于 2007-12-31 19:08
data a;input x y@@;cards;1 2 3 4 ;run;data d1;set a;if _n_=1;run;%macro bb(c,a,n);%do i=1 %to (&n-1);data &c;set &a _last_;%end;run;%mend bb;%bb(data1,d1,100)data d2;set a;if _n_=2;run;%bb(data2,d2,50)data data3;set data1 data2;run;此程序可实现第一条记录重复100遍，第二条记录重复50遍，最后合并保存于data3数据文件中请求版主加分，初来乍到，穷啊~~~

That is overkill. Please read jingju11's solution.

用set没什么效率，每次还得读数据。
用proc append，直接附在数据后面，免去了读数据集里的数据，效率更高。

楼上的同志对|SAS挺精通的啊
受教了啊