求助：简单的程序，不报错，但是没有结果……（已解决，感谢高手的简洁代码）

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

求教：我想把一个8字符的变量，截取成8个变量，新的变量分别对应原变量的一个位数的值，我写的程序如下，但是出不来……
data li;
input tim $8.;
cards;
01001010
10100101
01100110
;
run;
data li2;
  set li;
  %let i=1;
  k=length(tim);
  do while(&i. le k);
    tim&i=substr(tim,&i.,1);
%let i=%eval(&i+1);
  end;
run;

第一个小程序是新弄一个小数据作试验用。第二个程序也不报错，就是不停的运行，感觉好像是死循环了……

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：已解决 SUBSTR length cards Input 求助 程序 结果

不用宏,都用data步的语句就可以了
否则2恒小于8,貌似就死循环了
一个小例子，可以说明点宏的运行机制

1. data _null_;
   
2.         x=&x;
   
3.         %let x=1;
   
4.         put x=;
   
5.         %let x=%eval(&x+1);
   
6. run;

复制代码

如果不用宏的话，那么如何对变量进行命名呢？

请求帮忙改下程序，谢谢：）

1. data li;
   
2. input tim $8.;
   
3. cards;
   
4. 01001010
   
5. 10100101
   
6. 01100110
   
7. ;
   
8. 
   
9. 
   
10. data li;
    
11.         set li;
    
12.         call symput('tim',length(tim));
    
13. run;
    
14. %macro li;
    
15.         data li2;
    
16.         set li;
    
17.         %do i=1 %to &tim.;  
    
18.                 tim&i.=substr(tim,&i.,1);               
    
19.         %end;
    
20.         output;
    
21.         run;
    
22. %mend;
    
23. %li;

复制代码

楼上确定&tim可以被解析出来?

baoaibaobao，代码会报错如下：

WARNING: 没有解析符号引用 TIM。
ERROR: 在需要数值操作数的 %EVAL 函数或 %IF 条件中发现字符操作数。条件是: &tim.
ERROR: %TO 值（%DO I 循环中）无效。
ERROR: 宏 LI 将终止执行。

1. data li;
   
2. input tim $8.;
   
3. if _N_=1 then do;
   
4.         call symputx("n",length(tim));
   
5. end;
   
6. cards;
   
7. 01001010
   
8. 10100101
   
9. 01100110
   
10. ;
    
11. run;
    
12. data li2;
    
13.         set li;
    
14.         array tim_arr tim1-tim&n.;
    
15.         do i=1 to &n by 1;
    
16.                 tim_arr[i]=substr(tim,i,1);
    
17.         end;
    
18.         drop i;
    
19. run;

复制代码

感觉上可以一个data步搞定......
呵呵

7# lihanfeng371 我修改了，不过还是没有soporaeternus简洁啊

tim                  tim1    tim2  tim3 tim4 …… tim8
01001010           0          1       0       0   ……    0
10100101           1          0       1       0   ……    1
01100110           0          1       1       0   ……    0   

我想要的结果是上面这样子的，soporaeternus 写的代码跑出来好像不是这个结果的样子…………
还是先谢谢soporaternus了：）