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

百年孤独

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

%macro SeparateString(InputString,OutputString);
/**********************************************************************/
8 m3 U9 A5 T% Z/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
* W$ i/ \: S6 n/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
+ f; R: Y9 t7 `. Z: c. [/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
7 r0 v/ d& L/ r% I- l+ \, q1 N/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
0 k! |5 O" i% D+ ?9 x, E" i/* 出的字符串前缀，不需要加最后的下划线。 */
- X% _- `  [" ?9 G$ h; Q/* */
7 y2 S3 M& Y) x; U; K/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
  x; {+ l- k3 R  O, y% I/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
& ~' x+ P7 Z  [6 j5 }: ?. A/* */
/* Created on 2012.9.18 */
# \4 ^! K9 |5 ?/ G3 |: h5 X9 t. O+ C  I/* Modified on 2012.12.6 */
/**********************************************************************/

- v  I+ L5 B. h! o9 tdata SS_temp;
Str="&InputString";
2 Z/ r% c8 R! m  I! Krun;
3 h2 o: r, j( w- v: ~) \! O
data SS_temp;
, |. k. ~: R. O6 S% T: }  Cset SS_temp;
Words=0;
3 G& J. T6 a2 Edo while(SCAN(Str,Words+1,' ') NE "");
2 V. S1 ^+ |$ lWords+1;
end;
run;

%global &OutputString._Num;
* ]8 B2 R0 H# p
proc sql noprint;
9 O- {6 ?/ J" i: z2 aselect Words into :&OutputString._Num from SS_Temp;
5 g% M, K: o5 S: A) e. r* Z. o5 d; qquit;
7 |& x) H3 e& ?: y
- L8 E2 I3 J0 G7 ]4 E" O7 x%do SS_i=1 %to &&&OutputString._Num;
* x" n, Y$ U: _, I4 U9 n%global &OutputString._Var&SS_i;
! w9 m$ I+ d* h  _%let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
2 F( e. m. J. j9 [( Z3 r) U' ]%end;

/* 去除&OutputString._Num前后的空格 */
%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));
8 l% Z/ d$ Z) }( Z
/* 删除不必要的表格 */
* z& r* D2 w8 {; Wproc delete data=SS_temp;
+ C; t1 d7 e% vrun;
/ d& e( V8 j5 k" p+ d! p
%mend;
, J% k# n6 L  H% H

%macro Demo();
! x; y  R4 U! a
6 K0 n1 O- ]! L2 K/ b1 q7 c%let InputString=12 -24;
%let OutputString=a;
# m/ [6 a5 f) s' Q* [%SeparateString(&InputString,&OutputString);
- ]7 Z( t/ ~# p1 i* M1 Y
%put &a_Num;
6 e5 {8 B0 G5 Y5 a- x' ?! b%put &a_Var2;

%mend;
2 b9 n/ T7 b4 A