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

百年孤独

这个宏用于得到由多个单词构成的（用空格分隔单词）宏变量的单词数目，并且把这些单词分别赋给一系列的宏变量
我写的宏中间的参数一般可设置多个数据集/变量，所以需要这个SeparateString把它拆分出来
# H- |8 X& N' p
%macro SeparateString(InputString,OutputString);
/**********************************************************************/
/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
4 p' E. A# T/ a3 ]/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
/* 出的字符串前缀，不需要加最后的下划线。 */
0 C# r6 T4 X7 Z+ `. @/* */
! S/ D" c/ V/ @0 _0 h$ ~. u/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
/* */
) k/ Z9 r: {! i( L; H$ b, i6 d% S/* Created on 2012.9.18 */
/* Modified on 2012.12.6 */
/**********************************************************************/
0 r# t4 }; _/ V5 z
data SS_temp;
Str="&InputString";
run;

/ j1 D4 }6 j2 z, b+ Vdata SS_temp;
- L) [9 o' R: k% l5 y+ Mset SS_temp;
% X  {% A' F1 L' W% s1 Q, SWords=0;
0 P8 V! V/ A! u- @do while(SCAN(Str,Words+1,' ') NE "");
Words+1;
end;
run;
9 E* b  h1 @3 H* o$ A& `' Y( m
# D' b$ ]% g' K" \1 i1 r" S4 p2 R! k%global &OutputString._Num;

! k6 U  n' c' c+ E+ |, pproc sql noprint;
, M0 ]1 P+ }/ u2 Pselect Words into :&OutputString._Num from SS_Temp;
/ A9 ]4 J: Q% f  M  R  R! aquit;

%do SS_i=1 %to &&&OutputString._Num;
$ X) s& p' L% v8 u# u' F" E%global &OutputString._Var&SS_i;
%let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
%end;
& F+ p" R; ~. n# G- o# }# b
2 N, P$ J" e8 m1 ~: x" T6 Q" p/ A; K3 {/* 去除&OutputString._Num前后的空格 */
/ }. {. _4 L% m! h%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));
2 n. g) N2 A8 m+ E% C' u. M) |
/* 删除不必要的表格 */
proc delete data=SS_temp;
+ z+ W" g$ r, f- P$ v2 c7 Urun;
0 k8 p( t3 ?2 n- A) y" ?
%mend;


%macro Demo();
! \5 ?; f/ C( s4 L2 m: j
%let InputString=12 -24;
8 R: Y* @3 k5 {5 q& M%let OutputString=a;
: O# V9 l( o2 M2 f+ Q! U- Z% Q8 B%SeparateString(&InputString,&OutputString);
3 F% X& k; o7 s9 ^$ p
2 I* @; f$ G9 S! z# N- X- \# `* o%put &a_Num;
%put &a_Var2;
5 B& N$ |& i; |$ n
%mend;