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

百年孤独

这个宏用于得到由多个单词构成的（用空格分隔单词）宏变量的单词数目，并且把这些单词分别赋给一系列的宏变量
& U6 N( c4 j" s% v1 k6 k我写的宏中间的参数一般可设置多个数据集/变量，所以需要这个SeparateString把它拆分出来
+ m9 A; D/ \1 E" W# y& U
' t. P6 |( ~5 o" w%macro SeparateString(InputString,OutputString);
/**********************************************************************/
/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
; J+ w+ w! j: o; v& Q; U7 E4 c% m, V8 t/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
/* 出的字符串前缀，不需要加最后的下划线。 */
( ~7 j) [, P' D6 k/* */
" \2 e9 H+ Z0 D7 O: q6 m/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
8 y% C& G% f9 j( ~3 I/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
0 t5 T: m- `; z0 \" z/* */
. y- }7 U! p) n+ h/* Created on 2012.9.18 */
( F) K, l; U' W% P/* Modified on 2012.12.6 */
' E6 _- i7 s) w2 B! m$ q/**********************************************************************/
) Z" O  J4 a; J
) v4 m9 X; G' p5 K  ]data SS_temp;
# Y& w9 K5 g4 f2 {7 E% uStr="&InputString";
) e% [4 W6 w2 ?# t8 a0 Zrun;

data SS_temp;
set SS_temp;
Words=0;
do while(SCAN(Str,Words+1,' ') NE "");
/ W2 C) x. _( {5 \% k2 FWords+1;
end;
run;

%global &OutputString._Num;

! x4 j; n. M8 d0 mproc sql noprint;
. ?5 B% }! z7 m0 A/ ^( b! k. {select Words into :&OutputString._Num from SS_Temp;
+ N" I7 ^4 m; C# ]7 hquit;

%do SS_i=1 %to &&&OutputString._Num;
%global &OutputString._Var&SS_i;
3 {* o2 O0 E6 n6 x- B%let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
%end;
: k8 ?( r8 e) F7 O" v3 S* J( O5 i2 s
/* 去除&OutputString._Num前后的空格 */
- O) [$ A7 Y0 Z8 [% [%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));
6 P! n. {1 k8 I! P, e; I
/* 删除不必要的表格 */
) L- M: o; q( |- Q4 u0 G" |$ P' v( U" hproc delete data=SS_temp;
  d4 }3 A- U# [( xrun;
. c- {; d/ J0 f  v3 d. b
%mend;
! j. K6 g! h6 w$ M3 K

%macro Demo();

- y7 j$ _; _& L6 ]$ u8 b%let InputString=12 -24;
, F0 F! }3 M+ s) }5 v%let OutputString=a;
%SeparateString(&InputString,&OutputString);

%put &a_Num;
%put &a_Var2;

%mend;