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

百年孤独

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

%macro SeparateString(InputString,OutputString);
) h. D5 b2 k: Y: k/**********************************************************************/
/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
+ W4 A* O) c; Y! |- \9 E. `/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
4 O9 U* E% i9 R9 C/* 出的字符串前缀，不需要加最后的下划线。 */
5 L( \# m/ B: P- e) h/* */
: p* L# K( c5 u5 C/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
; ^+ v7 h$ e0 N  |- t$ V/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
/* */
" _+ f- n1 A9 O6 ]  v) P6 F* l/* Created on 2012.9.18 */
% I. A% s6 Y1 V; F: E0 N/* Modified on 2012.12.6 */
/**********************************************************************/
. {: {" n0 G  h7 P$ Q
data SS_temp;
Str="&InputString";
5 L6 u+ Z% y1 P. t+ arun;

data SS_temp;
set SS_temp;
- x! J. _3 c7 z0 W3 S7 F9 i. @Words=0;
do while(SCAN(Str,Words+1,' ') NE "");
Words+1;
end;
run;
; @1 a* _8 r. Y: x, d
+ e8 V. x6 e8 I$ b! V. j& x- v%global &OutputString._Num;

proc sql noprint;
0 }0 X5 P( |( e7 ]  iselect Words into :&OutputString._Num from SS_Temp;
quit;

%do SS_i=1 %to &&&OutputString._Num;
& C$ I) a$ y$ A" H%global &OutputString._Var&SS_i;
%let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
%end;
! v8 \5 Q' l, T# H5 q  A
0 E# {: [$ V4 s( a) I/* 去除&OutputString._Num前后的空格 */
8 ~5 d* M" b: u# K3 ?1 W%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));

/* 删除不必要的表格 */
proc delete data=SS_temp;
5 c' g! i+ a  u% U) v: B3 H7 @; I) {run;

%mend;
- g3 ]- r6 w) W  b" i

' J0 T% L: A. G  o3 R%macro Demo();

%let InputString=12 -24;
%let OutputString=a;
5 x6 ]- s6 G% J# U- }$ j%SeparateString(&InputString,&OutputString);

%put &a_Num;
%put &a_Var2;
+ f6 M. Z' Q. G3 J
" v/ j! ~% d# f+ i' j%mend;