如何得到字符型变量的每一行的非缺失值

var1 var2 var3
a  
          b   
该数据集中var1 var2 var3 均为字符型变量，如何得到一个新变量x，其值为字符型变量var1 var2 var3的每一行的非缺失值? 谢谢！
结果为
x
a
b

1. data a;
   
2. var1='a';var2='';var3='';output;
   
3. var1='';var2='b';var3='';output;
   
4. run;
   
5. data want(drop=i);
   
6. set a;
   
7. array a{*} var1 var2 var3;
   
8. do i=1 to dim(a);
   
9. if a(i)^='' then x=a(i);
   
10. end;
    
11. run;

复制代码

用cat函数

data xxx;
  set table1;
  newvar=  catx('', var1,var2,var3);
run;

1. data a;
   
2. array var{3} $;
   
3. input var1-var3;
   
4. t=cats(of var{*});
   
5. cards;
   
6. a . .
   
7. . b .
   
8. ;

复制代码

1. data have;
   
2.   input var1 $ var2 $ var3 $;
   
3.   cards;
   
4. a . .
   
5. . b .
   
6. run;
   
7. 
   
8. proc transpose data = have out = want;
   
9.   var var:;
   
10. run;
    
11. 
    
12. data want;
    
13.   set;
    
14. 
    
15.   x = coalescec(of col:);
    
16. run;

复制代码

Tigflanker 发表于 2015-1-10 21:37

你这样写如果有多个非缺失值呢？

Tigflanker 发表于 2015-1-10 21:37

如果是这样，就弄不出来了（一个变量有两个非缺失值）
data have;
  input var1$ var2 $ var3 $;
  cards;
a e .
. b .
run;

sas9.4 发表于 2015-1-12 20:51
你这样写如果有多个非缺失值呢？

假如多个非缺失值都放在一个变量中，用‘/’分开，则

1. proc sql;
   
2. select name into :varlist
   
3. separated by " "
   
4. from dictionary.columns
   
5. where libname="WORK" and memname="M";/*只要改这里的逻辑库和逻辑库中的数据集名就可以了*/
   
6. quit;
   
7. proc sql;
   
8. select name into :varlist2
   
9. separated by ","
   
10. from dictionary.columns
    
11. where libname="WORK" and memname="M";/*只要改这里的逻辑库和逻辑库中的数据集名就可以了*/
    
12. quit;
    
13. data mm;
    
14. set m;
    
15. array m[*] &varlist;
    
16. do i=1 to dim(m);
    
17. x=catx('/',&varlist2);
    
18. end;
    
19. run;

复制代码

coalescec 函数本来就是取他参数列表中第一个出现的字符型非缺失值。

至于怎么用，看楼主数据意图了。

若是一票变量的值都要汲取，那当然是用cat族函数最妥当了。