怎样方便地变换某字符串变量为两个纯数值变量

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

血压值，有人喜欢记录如下：

1. 140/90
   
2. 90/68
   
3. 190/100
   
4. 100/066
   
5. 098/060

复制代码

现在怎样把bp变成如下两个变量 sbp、dbp

1. sbp   dbp
   
2. 140   90
   
3. 90    68
   
4. 190   100
   
5. 100   66
   
6. 98   60

复制代码

以下过程可以转换，但是太长了，有无简单方法？

1. data a;
   
2. input bp $7.;
   
3. cards;
   
4. 140/90
   
5. 90/68
   
6. 190/100
   
7. 100/066
   
8. 098/060
   
9. ;
   
10. run;
    
11. 
    
12. data a; set a;
    
13. if length(bp)=6 then sbp=substr(bp,1,3);
    
14. else if length(bp)=5 then sbp=substr(bp,1,2);
    
15. else if length(bp)=7 then sbp=substr(bp,1,3);
    
16. if length(bp)=6 then dbp=substr(bp,5,2);
    
17. else if length(bp)=5 then dbp=substr(bp,4,2);
    
18. else if length(bp)=7 then dbp=substr(bp,5,3);
    
19. sbp=input(sbp,3.);
    
20. dbp=input(dbp,3.);
    
21. run;
    
22. 
    
23. proc print data=a; run;

复制代码

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：字符串变量 数值变量 字符串 length SUBSTR 记录 字符串

1. sbp=input(prxchange('s/(\d+)\/(\d+)/$1/',-1,bp),best.);
   
2. dbp=input(prxchange('s/(\d+)\/(\d+)/$2/',-1,bp),best.);

复制代码

1. data a;
   
2. infile datalines dlm="/";
   
3. input bp  snp ;
   
4. cards;
   
5. 140/90
   
6. 90/68
   
7. 190/100
   
8. 100/066
   
9. 098/060
   
10. ;
    
11. run;

复制代码

这样符合要求吗

420948492 发表于 2013-3-13 17:30
这样符合要求吗

解决一半，其实，原数据是由Excel导入，因此用infile仅是解决一半，根本需要解决的是已经读入的变量怎么变换成两个变量？谢谢。

data a;
input bp $7.;
cards;
140/90
90/68
190/100
100/066
098/060
;
run;

data final;
set a;
sbp=input(scan(bp,1,'/'),8.);
dbp=input(scan(bp,2,'/'),8.);
run;

Eternal0601 发表于 2013-3-13 18:32
data a;
input bp $7.;
cards;

对，就是这个，谢谢。