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

百年孤独

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

%macro SeparateString(InputString,OutputString);
5 {" K, o/ ~7 o9 O, T- T/**********************************************************************/
/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
4 w- S# a" g9 E. Y% W8 W/ Z7 Y2 s/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
' s; Y# t) {- R1 ]/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
8 V5 q  ~- Z: L! m7 B/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
/* 出的字符串前缀，不需要加最后的下划线。 */
/* */
3 G9 W% I, g+ Q7 {; f. R% U/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
/* */
, Z; a$ Y3 D1 u- g* [/* Created on 2012.9.18 */
( L. _. Z/ v  a# k& w/* Modified on 2012.12.6 */
9 z; ~  H4 u6 P% y. i: `) I4 k2 K/**********************************************************************/

, I( m8 {& y, d$ s* Udata SS_temp;
Str="&InputString";
9 X1 W  R4 A. V7 i" D9 d4 ~7 irun;

data SS_temp;
; @3 t, c- T7 e: Iset SS_temp;
. i( U# I: D' Q- B+ rWords=0;
8 I( J7 ?, c( l& @" L: Odo while(SCAN(Str,Words+1,' ') NE "");
3 }. |7 S6 H* r% g) ]' B$ w6 dWords+1;
, n; ?$ M: {$ W* }! J: s& B/ O! ]end;
run;

. ?* G  a. M# u9 Y, |' B%global &OutputString._Num;

proc sql noprint;
select Words into :&OutputString._Num from SS_Temp;
% H  w9 b, a" |8 aquit;

%do SS_i=1 %to &&&OutputString._Num;
%global &OutputString._Var&SS_i;
%let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
%end;
- P& W+ B, `( F8 U, F  m
8 u+ |+ H; y' v* G8 I/* 去除&OutputString._Num前后的空格 */
  F: G' y5 U! X: R%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));

/* 删除不必要的表格 */
; z. c5 {1 V! v* I4 c# nproc delete data=SS_temp;
run;
# U( C. w: V$ ~% U+ k2 B* N& X" Q
- Y+ F  w2 R+ B%mend;
5 N) F, I" \* l" B! i5 _
/ i7 k# `; v6 R( ~6 w
/ u* l; s; O' H* G%macro Demo();

7 O3 h/ r4 k; Q( G  p%let InputString=12 -24;
9 u# ~7 q: W" @' L7 D& M( E- e%let OutputString=a;
& ]+ P* d6 Q' |* W, N5 q%SeparateString(&InputString,&OutputString);
1 t) K% b6 [% \
& H  |$ \/ P6 i7 M%put &a_Num;
; ?/ |# {. i/ n! M9 w- d: @" ?1 \' h%put &a_Var2;

%mend;
3 T: h# K. W/ T