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

百年孤独

这个宏用于得到由多个单词构成的（用空格分隔单词）宏变量的单词数目，并且把这些单词分别赋给一系列的宏变量
我写的宏中间的参数一般可设置多个数据集/变量，所以需要这个SeparateString把它拆分出来
0 ~, e# W; c; f
%macro SeparateString(InputString,OutputString);
1 h8 t* }9 _2 L- E/**********************************************************************/
/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
2 N8 ^& m3 u( U0 v. t) E5 J/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
/* 出的字符串前缀，不需要加最后的下划线。 */
5 Q# x9 i  d' }, @/* */
9 b% m4 a# E4 R4 q2 Q0 W; {/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
/* */
4 a+ I+ W# X! A( Z! a4 a3 J/* Created on 2012.9.18 */
/* Modified on 2012.12.6 */
/**********************************************************************/
3 P: v5 N: o  x' i# z  T+ H" t
data SS_temp;
Str="&InputString";
9 C  |  d5 s- C6 {: q: m5 Mrun;

data SS_temp;
set SS_temp;
Words=0;
do while(SCAN(Str,Words+1,' ') NE "");
Words+1;
end;
; \1 p+ l; S& N1 @run;
  V' f5 l) c, p& i7 t! F
%global &OutputString._Num;
- w% c9 t' m; {! |/ ^* N
" H7 p* {9 q# J: p% `proc sql noprint;
( L  U8 C+ b5 B; t/ R( F' u8 Z  Cselect 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,' '));
2 a8 i& {( v: A%end;
+ M# l6 P- q6 M" a5 t
8 _8 K6 e' i! L/* 去除&OutputString._Num前后的空格 */
%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));
/ s9 X& P. X. K7 d, S5 D0 P% f  C; A
/* 删除不必要的表格 */
. b0 n+ [1 `8 n' I* h) I" E, Fproc delete data=SS_temp;
run;
8 g( g; T: K4 f' _1 L
2 S$ M' _7 e/ D8 x# v. E%mend;
$ k. Q; g- N; ]3 q/ `

. _) _1 v3 j; N%macro Demo();

%let InputString=12 -24;
%let OutputString=a;
%SeparateString(&InputString,&OutputString);
7 C6 e6 B0 D* W. U
%put &a_Num;
%put &a_Var2;
. t. {; O8 K; w& r% a1 R
%mend;
7 c6 n: O' K' @  N1 y7 q* r6 [