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

百年孤独

这个宏用于得到由多个单词构成的（用空格分隔单词）宏变量的单词数目，并且把这些单词分别赋给一系列的宏变量
8 b- P5 [/ w* N我写的宏中间的参数一般可设置多个数据集/变量，所以需要这个SeparateString把它拆分出来
5 e' o2 v) _4 S( D1 l+ q7 D! D3 a+ C
%macro SeparateString(InputString,OutputString);
( C' J5 G. F) s. H$ ]/**********************************************************************/
/* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
/* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
, x2 r% r  C+ P' k5 L/* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
; |0 I: c4 R$ i: i( `/* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
/* 出的字符串前缀，不需要加最后的下划线。 */
2 u1 `6 V$ r& w/* */
+ ?2 S7 Z+ M: H7 O/* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
; ]  i$ x) Q% p$ k  K; J/* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
5 }) \8 J2 |& a5 J- P4 y$ i/* */
/* Created on 2012.9.18 */
/* Modified on 2012.12.6 */
+ B6 I. D, i: f2 g/**********************************************************************/

8 {- c* ~$ G0 J5 }9 @data SS_temp;
Str="&InputString";
run;
+ ?1 J% p% Y0 N( p
data SS_temp;
( l' k& q5 k/ J. `( W0 ?& u. B3 hset SS_temp;
Words=0;
do while(SCAN(Str,Words+1,' ') NE "");
Words+1;
( A0 y/ U- t3 e0 p5 w& a( P& pend;
1 A( ~+ f- `. M1 r- o% x  e) y$ Rrun;

7 C% V3 D. T$ b: w6 n5 a. E%global &OutputString._Num;
$ o3 V: N7 [, J
proc sql noprint;
select Words into :&OutputString._Num from SS_Temp;
quit;
5 m; ^0 t# t! Z6 a3 D. a2 t
- ]# A7 \- a! A0 R%do SS_i=1 %to &&&OutputString._Num;
%global &OutputString._Var&SS_i;
% c) d2 {4 Q: }( p1 s%let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
%end;
: E" v+ ~7 _3 k9 [/ K6 R
/* 去除&OutputString._Num前后的空格 */
%let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));
7 M/ K8 @$ h/ }
/* 删除不必要的表格 */
) E4 f8 K3 s' Q5 c7 cproc delete data=SS_temp;
% E; K2 G2 u; c# J# m, Crun;
' s: H8 z0 a8 ?! D0 j) _3 N' j
% [7 `' h! J/ P6 Y/ u%mend;
5 [- i5 |( J8 Z+ f$ o

0 W4 Y9 m  Y& t3 V7 \* {%macro Demo();
$ B8 k; j' B/ C; F: j0 U
$ Z# H( o3 X2 h: [: t; d%let InputString=12 -24;
+ A6 ]# Q  A: `4 w8 R  x%let OutputString=a;
! B! \$ F; T% j  h: t%SeparateString(&InputString,&OutputString);

; z* Q  Q2 f1 {2 |% y* P$ Z4 Q. k%put &a_Num;
2 B3 O+ D  I- j  y4 X%put &a_Var2;

%mend;

& J1 F; y6 B2 y% a* I( f+ J