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

百年孤独

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

%macro SeparateString(InputString,OutputString);
/**********************************************************************/
& j4 M& S2 B8 n8 p% |/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
: [0 [$ |9 ~7 d8 l  L6 u/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
$ P. h5 w6 }( x- S: e2 N/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
, a5 A! x; q6 n! R3 y* e( G/* 出的字符串前缀，不需要加最后的下划线。 */
/* */
! Q/ O) l3 z5 V( o, ~; [0 w/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
" e! c: r$ U$ \! [' ~$ O8 M/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
/* */
/* Created on 2012.9.18 */
5 j! Z$ a7 B0 g4 r( w3 a* q4 b/* Modified on 2012.12.6 */
; }0 a1 m7 S/ G. ^+ I' f3 ~) J) S/**********************************************************************/
+ C2 ^8 L0 G9 w1 g9 c  e
data SS_temp;
( E* H4 M0 s5 z0 [Str="&InputString";
. L- I' z5 c7 j7 y6 u6 z& arun;

data SS_temp;
set SS_temp;
Words=0;
do while(SCAN(Str,Words+1,' ') NE "");
Words+1;
end;
run;
+ c* U4 F( N7 ^$ e( Q* K# [
%global &OutputString._Num;

proc sql noprint;
select Words into :&OutputString._Num from SS_Temp;
quit;

! a+ c' H& R/ v$ K$ Y1 p%do SS_i=1 %to &&&OutputString._Num;
%global &OutputString._Var&SS_i;
%let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
) n" t5 o9 L+ F: F2 M8 c; Q; Z' I%end;

/* 去除&OutputString._Num前后的空格 */
  k; I2 z: u, Y6 a! w3 y6 j' i) ?: p* D%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));
. V1 V; C9 m4 f: r$ s
/* 删除不必要的表格 */
. }0 ?0 J, |# Uproc delete data=SS_temp;
9 p- [# K6 l' {) b0 prun;

%mend;
8 K3 o+ ^9 s& K) S4 P+ j

9 Q2 e! a, w% U% @4 M) E%macro Demo();

%let InputString=12 -24;
%let OutputString=a;
7 U/ N1 c, ^: e  @5 T1 B4 E%SeparateString(&InputString,&OutputString);

* t, ?& a$ g; w%put &a_Num;
6 _4 s, h3 q, s1 \6 b0 u%put &a_Var2;
! R& N6 f5 u% |9 ^1 P5 l" W, I
%mend;
' g/ h% e& I( [, J- e- M) ~% B9 N
" ?5 U: {2 N+ x8 j$ ^