实现多选值FORMAT的添加

浮光掠影转瞬间

在处理数据时，有时候会遇见变量值为多选的情况，此时如果要给变量添加上format，就略微麻烦许多。今天分享一段针对此种情况自动生成format的程序。

程序实现效果
先来看看程序实现的效果（如下图），此时定义的是1=张三、2=李四、3=王五。

将这个程序写成了一个简单的宏，下面来看一下生成上面结果的程序。

1. %add_multipe_fmt(inds=a,invar=x,dlm=%str(,)
   
2. ,valuelist=%str(1=张三|2=李四|3=王五),orderYn=1,fmtname=testfmt4_);
   
3. data b2;
   
4. set a;
   
5. format x $testfmt4_.;
   
6. run;

复制代码

程序原理
在分享这个程序的原理前，先来看看要设置的那些宏参数以及其作用。


原理：
1.获取变量观测值的种类（去重）
2.根据指定分割符将观测中的值进行拆分（得到一个数据集）
3.根据输入的valuelist生成一个存放单选值及对应format的数据集
4.将上面俩个数据集进行left join ,在进一步组合等操作
5.利用proc format语句生成format

程序：

1. %macro add_multipe_fmt(inds=,invar=,dlm=%str(),valuelist=,orderYn=1,fmtname=);
   
2. 
   
3. *获取数据集中观测种类;
   
4. 
   
5. proc sql undo_policy=none;
   
6. create table tmp_ds1 as
   
7. select distinct &invar.; from  &inds.;
   
8. quit;
   
9. 
   
10. *将数据集衍生一个行号，并根据分隔符拆分数据;
    
11. data tmp_ds2;
    
12. set tmp_ds1;
    
13. line1=_N_;
    
14. do i=1 to count(strip(&invar;),"&dlm.;")+1;
    
15.    line2=i;
    
16.    value_s=kscan(strip(&invar;),i,"&dlm.;");
    
17.    if index(value_s,'-') then do;
    
18.      do _sm_=input(scan(value_s,1,'-'),??best.) to input(scan(value_s,2,'-'),??best.);
    
19.        value_s=strip(vvalue(_sm_));
    
20.        output;
    
21.      end;
    
22.    end;
    
23.    else output;
    
24. end;
    
25. run;
    
26. 
    
27. /*针对选项值进行一步处理，将宏变量valuelist 存入数据集中(以“|”作为分隔符)*/
    
28. data valuelist;
    
29. length valuelist $20000.;
    
30. format valuelist $20000.;
    
31. informat valuelist $20000.;
    
32. valuelist="&valuelist.;";
    
33. do i=1 to count(strip(valuelist),"|")+1;
    
34.    valuelist_s=kscan(strip(valuelist),i,"|");
    
35.    valuelist_s1=kscan(valuelist_s,1,"=");
    
36.    valuelist_s2=kscan(valuelist_s,2,"=");
    
37.    output;
    
38. end;
    
39. run;
    
40. *将选项值进行一个left join ;
    
41. proc sql undo_policy=none;
    
42. create table tmp_ds3 as
    
43. select  a.*,b.valuelist_s2
    
44. from  tmp_ds2  as a
    
45. left join  valuelist  as b
    
46. on a.value_s =b.valuelist_s1
    
47. order by line1,line2;
    
48. quit;
    
49. 
    
50. *如果排序 orderYn=1 ;
    
51. %if &orderYn.; eq 1 %then %do;
    
52. proc sort data=tmp_ds3  out=tmp_ds3  sortseq=linguistic(numeric_collation=on);by line1 value_s ;quit;
    
53. %end;
    
54. data tmp_ds4;
    
55. set tmp_ds3;
    
56. by line1 ;
    
57. length final $20000.;
    
58. retain final ;
    
59. if first.line1 then do;
    
60. final=strip(valuelist_s2);
    
61. end;
    
62. else do;
    
63. final=strip(catx("&dlm.;",final,valuelist_s2));
    
64. end;
    
65. fmt=quote(strip(&invar.;))||strip("=")||quote(strip(final));
    
66. if last.line1 then output;
    
67. run;
    
68. proc sql noprint;
    
69. select fmt into:add_fmt separated by "  " from tmp_ds4   ;
    
70. quit;
    
71. 
    
72. proc format ;
    
73. value $ &fmtname.; &add;_fmt.;
    
74. run;
    
75. *在日志打印内容;
    
76. 
    
77. 
    
78. %put   ********************多选FORMAT：&fmtname.;已生成*********************;
    
79. %put  &add;_fmt.;
    
80. proc delete data=work.tmp_ds1 work.tmp_ds2 work.tmp_ds3 work.tmp_ds4;run;
    
81. %mend;

复制代码