substr函数的使用问题

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

求大神帮忙看一下，我想截取变量的某一位有效数字，这是我写的程序，不知道为什么
跑完结果实在是不理想，请大神指点迷津，谢谢啦，附数据 论文原始数据.xls (54.5 KB)

2014-8-18 09:59:14 上传

PROC IMPORT OUT= RAWDATA.raw
            DATAFILE= "C:\Documents and Settings\gt\桌面\论文发表准备\Ra
wdata\论文原始数据.xls"
            DBMS=EXCEL REPLACE;
     SHEET="转置后原始数据汇总$";
     GETNAMES=YES;
     MIXED=NO;
     SCANTEXT=YES;
     USEDATE=YES;
     SCANTIME=YES;
RUN;

/*  数据处理获取某一位或某几位有效数组 并统计频率   */

data STEP_1(KEEP=X1 X2 X3 X4 X5 X6 X7 y1);
    set RAWDATA.raw;
        x1=put(M1,$6.);
        x2=put(M2,$6.);
        x3=put(M3,$6.);
        x4=put(M4,$12.);
        x5=put(M5,$12.);
        x6=put(M6,$12.);
        x7=put(M7,$12.);
run;

%MACRO BEN_NUM(OUTDATA,i,j);
data &OUTDATA;
     set RAWDATA.raw;
         y1=substr(M1,&i,&j);
         y2=substr(M2,&i,&j);
         y3=substr(M3,&i,&j);
         y4=substr(M4,&i,&j);
         y5=substr(M5,&i,&j);
         y6=substr(M6,&i,&j);
         y7=substr(M7,&i,&j);
drop M1 M2 M3 M4 M5 M6 M7;
run;
%MEND BEN_NUM ;

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：SUBSTR subs R函数 SUB UBS Documents 论文发表 EXCEL 统计

是这个意思？

1. PROC IMPORT OUT= RAWDATA.raw
   
2.     DATAFILE= "C:\Documents and Settings\gt\桌面\论文发表准备\Rawdata\论文原始数据.xls"
   
3.     DBMS=EXCEL REPLACE;
   
4.     SHEET="转置后原始数据汇总";   
   
5.     GETNAMES=YES;   
   
6.     MIXED=NO;   
   
7.     SCANTEXT=YES;   
   
8.     USEDATE=YES;   
   
9.     SCANTIME=YES;
   
10. RUN;
    
11. 
    
12. data STEP1(KEEP=M:);  
    
13.        set RAWDATA.raw;   
    
14.            array x x1-x7;
    
15.            array m $ m1-m7;
    
16.            do i=1 to 7;
    
17.            if x[i] ne . then m[i]=strip(put(x[i],best.));
    
18.            end;
    
19. run;
    
20. 
    
21. %MACRO BEN_NUM(OUTDATA,i,j);
    
22. data &OUTDATA;
    
23.      set step1;
    
24.          y1=substr(M1,&i,&j);
    
25.          y2=substr(M2,&i,&j);
    
26.          y3=substr(M3,&i,&j);
    
27.          y4=substr(M4,&i,&j);
    
28.          y5=substr(M5,&i,&j);
    
29.          y6=substr(M6,&i,&j);
    
30.          y7=substr(M7,&i,&j);
    
31. drop M:;
    
32. run;
    
33. %MEND BEN_NUM ;

复制代码

wwang111 发表于 2014-8-18 10:37
是这个意思？

这个好像还是没运行出来，我是希望得到数据集中每个变量的某一位有效数字（可以通过给i，j赋值自由指定），有的变量数据的位数并不一致，有的上边一半是四位，下面几个观测就变成5位了

我估计你是要这种。

1. PROC IMPORT OUT= RAWDATA.raw
   
2.     DATAFILE= "C:\Documents and Settings\gt\桌面\论文发表准备\Rawdata\论文原始数据.xls"
   
3.     DBMS=EXCEL REPLACE;
   
4.     SHEET="转置后原始数据汇总";   
   
5.     GETNAMES=YES;   
   
6.     MIXED=NO;   
   
7.     SCANTEXT=YES;   
   
8.     USEDATE=YES;   
   
9.     SCANTIME=YES;
   
10. RUN;
    
11. 
    
12. %MACRO BEN_NUM(OUTDATA,i,j);
    
13. data &OUTDATA;
    
14.         set RAWDATA.raw;
    
15.            if x1 ne . then y1=substr(strip(put(x1,%eval(&j.+1).&j.)),&i,&j);else y1=.;
    
16.            if x2 ne . then y2=substr(strip(put(x2,%eval(&j.+1).&j.)),&i,&j);else y2=.;
    
17.            if x3 ne . then y3=substr(strip(put(x3,%eval(&j.+1).&j.)),&i,&j);else y3=.;
    
18.            if x4 ne . then y4=substr(strip(put(x4,%eval(&j.+1).&j.)),&i,&j);else y4=.;
    
19.            if x5 ne . then y5=substr(strip(put(x5,%eval(&j.+1).&j.)),&i,&j);else y5=.;
    
20.            if x6 ne . then y6=substr(strip(put(x6,%eval(&j.+1).&j.)),&i,&j);else y6=.;
    
21.            if x7 ne . then y7=substr(strip(put(x7,%eval(&j.+1).&j.)),&i,&j);else y7=.;
    
22.         drop x1 x2 x3 x4 x5 x6 x7;
    
23. run;
    
24. %MEND BEN_NUM ;
    
25. 
    
26. %BEN_NUM(b,1,15);

复制代码

试试。

zhengbo8 发表于 2014-8-18 17:10
我估计你是要这种。

亲，你自己试了吗？一跑都是缺失值啊

我想达到的效果就是比方说X是123 456 789 147 258 369 截取第一位有效数字后获得变量Y1 是1 4 7 1 2 3
截取第二位有效数字后获得变量Y2是 2 5 8 4 5 6

对不起，主要是不了解你的意图。

1.       PROC IMPORT OUT= a
   
2.         DATAFILE= "C:\Documents and Settings\Administrator\桌面\论文原始数据.xls"
   
3.         DBMS=EXCEL REPLACE;
   
4.         SHEET="转置后原始数据汇总";   
   
5.         GETNAMES=YES;   
   
6.         MIXED=NO;   
   
7.         SCANTEXT=YES;   
   
8.         USEDATE=YES;   
   
9.         SCANTIME=YES;
   
10.     RUN;
    
11. 
    
12.     %MACRO BEN_NUM(OUTDATA,i,j);
    
13.     data &OUTDATA;
    
14.             set a;
    
15.             %do k=1 %to &i;
    
16.                   if x&k. ne . then  do;
    
17.                           y&k.=input(substr(strip(put(x&k.,%eval(&j.*2).%eval(&j.+1))),&j.,1),best.);
    
18.                   end;
    
19.                   else y&k.=.;
    
20.             %end;
    
21.             drop x1 x2 x3 x4 x5 x6 x7;
    
22.     run;
    
23.     %MEND BEN_NUM ;
    
24. 
    
25.     %BEN_NUM(b,7,3);

复制代码

1、注意文件路径
2、i为x的个数，j为你需要的某位有效数字
3、例如，7个变量都取第3位有效数字。