转载分享 SAS基础宏之2：SeparateString

百年孤独

这个宏用于得到由多个单词构成的（用空格分隔单词）宏变量的单词数目，并且把这些单词分别赋给一系列的宏变量
我写的宏中间的参数一般可设置多个数据集/变量，所以需要这个SeparateString把它拆分出来

%macro SeparateString(InputString,OutputString);
+ J1 o4 L% E5 i1 N6 E/**********************************************************************/
  G) W; D! p" \% N- S# @. b! M/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
. e9 J2 M) C; R9 }/ |/ o, U/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
6 ?' Z6 D3 _/ Z/ X- [  R- E/* 出的字符串前缀，不需要加最后的下划线。 */
/* */
' m+ f2 \9 o3 `$ _9 e6 x/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
" |- v+ G$ N- M  E5 v) a! [1 y* r/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
/* */
/* Created on 2012.9.18 */
/* Modified on 2012.12.6 */
/**********************************************************************/
& q/ G6 _0 J) \. m9 D1 x3 W
$ ^  S9 O3 c' y1 B* w. P9 q; s' \data SS_temp;
Str="&InputString";
: E' J) B/ w1 t; r5 g' urun;

data SS_temp;
set SS_temp;
- e, {9 F* w" RWords=0;
do while(SCAN(Str,Words+1,' ') NE "");
Words+1;
end;
run;

* m, h+ T) B' Z%global &OutputString._Num;

proc sql noprint;
select Words into :&OutputString._Num from SS_Temp;
; f+ W1 z1 V8 Gquit;
3 J& G: Y* u/ v1 f: D
: ?$ O# g2 F/ M; q2 P( p8 x5 B%do SS_i=1 %to &&&OutputString._Num;
. R2 t, {( S3 J; t0 z& A1 K) K* h: D%global &OutputString._Var&SS_i;
4 Q+ u+ f8 c8 V%let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
" G% b, v" n- E%end;
; ?. Y: D7 u6 d5 x& Q
5 \# |! c  ?. y0 Q% {7 K$ e/* 去除&OutputString._Num前后的空格 */
%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));
& h2 u3 e/ ?3 N' a+ H; |2 P0 C
/* 删除不必要的表格 */
4 i+ G0 a$ {) ]8 }proc delete data=SS_temp;
run;

%mend;

2 g8 i2 [) B$ Z" Q$ Q
! P4 Q+ D, c' k2 A* B- ~%macro Demo();
  S  _8 f& R$ u: |7 x% f& F* L
%let InputString=12 -24;
%let OutputString=a;
%SeparateString(&InputString,&OutputString);

2 v+ |1 W+ g/ `' a5 c- w( y) Z- a%put &a_Num;
# o3 m! E% c0 K/ {%put &a_Var2;
- ^4 @6 d7 w9 q# m
( f1 H5 ^* M& z0 n%mend;

5 C/ ?. n* F  g9 j7 O) ?2 n