关于数字变量的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

首先我有一个变量为数字变量。
data test;
x=121122;
run;
然后我想计算x里1的个数，并表示为一个宏变量。
然后我想把出现1的每个位置也表示成几个宏变量。

这个code怎么写。

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：code Data test ODE COD

数字符出现的位数一直是我想知道的。但是我找不到对应的函数。正则表达式也许能实现，但是我不会。

1. data test;
   
2.     x=121122;
   
3. run;
   
4. 
   
5. %macro m;
   
6. data test2;
   
7.     set test;
   
8.     y=strip(put(x,best.));
   
9.     %do i=1 %to 20;
   
10.         if length(y)>(&i.-1) then v&i.=substr(y,length(y)-(&i.-1),1);
    
11.     %end;
    
12. run;
    
13. 
    
14. %mend m;
    
15. 
    
16. %m;
    
17. 
    
18. /*v1是个位，v2是百位…… 之后就好数了*/

复制代码

nomad5 发表于 2014-3-10 19:15
数字符出现的位数一直是我想知道的。但是我找不到对应的函数。正则表达式也许能实现，但是我不会。

多谢。不过不是很符合我的想法。我再思考思考，如果有结果我告诉你

%macro a(x);
data a;
do i=1 to 100;
y=substr("&x",i,1);
if y^=. then n+1;
if y=. then leave;
end;
call symput('num',n);
run;
%put #  /*算出数字有几位并赋值给宏变量num*/

data b;
do i=1 to #
y=substr("&x",i,1);
if y='1' then do;
n+1;
output;/*i为数字中哪几位是数字1*/
end;
if y=. then leave;
end;
call symput('num_1',n);
run;
%put &num_1;/*算出数字中有几个1并赋值给宏变量num_1*/

%do j=1 %to &num_1;
data c;
set b;
if _n_=&j;

data d;
set c;
call symput("num_1_&j",i);
run;
%put &&num_1_&j;/*输出数字中1所在的位置，这个变量应该输出1,2,5,同时把这3个值赋值宏变量num_1_1 num_1_2 num_1_3*/
%end;
run;

%mend a;

%a(112012131);

1. data test;
   
2.     x=121122;
   
3. run;
   
4. 
   
5. data _null_;
   
6.     set test;
   
7.     y=strip(put(x,best.));
   
8.     y_1=compress(y,"1");
   
9.     call symput("cnt",lengthn(y)-lengthn(y_1));
   
10.     j=0;
    
11.     n=0;
    
12.     do until(j=0);
    
13.         j=findc(y,"1",j+1);
    
14.         n+1;
    
15.         if j ne 0 then do;
    
16.              call symput("pos"||strip(n),j);
    
17.         end;
    
18.    end;
    
19. run;
    
20. %put &cnt. &pos1. &pos2. &pos3.;

复制代码