如何分组导出数据？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

现在有这样一个数据id               i
001          1
003          1  
005          2
006          2
007          3
008          3

我想把i为一样的分到一个组里，然后分别输出成3个数据集，我觉得是不是要用first.i的，但是我想不到要怎么用，求教高手！

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：First FIRS 数据集 IRS FIR 如何

对first.i并且加call execute，就搞定

learsaas 发表于 2014-8-2 13:21
对first.i并且加call execute，就搞定

不太明白啊，这个函数不是用来调用宏的？

data a1 a2 a3;
    set a;
    by i;
    retain index 0;
    if first.i then index=index+1;
    if index=1 then output a1;else
    if index=2 then output a2;else
    if index=3 then output a3;
run;

楼上的程序适用于i的值少量的。但是i的值一旦很多，很可能i／o吃不消。

learsaas 发表于 2014-8-2 14:24
楼上的程序适用于i的值少量的。但是i的值一旦很多，很可能i／o吃不消。

求大侠给个程序！

freerunning_sky 发表于 2014-8-2 14:11
data a1 a2 a3;
    set a;
    by i;

可以建一个数组做循环么？新手不懂

用宏就可以了，批量化处理一下；

data raw;
input a $ id ;
cards;
001          1
003          1  
005          2
006          2
007          3
008          3
;
run;

proc sql noprint;
  select distinct id into:  list  separated by ' _' from raw;
  select  COUNT( distinct id) into:  N  from raw;
quit;
%let list= _&list;
%let N=&N;
%put &list;
%put &N;

%macro separate ;
%do i = 1 %to &N;
%put &i;
  data %scan(&list , &i , ' ');
  set raw;
  where id= %scan(&list , &i , ' _');
  run;
%end;
%mend;
%separate

或者这么写也许更好;
data raw;
input a $ id ;
cards;
001          1
003          1  
005          2
006          2
007          3
008          3
;
run;

proc sql noprint;
  select distinct id into:  list  separated by ' _' from raw;
  select  COUNT(distinct id) into: N from raw;
quit;
%let list= _&list;
%let N=&N;
%put Datasets namelist: &list;
%put Attention: will generate totally &N datasets;

%macro separate ;
  data &list;
  set raw;
  %do i = 1 %to &N;
  if strip(put(id, best.)) = scan("&list" , &i , ' _') then output %scan(&list , &i , ' ');
  %end;
  run;
%mend;
%separate

sas9.4 发表于 2014-8-2 23:04
或者这么写也许更好;
data raw;
input a $ id ;

大侠，可以问问你 select distinct id into:  list  separated by ' _' from raw;
  select  COUNT(distinct id) into: N from raw;
和 if strip(put(id, best.)) = scan("&list" , &i , ' _') then output %scan(&list , &i , ' ');这两句分别是什么意思么新手求教