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

百年孤独

这个宏用于得到由多个单词构成的（用空格分隔单词）宏变量的单词数目，并且把这些单词分别赋给一系列的宏变量
. _" Z' e1 \3 Q5 E% X& t  R9 F我写的宏中间的参数一般可设置多个数据集/变量，所以需要这个SeparateString把它拆分出来
! }) H& @5 q: t! d
%macro SeparateString(InputString,OutputString);
+ h) o0 S: K1 g9 S# ^/**********************************************************************/
+ y; `- k7 `* y, ~* m) R/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
" Y* y# ^' a; B9 T& k- j/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
/* 出的字符串前缀，不需要加最后的下划线。 */
/* */
/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
/* */
, @) x& `5 s% U# y1 x% |2 G/* Created on 2012.9.18 */
/* Modified on 2012.12.6 */
- T) I0 l3 i- C3 g/ r' i/**********************************************************************/
8 W* n# D5 B( I+ K& D
data SS_temp;
3 {* w7 X9 l- t$ BStr="&InputString";
) ]6 q0 S2 J8 i8 f; A3 crun;
0 {. M- u7 k$ z; S$ u* ~, m) T, w
: ]* E' g3 K; W5 m6 C8 vdata SS_temp;
# p5 ]" d& S& z  hset SS_temp;
Words=0;
do while(SCAN(Str,Words+1,' ') NE "");
+ q/ w6 i& T8 s8 h: lWords+1;
8 N/ \3 o7 I. s  d+ m: f  @6 ^end;
run;
( J* C) l7 W' {4 {, X) r
1 y& q- z& t  M/ j- l& P%global &OutputString._Num;
7 B+ V& W1 y4 f1 {5 J9 w
proc sql noprint;
select Words into :&OutputString._Num from SS_Temp;
quit;

( G1 |! n* B$ }%do SS_i=1 %to &&&OutputString._Num;
%global &OutputString._Var&SS_i;
2 Z* U! \' {% z! d  z0 W; V) o%let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
%end;

/* 去除&OutputString._Num前后的空格 */
) r, a& c& N  W6 A%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));

7 N1 ]: s- l) t" z) j1 u- [/* 删除不必要的表格 */
: ]; H' Y) N7 r  {' I0 G9 S5 uproc delete data=SS_temp;
run;

" t; _% t# r6 H/ K%mend;
" \5 X1 z: y' {# D. @# x5 U( O) @
0 I. c. q) i9 @0 k! u. r& a
%macro Demo();

- `3 N% T  f3 H6 x5 x%let InputString=12 -24;
3 L$ s9 m! X! N5 a7 u%let OutputString=a;
2 O. H1 b/ n" p6 m' ?$ L%SeparateString(&InputString,&OutputString);
6 |7 c+ g0 X0 [4 C+ D7 [. E
%put &a_Num;
) U# s( H7 ?* A( D6 d) T# Y%put &a_Var2;

& I- r' I- y4 M9 C0 x%mend;

; Z, p. f6 q+ B5 h