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

百年孤独

这个宏用于得到由多个单词构成的（用空格分隔单词）宏变量的单词数目，并且把这些单词分别赋给一系列的宏变量
& j4 v9 R" t9 e& D6 T( {我写的宏中间的参数一般可设置多个数据集/变量，所以需要这个SeparateString把它拆分出来
2 H2 A3 H' C5 R- p6 R
%macro SeparateString(InputString,OutputString);
/**********************************************************************/
/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
+ i7 X/ ?$ o( z$ \6 b$ b/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
2 |$ V8 }7 }9 F/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
/* 出的字符串前缀，不需要加最后的下划线。 */
% v  p0 w' ?0 v/* */
+ c5 _) p, }0 t. E. C- a/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
/* */
/* Created on 2012.9.18 */
/* Modified on 2012.12.6 */
( u3 u# o4 ^! H. C* q/**********************************************************************/
5 I$ [! M2 t2 j7 U0 Z& n
8 g" R7 e" ~. C2 X; Odata SS_temp;
  K9 `7 l' k, P' g- ^Str="&InputString";
: H) I, _8 x6 F! ?/ {% W# R9 |run;

data SS_temp;
- N1 t! w! C8 Y9 [! T6 Vset SS_temp;
Words=0;
do while(SCAN(Str,Words+1,' ') NE "");
0 w* d& ^* X6 H4 ?7 X2 G( fWords+1;
end;
+ p; r; L4 S: s! R6 g7 u+ d& rrun;

/ m4 M! [# b. h) V5 E%global &OutputString._Num;
7 {$ z6 ^& ?' z; d/ _7 M: |
4 @# i8 Q+ Y( d  ?* t% Pproc sql noprint;
3 [) P  [: i, c" N  J3 Yselect Words into :&OutputString._Num from SS_Temp;
quit;

%do SS_i=1 %to &&&OutputString._Num;
%global &OutputString._Var&SS_i;
' T+ H. @  H; Y0 i- j8 {" \%let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
%end;

; ?& q$ P! f1 e0 ^2 j/* 去除&OutputString._Num前后的空格 */
1 {% G1 N( ?0 I7 t%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));

% n* S0 F5 J% {1 p3 L4 E/* 删除不必要的表格 */
proc delete data=SS_temp;
run;
' [% Q: x6 w$ o9 N' k' z+ r
4 E5 P: X4 X) P9 o%mend;


2 \9 w' J* M" ^, v7 J%macro Demo();
- [/ g& ]# I7 p
%let InputString=12 -24;
4 I6 A8 r% ]$ }& ^' S1 W%let OutputString=a;
8 Q) R9 k/ G" o%SeparateString(&InputString,&OutputString);
/ B- d, T0 P3 D4 q. ^
%put &a_Num;
%put &a_Var2;
8 J( k) H, a6 {: n
. i! l$ H$ {; z! _%mend;
, y$ \* J5 T: }5 x& y" U6 ~. N! i( K