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

百年孤独

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

%macro SeparateString(InputString,OutputString);
/ I8 F% E7 X5 I" K/**********************************************************************/
/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
' Q9 X3 S% o7 `* a) z/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
& X. \: S. k" N( R$ s  @  Y% ~/* 出的字符串前缀，不需要加最后的下划线。 */
/* */
/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
: P5 L- L& t% g' ?/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
/* */
( x; h0 i% k; ?9 }/ u/* Created on 2012.9.18 */
/* Modified on 2012.12.6 */
2 c9 o7 y! j, k& i! |/**********************************************************************/

* y& {9 M7 U7 F5 Y" h7 Udata SS_temp;
Str="&InputString";
run;
) N2 W  y( o+ ]# J0 m
1 k2 h4 L! r2 N6 ]1 @data SS_temp;
( R9 l& j1 z* y- nset SS_temp;
3 ?" ?* y8 F4 a' ^Words=0;
do while(SCAN(Str,Words+1,' ') NE "");
Words+1;
: ~" A* y! i$ p6 _6 j' uend;
) j& _% p# D; A* |% I) ^run;

! r" t" q( \9 r2 Y%global &OutputString._Num;
1 E% I3 [' N9 H
0 |5 D& i, H% J) c4 a. W) w- W, Gproc sql noprint;
  Q+ v0 T8 p- M- R. jselect Words into :&OutputString._Num from SS_Temp;
' ?+ J+ _0 E, w9 s: hquit;
5 u2 i) ^, x! p
4 k5 r3 U0 [* e8 N( k% m%do SS_i=1 %to &&&OutputString._Num;
% g7 L( ?1 ?% M# Q* h. W5 {5 k%global &OutputString._Var&SS_i;
%let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
%end;
" Z$ |) ~. s7 g1 [: H8 T/ p& r
" S, p% ]7 n; T, \, h2 Q/* 去除&OutputString._Num前后的空格 */
" W# D0 l6 o) H' V$ `. E7 }%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));
* ]2 G! E  Y( z
% @' L3 `9 ~. t" T5 {+ {$ E/* 删除不必要的表格 */
* U2 v" z, M! Z3 U4 ]proc delete data=SS_temp;
run;

%mend;
$ e5 `+ O* y- G  L9 ?  |
9 l- d7 r3 |! T, d5 e5 r; G
; T. [5 D2 ~7 X5 P, Y2 K%macro Demo();
; n$ F5 u6 s: D8 I5 B; N
+ `3 Y* n. ]6 U, w%let InputString=12 -24;
%let OutputString=a;
%SeparateString(&InputString,&OutputString);
8 c, l2 p2 x9 u; v8 v& p
%put &a_Num;
; ~' j: m' P; t8 g" f- w%put &a_Var2;
9 ?% B4 M, u  [; C! z% h% M; r
%mend;
' o" k8 W, y- C- D0 R: q