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

百年孤独

这个宏用于得到由多个单词构成的（用空格分隔单词）宏变量的单词数目，并且把这些单词分别赋给一系列的宏变量
* h; A; U$ r5 D: C0 Y: w5 N! B- [我写的宏中间的参数一般可设置多个数据集/变量，所以需要这个SeparateString把它拆分出来
( S5 m1 ^& ]6 r' l9 G' M
, W1 n$ `  Z' R1 j5 u* O* }%macro SeparateString(InputString,OutputString);
/**********************************************************************/
0 e4 g* \  D. I3 I6 B/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
' X: t2 f2 |5 q; u+ @/* 出的字符串前缀，不需要加最后的下划线。 */
/* */
/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
  _6 y' d& k* O; Z/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
/* */
/* Created on 2012.9.18 */
/* Modified on 2012.12.6 */
/**********************************************************************/
, F1 A$ i8 R9 E: q& w* N$ [6 X- i
data SS_temp;
& T& U8 c4 _% Q: ^6 sStr="&InputString";
9 _5 p6 l& R. Z+ Krun;
9 g: G  O3 }0 _% U0 w
. ~0 `6 X. N8 p7 z/ ?data SS_temp;
set SS_temp;
7 n! [5 \6 G/ ]+ T1 EWords=0;
do while(SCAN(Str,Words+1,' ') NE "");
" e# |5 F4 L% ~4 c% r6 LWords+1;
end;
9 ~9 W  f% f. Q0 K+ H/ d/ Xrun;

%global &OutputString._Num;

& H8 v) G& q8 o1 v, D0 t' Bproc sql noprint;
select Words into :&OutputString._Num from SS_Temp;
7 w& U; r- C3 mquit;

" g# h# k2 s0 U/ Q3 p6 _& E%do SS_i=1 %to &&&OutputString._Num;
; ^' U" [9 i6 s%global &OutputString._Var&SS_i;
& ?$ R9 I0 u- l$ [7 f( }/ ?%let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
. ?0 l5 l& i) s- d0 [8 S%end;

/* 去除&OutputString._Num前后的空格 */
1 c5 o' n( D1 B7 y%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));

/* 删除不必要的表格 */
( e8 b0 W+ d$ r2 n1 m7 c# uproc delete data=SS_temp;
run;

( B& B  r  N7 e7 S! \) N%mend;

% u' T& o" W# q+ F; S6 b
%macro Demo();

5 e) W; a7 z2 r%let InputString=12 -24;
%let OutputString=a;
%SeparateString(&InputString,&OutputString);
, x3 o, V4 K# ^' }3 K/ |2 B
%put &a_Num;
# Z$ X3 O, x% b0 T%put &a_Var2;

9 P! K+ w1 W* M! F%mend;

' p: p- o+ v' S$ P( o