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 收藏7 回帖

关键词：separate string sas基础 Rates tring 基础 基础宏 SeparateString SAS

谢谢分享。