SAS基础宏之2：SeparateString

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

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

1. %macro SeparateString(InputString,OutputString);
   
2. /**********************************************************************/
   
3. /* 此宏用于将含有一组单词的字符串拆分为一个个的单词，并将这些单词依次 */
   
4. /* 存放于一系列宏变量之中。注意，字符串中单词的定义为由字母、数字和下 */
   
5. /* 下划线组成的一个整体，而分隔符可以为除字母、数字、下划线以及逗号之 */
   
6. /* 外的其他任意字符。其中InputString是所选的字符串，OutputString是输 */
   
7. /* 出的字符串前缀，不需要加最后的下划线。 */
   
8. /* */
   
9. /* 最终得到的是一组单词的宏变量&OutputString._Var1,&OutputString.Var2 */
   
10. /* 等以及字符串所含单词数量的宏变量&OutputString._Num。 */
    
11. /* */
    
12. /* Created on 2012.9.18 */
    
13. /* Modified on 2012.12.6 */
    
14. /**********************************************************************/
    
15. 
    
16. data SS_temp;
    
17. Str="&InputString";
    
18. run;
    
19. 
    
20. data SS_temp;
    
21. set SS_temp;
    
22. Words=0;
    
23. do while(SCAN(Str,Words+1,' ') NE "");
    
24. Words+1;
    
25. end;
    
26. run;
    
27. 
    
28. %global &OutputString._Num;
    
29. 
    
30. proc sql noprint;
    
31. select Words into :&OutputString._Num from SS_Temp;
    
32. quit;
    
33. 
    
34. %do SS_i=1 %to &&&OutputString._Num;
    
35. %global &OutputString._Var&SS_i;
    
36. %let &OutputString._Var&SS_i.=%SYSFUNC(SCAN(&InputString,&SS_i,' '));
    
37. %end;
    
38. 
    
39. /* 去除&OutputString._Num前后的空格 */
    
40. %let &OutputString._Num=%SYSFUNC(TRIM(&&&OutputString._Num));
    
41. 
    
42. /* 删除不必要的表格 */
    
43. proc delete data=SS_temp;
    
44. run;
    
45. 
    
46. %mend;
    
47. 
    
48. 
    
49. %macro Demo();
    
50. 
    
51. %let InputString=12 -24;
    
52. %let OutputString=a;
    
53. %SeparateString(&InputString,&OutputString);
    
54. 
    
55. %put &a_Num;
    
56. %put &a_Var2;
    
57. 
    
58. %mend;

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏8 回帖

关键词：separate string sas基础 Rates tring 基础

很强大

Playmore 大侠的程序写得好规范啊。大小写，后缀做得很细致。
IT出身？

webgu 发表于 2013-4-13 22:42
Playmore 大侠的程序写得好规范啊。大小写，后缀做得很细致。
IT出身？

不是学IT的，纯理科出身
规范不规范纯粹个人习惯，呵呵

建议补充个实例。谢谢分享！

实用！

thanks

Thanks.

很有意思的代码，感谢楼主分享