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

百年孤独

这个宏用于得到由多个单词构成的（用空格分隔单词）宏变量的单词数目，并且把这些单词分别赋给一系列的宏变量
我写的宏中间的参数一般可设置多个数据集/变量，所以需要这个SeparateString把它拆分出来
9 B5 y- w4 T, O; P/ a* R
/ j! N* P4 R. q% _3 |$ G%macro SeparateString(InputString,OutputString);
/**********************************************************************/
  d+ s& d' F0 K9 K5 {9 c: K" E/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
8 Q1 d1 `  F( `7 E; B/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
9 m: s' l& U: g* N/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
. l1 N! z1 t, L7 `- ~9 p$ }/* 出的字符串前缀，不需要加最后的下划线。 */
/* */
9 O) O, k- n; U/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
/ ~! P& R4 Y4 H: N! x5 O/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
7 `' N( f6 H: z/* */
+ q: W9 \8 ?" x. i3 J2 \. y/* Created on 2012.9.18 */
3 W6 n) A" _$ |2 w9 f/* Modified on 2012.12.6 */
7 N# R3 K8 T5 ?0 v+ i6 N! q/**********************************************************************/
: m0 _# K& K# Q7 {
data SS_temp;
Str="&InputString";
run;

$ L& @$ j1 A. R- T5 xdata SS_temp;
set SS_temp;
9 D8 R# B/ ^, _- k, a# [) m- h# OWords=0;
" ~4 W: R# d% M" H6 Rdo while(SCAN(Str,Words+1,' ') NE "");
Words+1;
end;
% R: ~3 y$ `" `run;

$ u% c! j8 K" I! B%global &OutputString._Num;

proc sql noprint;
; s& N# H# _, g& W4 yselect Words into :&OutputString._Num from SS_Temp;
quit;

* M7 x! ?/ g$ I, \$ |1 {) ]%do SS_i=1 %to &&&OutputString._Num;
( A/ E6 B6 o% @1 H%global &OutputString._Var&SS_i;
%let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
2 U$ o4 t# h( H/ e%end;

. K; m) M1 ~( E/* 去除&OutputString._Num前后的空格 */
%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));
  x) N, w/ a- g# g3 k4 U: J4 x
/* 删除不必要的表格 */
' H- q: [  G+ c! ]- o- ^proc delete data=SS_temp;
- T# g1 Q8 m6 k6 |run;
6 L9 f: X) x; ~
$ u2 {8 V4 C  W6 ~/ l( L' I%mend;
4 `+ o9 K# p+ q' t. }
$ ]% X2 R. T2 P6 M9 D% w; j) @' G- s
%macro Demo();
0 s* I+ k' H" M" ~# i
0 P! @% u& j: @# f" }! s( @% }2 I%let InputString=12 -24;
3 `5 {/ l. |& \- ]* z1 j1 X, [7 B" ~2 ~%let OutputString=a;
%SeparateString(&InputString,&OutputString);
( k2 V, z; m- N9 n
5 {  u$ U! O% @. U0 ^. W%put &a_Num;
  k9 u" C* X/ v& E; q1 K2 ?/ X%put &a_Var2;
9 k; m$ ?/ m$ X5 H- o- a
! R. D3 W; ?2 M4 o3 }. `%mend;
  O2 v4 F/ H% c* z6 P) `
8 Y5 K( V& e; i5 E