50论坛币求助如何得到这样的数据集

1. data aaa;
   
2. input a$ b$ c$ d$ e$ f$;
   
3. cards;
   
4. aa bb!1 bb!2 bb!a!1 bb!a!2 p
   
5. ;
   
6. run;

复制代码

第一行为变量名，每一行相邻变量取值相同只保留第一个，其余用#代替。希望程序能通用，谢谢！

1. data result1;
   
2.         set aaa;
   
3.         array array_text{6} a--f;
   
4.         array array_temp{6} $8 _TEMPORARY_;
   
5.         n=0;
   
6.         do i=1 to dim(array_text);
   
7.                 array_temp[i]=array_text[i];
   
8.                 n=max(n,countc(array_text[i],'!'));
   
9.         end;
   
10.         do i=1 to n+1;
    
11.                 do j=1 to dim(array_text);
    
12.                         array_text[j]=scan(array_temp[j],i,'!','M');
    
13.                 end;
    
14.                 output;
    
15.         end;
    
16.         drop i j n;
    
17. run;
    
18. data result2;
    
19.         set result1;
    
20.         array array_text{6} a--f;
    
21.         array array_temp{6} $8 _TEMPORARY_;
    
22.         do i=1 to dim(array_text);
    
23.                 array_temp[i]=array_text[i];
    
24.         end;
    
25.         do i=2 to dim(array_text);
    
26.                 if array_temp[i]=array_temp[i-1] and strip(array_temp[i])^='' then array_text[i]='#';
    
27.         end;
    
28.         drop i;
    
29. run;

复制代码

proc transpose data=aaa out=bbb;
    var _all_;
run;

proc sql noprint;
    select max(count(col1,"!"))+1 into :count_max from bbb;
quit;

data ccc;
    set bbb;
    array value $ value1-%sysfunc(compress(value&count_max.));
    do i=1 to &count_max.;
        value(i)=scan(col1,i,"!");
        if value(i)=lag1(value(i)) and ^missing(value(i)) then
            value(i)="#";
    end;
    drop i  col1;
run;

proc transpose data=ccc out=ddd(drop=_name_);
    var value1-%sysfunc(compress(value&count_max.));
    id _name_;
run;

乐天天12300 发表于 2022-2-18 14:14
proc transpose data=aaa out=bbb;
    var _all_;
run;

代码有的没显示。

dxystata 发表于 2022-2-18 15:46
代码有的没显示。

这网站$符号容易引起乱码。我把建数据集删掉了，现在好了

learsaas 发表于 2022-2-18 13:53

scan(array_temp[j],i,'!','M')
M是这么意思？

乐天天12300 发表于 2022-2-18 15:48
这网站$符号容易引起乱码。我把建数据集删掉了，现在好了

请以50论坛币出售的形式，我来购买。