关于字符的提取

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

各位大侠，有个小问题需要麻烦大家：下面为基础数据集

1. data a;
   
2. input A $ B $20.;
   
3. cards;
   
4. NHYYY1 nHYYy1实验1
   
5. NHY2 NHY2实验例子2
   
6. NHYYddY3 实验实验室3
   
7. ;
   
8. run;

复制代码

目标列为C列；
需要输出：
C
实验1
实验2
实验3
；
需要大家的帮助，谢谢！！
抱歉抱歉，例子重新修改了！！

扫码加我 拉你入群

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

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

分享1 收藏0 回帖

关键词：Input cards Data card 基础数据 实验室

不是已经提过一个类似的问题了吗？
https://bbs.pinggu.org/thread-1476914-1-1.html

方法和上次一样啊！

1. data a;
   
2. input A $ B $20.;
   
3. cards;
   
4. NHYYY1 nHYYy1实验1
   
5. NHYYY2 NHYYY1实验2
   
6. NHYYY3 实验3
   
7. ;
   
8. run;
   
9. data b;
   
10. set a;
    
11. C=substr(B,length(B)-4,5);
    
12. run;
    
13. proc print noobs;run;

复制代码

tj0412ymy 发表于 2012-5-28 16:33
不是已经提过一个类似的问题了吗？
https://bbs.pinggu.org/thread-1476914-1-1.html

这个和那个是类似，但是我后来操作的时候发现，translate 只能变换完全一样的字母，而因为一些原因，B列的内容不能使用upcase这个函数，所以转换出来的C就有问题了
而使用  label=substr(B,length(A)+1,(Length(B)-Length(A)));
因为第三行又会出现问题，所以很麻烦！！

tj0412ymy 发表于 2012-5-28 16:33
方法和上次一样啊！

抱歉，这个例子又举次了，那个后面的文字数量不是一样的，抱歉抱歉！！我又重新修改了例子

乾坤神龙 发表于 2012-5-28 16:42
抱歉，这个例子又举次了，那个后面的文字数量不是一样的，抱歉抱歉！！我又重新修改了例子

1. data a;
   
2. input A $ B $20.;
   
3. cards;
   
4. NHYYY1 nHYYy1实验1
   
5. NHY2 NHY2实验例子2
   
6. NHYYddY3 实验实验室3
   
7. ;
   
8. run;
   
9. data b;
   
10. set a;
    
11. C=trim(TRANSLATE(upcase(B),'',A))||left(substr(B,length(B),1));
    
12. run;
    
13. 
    
14. proc print noobs;run;

复制代码

tj0412ymy 发表于 2012-5-28 17:07

这位老大你好，我这几分钟也是努力了一下，得出了一个方法；

1. data a2;
   
2. set a;
   
3. if indexc(b,a)<length(b) then do;
   
4.   c=substr(B,length(A)+1,(Length(B)-Length(A)));
   
5. end;
   
6. if indexc(b,a)=length(b) then do;
   
7.   c=b;
   
8. end;
   
9. run;

复制代码

学习