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

百年孤独

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

) L2 G' S0 j1 e4 B4 W+ Z- ?%macro SeparateString(InputString,OutputString);
9 z. d, L- z% Z$ |1 k! ~$ @/**********************************************************************/
/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
6 \9 ]- U: {, T; u8 D$ p/ |) c" v/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
, j  H) R, F  @3 Y1 L7 a0 [/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
# E- t$ h7 [9 H9 o8 i& M/* 出的字符串前缀，不需要加最后的下划线。 */
/* */
7 n, _( s2 V8 V/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
9 ~4 i  D3 g" x: T: p/* */
9 f0 ^( U' i' x' m, @" s/* Created on 2012.9.18 */
, ~0 C' b2 Y: c8 Z/* Modified on 2012.12.6 */
- y- p* v+ q# t( w/**********************************************************************/
. B5 z& f+ R) g1 u$ S
data SS_temp;
Str="&InputString";
run;
, ^) W1 z3 l. {7 j2 g! W/ V( A; X
data SS_temp;
set SS_temp;
7 D; U9 a4 Y, ^" cWords=0;
4 ?& p8 t" B7 a* Ydo while(SCAN(Str,Words+1,' ') NE "");
5 i* u: u4 \3 v! F/ h+ OWords+1;
end;
, F% `% O" r9 [" X1 Q& l$ Zrun;
6 A, M( Z. |' ]
9 ~5 e7 G3 |7 e* ^  d%global &OutputString._Num;

, @' R$ r. p, qproc sql noprint;
; l2 x. |) F) X4 Mselect Words into :&OutputString._Num from SS_Temp;
$ e: s, q3 Q  A$ ?6 Q: ]quit;

%do SS_i=1 %to &&&OutputString._Num;
8 e  V1 S( C$ o  n* H+ z%global &OutputString._Var&SS_i;
" f# r; T3 T* I5 b# u%let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
- g0 t3 ]- g  Q- s& X' N2 }%end;
2 j2 @) ]7 X' u/ p
/* 去除&OutputString._Num前后的空格 */
%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));
( X6 W6 u6 e  d) Z
1 v1 P  o, H8 t, c& i/* 删除不必要的表格 */
3 ~" J8 o3 u  ^1 ^proc delete data=SS_temp;
. {- f3 \6 i. a9 e6 qrun;
" s) p+ @$ i3 \/ E0 u
%mend;

- @. g/ B1 U) {$ r$ V9 f
' G+ v$ i9 W7 H3 s%macro Demo();
, Y5 _+ B& ]( Q2 m0 ^9 f
6 o' ~" x; m7 i% Z) F2 j# \%let InputString=12 -24;
%let OutputString=a;
%SeparateString(&InputString,&OutputString);

%put &a_Num;
%put &a_Var2;

7 \. v9 g+ C5 u% S- t* b% r%mend;