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

百年孤独

这个宏用于得到由多个单词构成的（用空格分隔单词）宏变量的单词数目，并且把这些单词分别赋给一系列的宏变量
我写的宏中间的参数一般可设置多个数据集/变量，所以需要这个SeparateString把它拆分出来
; P& _; s6 t/ h
%macro SeparateString(InputString,OutputString);
. s& n" J& ^! n3 @! ]/**********************************************************************/
/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
& @# X, w0 g9 X/ A/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
/ y- T1 a6 h2 M5 U% o/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
/* 出的字符串前缀，不需要加最后的下划线。 */
/* */
/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
( E: v, ^4 x, z  i* D; L/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
/* */
" _& a. }+ C. {3 i% x2 e/* Created on 2012.9.18 */
' ]$ u! Z5 G$ x! K, `! e6 A- A" S# t: D7 O/* Modified on 2012.12.6 */
/**********************************************************************/

data SS_temp;
Str="&InputString";
run;

) v: U1 G/ R8 q) y$ e4 [& w/ Tdata SS_temp;
. p* A4 B3 E3 @set SS_temp;
Words=0;
: H) D3 E$ o% J  Ydo while(SCAN(Str,Words+1,' ') NE "");
Words+1;
end;
run;
4 x, q/ @7 e: O( s
%global &OutputString._Num;
2 F8 Q( l) x" W  [
proc sql noprint;
select Words into :&OutputString._Num from SS_Temp;
1 N. d6 O. x0 ?3 ^4 E2 uquit;
" Z# N  [* O4 h( b2 H
$ ~2 b$ b* T* Q, X  x%do SS_i=1 %to &&&OutputString._Num;
" [1 j% w: `  N%global &OutputString._Var&SS_i;
( e* R& G$ R/ U/ n! ]%let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
%end;

/* 去除&OutputString._Num前后的空格 */
%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));
( s3 Y3 Z, r8 B
2 @6 t. }- l* o2 C7 n8 g6 G$ i/* 删除不必要的表格 */
$ t2 s) v7 R% [% F4 Y' ]proc delete data=SS_temp;
5 D: X6 G# b: Krun;
; i5 ~3 ?, f5 Q, f5 _& V. P
* _; a* P. n6 N  O: \0 z# ?$ y%mend;
- t! i0 Y: X- E5 n

( C' T6 ?7 V* o# X%macro Demo();

  p7 G7 N& h0 {* G: E# p( O/ x%let InputString=12 -24;
! _1 u# y2 N% @2 e# F( C& i* g  d%let OutputString=a;
%SeparateString(&InputString,&OutputString);
2 R( [1 r9 L9 C) ~
/ c1 J6 s: h. }%put &a_Num;
%put &a_Var2;

( M2 S0 |6 G6 L# k+ |) D. ^%mend;
/ T. c2 d- p2 k! [
5 g( M* c4 d% |8 J, `