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

百年孤独

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

%macro SeparateString(InputString,OutputString);
/ f# j. b3 F+ N  `/**********************************************************************/
/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
6 q$ d: Z& N4 e% q0 }" p/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
# l6 ~8 G3 w5 j- _% ~/ k, y/* 出的字符串前缀，不需要加最后的下划线。 */
/* */
7 M4 W& g. e* f% o  G# |3 T  m1 F/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
0 H% _! c4 Q* ~" D8 r/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
( I5 p9 N4 U+ M( R) S; k/* */
& x1 c' w1 l4 z' X8 v' a/ j/* Created on 2012.9.18 */
/* Modified on 2012.12.6 */
0 Y6 s1 Y! U8 G7 j. ?- I/**********************************************************************/

# ?  Q/ Q9 ^2 L( r" Jdata SS_temp;
4 O. J$ J  P! O5 z/ ?' [Str="&InputString";
7 U# r0 a+ w, t; n) T9 o8 b/ brun;

data SS_temp;
set SS_temp;
6 H  L; X& K8 F5 ~( l$ \Words=0;
do while(SCAN(Str,Words+1,' ') NE "");
Words+1;
end;
; l5 X! i0 h2 K& U# e  ^4 }run;

%global &OutputString._Num;
; N/ X0 N" F3 q4 i
proc sql noprint;
. Y) _) O9 e1 d, J. T/ Oselect Words into :&OutputString._Num from SS_Temp;
quit;

%do SS_i=1 %to &&&OutputString._Num;
%global &OutputString._Var&SS_i;
%let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
: \8 R3 F9 ?) r( q, p+ Q' [%end;

" g/ O/ h# O$ t' p/* 去除&OutputString._Num前后的空格 */
& h# V6 q/ k/ G% N/ w9 q* z% m%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));
: Q8 w  Y8 h  v0 {
/* 删除不必要的表格 */
  u4 s( }+ |' n1 kproc delete data=SS_temp;
" N$ J! ?3 j, A1 k5 Irun;
! Y/ l& Y" H: w# J% u
%mend;

* ]. Q8 d- {; j
%macro Demo();
* Q" z% I4 s1 i) q' o8 q
%let InputString=12 -24;
8 K: B( ^# S' P* ^* ]  \2 e%let OutputString=a;
%SeparateString(&InputString,&OutputString);
( Y1 }: _: _6 W+ d* i) m
- r) _0 R; g% ]% k%put &a_Num;
%put &a_Var2;

( p' f9 v1 w% C( U7 Q$ _%mend;
0 g0 E6 ~, ?7 V* q' W! y8 m+ S+ y