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

百年孤独

这个宏用于得到由多个单词构成的（用空格分隔单词）宏变量的单词数目，并且把这些单词分别赋给一系列的宏变量
我写的宏中间的参数一般可设置多个数据集/变量，所以需要这个SeparateString把它拆分出来
) Q% O4 r& p6 C/ R- n1 |& Q
%macro SeparateString(InputString,OutputString);
/**********************************************************************/
7 `% v" @+ k5 x- c. t/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
" [* ^: x# q9 o/ h) c/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
7 U. i3 ?/ o) O% @/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
( }- |$ m# |1 y9 G) D- u/* 出的字符串前缀，不需要加最后的下划线。 */
) o1 [( _; Z8 {+ t  l2 q/* */
/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
$ F7 O" C& P( j6 e, B" L/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
0 d$ N) i$ u3 n' H0 w8 Y/* */
6 o, b, E2 M6 l: k4 w  v7 m/* Created on 2012.9.18 */
6 |- L& _* [# m* g2 S/* Modified on 2012.12.6 */
6 }& Z0 F' a2 Y7 y4 l. s/**********************************************************************/
; r0 f5 C6 O9 B
data SS_temp;
Str="&InputString";
run;

7 h# _6 y! s' g, f5 r$ N4 g6 Zdata SS_temp;
set SS_temp;
2 F" B7 y# F( s3 `$ ?& cWords=0;
do while(SCAN(Str,Words+1,' ') NE "");
Words+1;
# x" K  k3 y! \end;
run;

0 J; n! J% h% ?; M. q9 p# ?%global &OutputString._Num;

proc sql noprint;
4 X8 n% b" K/ ]" V+ e! mselect Words into :&OutputString._Num from SS_Temp;
quit;

%do SS_i=1 %to &&&OutputString._Num;
6 ]5 \4 R% D: S1 k% E3 P# c% D+ a( o%global &OutputString._Var&SS_i;
/ `, ^  E& p. ?- T5 o5 q3 I7 g$ b%let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
' ^$ L% \+ V/ |7 [%end;
( Y3 B- ^" M& Q+ O5 H7 ~- f
/* 去除&OutputString._Num前后的空格 */
%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));
) e; `/ F* A+ W+ ?8 \
- p6 c" }0 F  P! D/ r/* 删除不必要的表格 */
proc delete data=SS_temp;
run;

$ y. z6 P3 E: m% J7 T8 n%mend;
7 m2 _) t! C4 X& O

: d) Y5 Z$ F- k%macro Demo();

1 t+ M( n0 e- f/ M" g* \%let InputString=12 -24;
%let OutputString=a;
8 W9 \% M7 X  p# _+ ^%SeparateString(&InputString,&OutputString);
! A0 R% A& g) N8 r( g- e
%put &a_Num;
%put &a_Var2;
4 x* i$ ?( c& ^$ E4 X) G3 f
%mend;
) T. ]; a. P* e4 A- l8 F2 Z
! k( d7 ~( ~' S" A7 z" U8 ^