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

百年孤独

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

! p# b' }# l) |%macro SeparateString(InputString,OutputString);
# q7 {$ x( W& j& v! k, e/**********************************************************************/
/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
! [# e0 a9 i: a6 a& `! {' N/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
/ \; k8 |* _" K4 U" u3 m5 Y5 r/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
+ @9 |' a: u( n7 c; \& M6 F/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
/* 出的字符串前缀，不需要加最后的下划线。 */
8 h8 @# V8 B- B; A/* */
* w, @  w8 [$ g, `' [$ l5 D) f/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
/* */
8 _$ _0 [! ~2 l2 l5 P1 t/* Created on 2012.9.18 */
/* Modified on 2012.12.6 */
+ Q) N9 V2 V4 ?3 I4 A$ n& i" Z/**********************************************************************/
. j3 G& [. [" @' l4 @) M% [
& e& D- \, ^) v) `2 _data SS_temp;
Str="&InputString";
run;

0 K! J( M" Q* @9 }. Pdata SS_temp;
set SS_temp;
! a) M9 _" Q$ U* y9 q: p; y! VWords=0;
do while(SCAN(Str,Words+1,' ') NE "");
Words+1;
end;
run;
$ S% r6 j* [3 ~$ t7 g" J
4 Y8 e* W+ X& V: W%global &OutputString._Num;
5 o% S! Q! M8 f4 i! v( U
+ M" _3 U9 x" c: xproc sql noprint;
$ c2 x- u) w/ E  {select Words into :&OutputString._Num from SS_Temp;
quit;
" i- w1 B# F3 @, C# P: D9 L" c5 h
1 k6 w. L  g2 K& F2 U( k%do SS_i=1 %to &&&OutputString._Num;
%global &OutputString._Var&SS_i;
%let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
- Q& ?+ c! p, X, L%end;
5 N0 G5 Q! o' e& Q0 s3 m
/* 去除&OutputString._Num前后的空格 */
%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));
7 k3 \# w3 G# r3 x
/* 删除不必要的表格 */
proc delete data=SS_temp;
run;

%mend;
, ^! C7 L, F+ j! t, e/ {  K; e

%macro Demo();
; k+ p* @9 \1 }- l- M
%let InputString=12 -24;
%let OutputString=a;
%SeparateString(&InputString,&OutputString);
. \" r# _8 U& K
' G  R; k# O8 i) R- I5 z! }%put &a_Num;
%put &a_Var2;
& f' U, K/ y8 u7 J& i
& {+ V& e$ c+ F$ s7 d, p. K; h0 d%mend;
! w) d) l; N6 i# g5 A9 ?
2 I( d- q  Q* p0 @