关于SAS字段处理的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

大家好，最近在处理SAS变量的时候遇到了问题， 不知如何解决，现将问题呈现，希望得到大家的帮助，问题是这样的，有个字段是手机通话时长，但是数据库里面的单位不统一，会有纯数字的，如20，表示20秒，有‘1分20秒’的，还有‘20秒’，还有‘1小时2分30秒’的，现在的任务是要将这些不一致的单位进行统一，我想到一个方法如下：
data a;
   input x $20.;
   cards;
1小时2分10秒
2分12秒
;
run;
data b;
   set a;
   x=tranwrd(x,'小时','*3600+');
   x=tranwrd(x,'分','*60+');
   x=tranwrd(x,'秒','*1');
run;

这样就将时间x转化为‘1*3600+2*60+10*1’的形式，
问题是如何将这个文本的时间计算表达式转化为相应的计算值呢？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Input cards Data card 时间计算 SAS

1. y = resolve(cats('%sysevalf(',x,')'));

复制代码

基于楼下mingfeng的回复，我修改了下

1. data a;
   
2.    input x $20.;
   
3.    cards;
   
4. 1小时2分10秒
   
5. 2分12秒
   
6. 1小时5秒
   
7. 3秒
   
8. ;
   
9. run;
   
10. 
    
11. data b(drop = prx h m s);
    
12.   set a;
    
13.   prx = prxparse('/(?:(\d*)小?时)?(?:(\d*)分)?(?:(\d*)秒)?/');
    
14.   if prxmatch(prx,x) then do;
    
15.     h = input(prxposn(prx,1,x), best.);
    
16.     m = input(prxposn(prx,2,x), best.);
    
17.         s = input(prxposn(prx,3,x), best.);
    
18.         y = sum(max(h,0)*3600, max(m,0)*60, max(s,0));
    
19.   end;
    
20. run;

复制代码

1. data b;
   
2. set a;
   
3.    hour=input(scan(x,-3,'小时 分 秒'),8.);
   
4.    minute=input(scan(x,-2,'小时 分 秒'),8.);
   
5.    second=input(scan(x,-1,'小时 分 秒'),8.);
   
6.    x=sum(hour*3600,minute*60,second);
   
7. run;

复制代码

Tigflanker 发表于 2014-12-7 10:17
基于楼下mingfeng的回复，我修改了下

谢谢，您的方法解决了问题，有一个问题。正则里面?:是什么意思，恕我才疏学浅哈

Tigflanker 发表于 2014-12-7 10:17
基于楼下mingfeng的回复，我修改了下

谢谢，您的方法解决了问题，有一个问题。正则里面?:是什么意思，恕我才疏学浅哈

hawkscry 发表于 2014-12-8 09:02
谢谢，您的方法解决了问题，有一个问题。正则里面?:是什么意思，恕我才疏学浅哈

是说它所在的缓存区不做提取标记，换言，让它所在的缓存区圆括号变成单纯意义的括号。

Ex : (?:\w)(\d)     
\1 means the value from \d