求助SAS程序问题，寻高手

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

问题程序如下：
data string;
  input string $40.;
  array myvars{27}   _temporary_ ;
  array my{27};
  if _n_ =1 then do i=1 to 27;
      myvars{i}=i;
   end;
   do i=1 to 27;
     if findw(string,myvars{i},",") then my{y}=1;
   end;
   drop i;
datalines;
1,4
3,13
1,2,3,4,7,8,9
19
2,5
1,2,3,10,17
1,2,3,4,5,6,7,8
2,3,4,7,9
1,2,3,19,20,23
1,2,3
1,2,3,15
8,10,13
;
run;

想得到如下结果：

但程序老是出错，恳请高手指点问题出在哪里
非常感谢

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：sas程序 TEMPORARY string tring array 求助 程序 高手 SAS

顶起来，让sas高手来看看。帮帮忙

Hope this helps

data string;
input string $40.;
array myvars{27} _temporary_ ;
/* make sure the conversion was done correctly */
array my{27} $2.;
if _n_ =1 then do i=1 to 27;
myvars{i}=i;
end;
do i=1 to 27;
/* the leading and following spaces should be deleted */
if findw(strip(string), strip(myvars{i}),",") then my{i}=1;
end;
drop i;
datalines;
1,4
3,13
1,2,3,4,7,8,9
19
2,5
1,2,3,10,17
1,2,3,4,5,6,7,8
2,3,4,7,9
1,2,3,19,20,23
1,2,3
1,2,3,15
8,10,13
;
run;

方法一:稍修改LZ算法

1. data string;
   
2. input string $40.;
   
3. array my{27};       
   
4. do i=1 to 27 by 1;
   
5.         if indexw(string,compress(i),', ') then my{i}=1;
   
6. end;
   
7. drop i;
   
8. datalines;
   
9. 1,4
   
10. 3,13
    
11. 1,2,3,4,7,8,9
    
12. 19
    
13. 2,5
    
14. 1,2,3,10,17
    
15. 1,2,3,4,5,6,7,8
    
16. 2,3,4,7,9
    
17. 1,2,3,19,20,23
    
18. 1,2,3
    
19. 1,2,3,15
    
20. 8,10,13
    
21. ;
    
22. run;

复制代码

方法二:每条作定步长例为27的判断，效率很低
稍微优化下，直接从string出发......

1. data string1;
   
2. input string $40.;
   
3. array my{27};       
   
4. do i=1 to count(string,",")+1 by 1;
   
5.         my{scan(string,i,",")}=1;
   
6. end;
   
7. drop i;
   
8. datalines;
   
9. 1,4
   
10. 3,13
    
11. 1,2,3,4,7,8,9
    
12. 19
    
13. 2,5
    
14. 1,2,3,10,17
    
15. 1,2,3,4,5,6,7,8
    
16. 2,3,4,7,9
    
17. 1,2,3,19,20,23
    
18. 1,2,3
    
19. 1,2,3,15
    
20. 8,10,13
    
21. ;
    
22. run;

复制代码

希望对你有帮助

楼上两位高人太强了
小弟拜服
发现自己问题所在了，原来是myvars{i}转换为character后的填充的空字符问题
soporaeternus 的两种方法太高了，学习了
都是高人啊

orlong 发表于 2010-5-31 18:14
问题程序如下：
data string;
  input string $40.;
  array myvars{27}   _temporary_ ;
  array my{27};
  if _n_ =1 then do i=1 to 27;
      myvars{i}=i;
   end;
   do i=1 to 27;
     if findw(string,myvars{i},",") then my{y}=1;
   end;
   drop i;
datalines;
1,4
3,13
1,2,3,4,7,8,9
19
2,5
1,2,3,10,17
1,2,3,4,5,6,7,8
2,3,4,7,9
1,2,3,19,20,23
1,2,3
1,2,3,15
8,10,13
;
run;

想得到如下结果：

但程序老是出错，恳请高手指点问题出在哪里
非常感谢

I re-write it. It seems a little clear in logic.

1) take an element from the string as an array index until NO element left.
2) Set the correspond variable value to 1 with that index.

data string;
  input string $40.;
  array my{27};
  do i=1 by 1 while(1);
      k=scan( string,i);
      if k then k1=input(k,8.);
      else leave;
      my[k1]=1;
  end;

keep  string my:;
datalines;
1,4
3,13
1,2,3,4,7,8,9
19
2,5
1,2,3,10,17
1,2,3,4,5,6,7,8
2,3,4,7,9
1,2,3,19,20,23
1,2,3
1,2,3,15
8,10,13
;
run;

proc print;run;

不错，佩服！

6# bobguy

高人，拜服，学习ing

真厉害，牛人多呀