關(guān)于數(shù)字變量的問題

是 否 +2 論壇幣

k人 參與回答

經(jīng)管之家送您一份

應(yīng)屆畢業(yè)生專屬福利!

求職就業(yè)群

趙安豆老師微信：zhaoandou666

經(jīng)管之家聯(lián)合CDA

送您一個(gè)全額獎(jiǎng)學(xué)金名額~ !

立即領(lǐng)取

感謝您參與論壇問題回答

經(jīng)管之家送您兩個(gè)論壇幣！

+2 論壇幣

首先我有一個(gè)變量為數(shù)字變量。
data test;
x=121122;
run;
然后我想計(jì)算x里1的個(gè)數(shù)，并表示為一個(gè)宏變量。
然后我想把出現(xiàn)1的每個(gè)位置也表示成幾個(gè)宏變量。

這個(gè)code怎么寫。

掃碼加我 拉你入群

請(qǐng)注明：姓名-公司-職位

以便審核進(jìn)群資格，未注明則拒絕

分享0 收藏1 回帖

關(guān)鍵詞：code Data test ODE COD

數(shù)字符出現(xiàn)的位數(shù)一直是我想知道的。但是我找不到對(duì)應(yīng)的函數(shù)。正則表達(dá)式也許能實(shí)現(xiàn)，但是我不會(huì)。

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是個(gè)位，v2是百位…… 之后就好數(shù)了*/

復(fù)制代碼

nomad5 發(fā)表于 2014-3-10 19:15
數(shù)字符出現(xiàn)的位數(shù)一直是我想知道的。但是我找不到對(duì)應(yīng)的函數(shù)。正則表達(dá)式也許能實(shí)現(xiàn)，但是我不會(huì)。

多謝。不過不是很符合我的想法。我再思考思考，如果有結(jié)果我告訴你

%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 #  /*算出數(shù)字有幾位并賦值給宏變量num*/

data b;
do i=1 to #
y=substr("&x",i,1);
if y='1' then do;
n+1;
output;/*i為數(shù)字中哪幾位是數(shù)字1*/
end;
if y=. then leave;
end;
call symput('num_1',n);
run;
%put &num_1;/*算出數(shù)字中有幾個(gè)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;/*輸出數(shù)字中1所在的位置，這個(gè)變量應(yīng)該輸出1,2,5,同時(shí)把這3個(gè)值賦值宏變量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.;

復(fù)制代碼