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

百年孤独

这个宏用于得到由多个单词构成的（用空格分隔单词）宏变量的单词数目，并且把这些单词分别赋给一系列的宏变量
我写的宏中间的参数一般可设置多个数据集/变量，所以需要这个SeparateString把它拆分出来
( E2 {/ c- a: U2 F- }& V& C
) {- a0 ~" {+ K# k, u& K%macro SeparateString(InputString,OutputString);
5 W  P& }. ~9 t& P2 i6 m7 ~/**********************************************************************/
/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
1 f/ O* `. b0 r5 S+ S/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
& y! i' j8 t$ f3 {/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
7 V) k6 `2 h! q1 \( f4 U* {/* 出的字符串前缀，不需要加最后的下划线。 */
/* */
/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
( V+ s' q3 k# g/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
5 d: t2 F. q3 n; b/* */
/* Created on 2012.9.18 */
/* Modified on 2012.12.6 */
/**********************************************************************/
. n: L! A! }, U# o: N6 A) Y+ O
data SS_temp;
Str="&InputString";
( y5 O, J( h3 C3 J6 G* h0 F* jrun;
) Q5 z. X9 ?5 `/ [7 o/ }$ a
1 |3 l0 P7 p5 ]# F9 B: Y, M: t4 {data SS_temp;
# Y. O$ t" Q" p% gset SS_temp;
5 Q* k& f' J9 @6 }: EWords=0;
; q; `! G0 v1 d9 |3 T$ g+ ddo while(SCAN(Str,Words+1,' ') NE "");
Words+1;
end;
run;

%global &OutputString._Num;

proc sql noprint;
2 g' t* _' ?, u# F, _select Words into :&OutputString._Num from SS_Temp;
) o" r; _! s( Aquit;

%do SS_i=1 %to &&&OutputString._Num;
8 j# a" |8 j6 i3 t%global &OutputString._Var&SS_i;
%let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
' {5 U; g4 J+ i0 p  [  s- e%end;

: }/ B' ^- I. {) ^/* 去除&OutputString._Num前后的空格 */
# a- C3 q3 ?; r6 @+ q4 {  z%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));

* d: L% o4 g% ?1 B' h' O/* 删除不必要的表格 */
9 }1 f( D- \7 _: E/ a- Mproc delete data=SS_temp;
run;

/ G' O* f! @2 ?( ^. Y* Q%mend;
/ r: c# ?# n) D5 `. x
+ b5 a1 w* D$ W+ W+ m, v
8 ~9 U" g/ ]* X6 ], z3 w* d5 p9 i2 J. q%macro Demo();

  \. B+ [3 `" c1 ^%let InputString=12 -24;
%let OutputString=a;
' z9 Z* T2 [$ i# E9 m8 F" ~%SeparateString(&InputString,&OutputString);
# d* v- K7 R! f7 t! W
%put &a_Num;
%put &a_Var2;

( O' o( J' q0 n8 t$ F0 u2 v%mend;