求助帖子

小鳄鱼a 发表于 2014-10-14 23:19
这个只是从字符串的层面调用吧，我是第一步把字符串当做一个宏变量，第二部然后再把该字符串里面的字符当 ...

1. %macro genfact(index);
   
2. %let i=1;
   
3. %do %while(%scan(&index,&i,%str(,)) ne );
   
4. %let Nindex=%scan(&index,&i,%str(,));
   
5.    %put &nindex;
   
6.     %let j=1;
   
7.        %do %while(%scan(&nindex,&j,%str( ())) ne );
   
8.        %let Nindex1=%scan(&nindex,&j,%str( ()));
   
9.           %put &Nindex1;
   
10.         %let j=%eval(&j+1);
    
11.            %end;
    
12. %let i=%eval(&i+1);
    
13. %end;
    
14. %mend;
    
15. 
    
16. %genfact(index=%quote((fratio54 fratio5b4 analystz10b mrsquare3b）,
    
17. (analystz10b mrsquare3b cashvot14 cashvot1b4 gsvot54 turnr3 cashvot14 cashvot1b4 gsvot54 turnr3 profit54)，
    
18. (cashvot1b4 gsvot54 turnr3 cashvot14 cashvot1b4 gsvot54 turnr3 profit54)));

复制代码

1. This is better?
   
2. 
   
3. 
   
4. %macro genfact(index=);
   
5. %let i=1;
   
6. %do %while(%scan(&index,&i,%str(())) ne );
   
7. %let Nindex=%scan(&index,&i,%str(()));
   
8.    %put &nindex;
   
9.     %let nindex=%quote(&nindex);
   
10.      %let j=1;
    
11.        %do %while(%scan(&nindex,&j,%str(,)) ne);
    
12.        %let Nindex1=%scan(&nindex,&j,%str(,));
    
13.           %put &Nindex1;
    
14.            %let j=%eval(&j+1);
    
15.         %end;
    
16. %let i=%eval(&i+1);
    
17. %end;
    
18. %mend;
    
19. 
    
20. 
    
21. %genfact(index=%quote((fratio54,fratio5b4,analystz10b,mrsquare3b),
    
22. (analystz10b,mrsquare3b,cashvot14,cashvot1b4,gsvot54,turnr3 cashvot14,cashvot1b4,gsvot54,turnr3 ,profit54),
    
23. (cashvot1b4,gsvot54,turnr3 cashvot14,cashvot1b4,gsvot54,turnr3 ,profit54)));

复制代码

我总结你的问题是：有一大串字符串，然后要依次得到里面的每一个子字符串？

如果没理解错的话，我的解决方法是：首先，用空格分隔子字符串，不要用逗号，否则会很麻烦，当然非用不可的话没办法，但是能改就先改，以后遇到问题就麻烦了；然后，用我下面的宏

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

复制代码

farmman60 发表于 2014-10-15 07:10

宏变量是不区分大小写的吗

farmman60 发表于 2014-10-15 07:10

能否讲一下两个do while 的区别   主要是不明白%str在这里的作用  ，谢谢