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

百年孤独

这个宏用于得到由多个单词构成的（用空格分隔单词）宏变量的单词数目，并且把这些单词分别赋给一系列的宏变量
3 u/ K. O7 o1 T0 `0 z( c7 z0 h5 G我写的宏中间的参数一般可设置多个数据集/变量，所以需要这个SeparateString把它拆分出来
: z- A6 e2 ]# I: h7 u: Y
) R0 U# u- N- p1 `) P. f; u5 f%macro SeparateString(InputString,OutputString);
/**********************************************************************/
6 p$ ^. [  Z* d5 W7 y4 {1 H/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
4 w4 v: }$ z0 l# B$ {/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
; X$ [, Y: ?9 Q2 e/ `+ Y- H/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
/* 出的字符串前缀，不需要加最后的下划线。 */
/* */
/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
/* */
/* Created on 2012.9.18 */
6 j- l, l" }) ]. m+ p/* Modified on 2012.12.6 */
$ A$ n, l7 z( t9 R' I/**********************************************************************/

data SS_temp;
Str="&InputString";
run;
5 v: h2 z- d; b9 T
data SS_temp;
6 p9 M2 U: n$ V( l  Yset SS_temp;
0 t/ |% D# ~! v6 UWords=0;
do while(SCAN(Str,Words+1,' ') NE "");
Words+1;
8 A# ~0 {* i# @! P" j1 Cend;
run;
: r4 w" h% ]5 R2 V  Y& L0 @: i
5 X2 K7 v3 J3 ]- f+ \0 x! }%global &OutputString._Num;

proc sql noprint;
+ w  `1 z' X5 x' I& ~/ ~7 [select Words into :&OutputString._Num from SS_Temp;
& j- C1 f9 l- equit;

%do SS_i=1 %to &&&OutputString._Num;
%global &OutputString._Var&SS_i;
%let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
* q" \6 v! u" w' J; Z8 W- S%end;
$ I. b0 W2 R+ Q' L4 S5 _7 M
/* 去除&OutputString._Num前后的空格 */
9 A' T. ^% G2 m2 |) b+ @4 d%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));

/* 删除不必要的表格 */
0 g3 x2 q) J, B8 p) A  Q/ Qproc delete data=SS_temp;
run;

- b* r8 T! x8 q- A- `) S%mend;
, L2 W2 C0 c* M- @
+ S. V; T( ?, j- d. y( D" b
%macro Demo();

1 `% x# u4 }! D8 @%let InputString=12 -24;
%let OutputString=a;
" }; ]6 n0 _1 W' b0 N%SeparateString(&InputString,&OutputString);
; g0 Y2 T% Z% O7 B$ S1 g1 i4 a
%put &a_Num;
%put &a_Var2;

; j, u& f2 I' r9 [, _/ m& M%mend;