如何删除字符串中双斜杠里的内容

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

CALCIUM CARBONATE/VITAMIN D3 /234098/ ，ESSENTIALE  /722001/ ，FRAXIPARINE   /1437701/……  如何删除以上字符串中末尾斜杠内的数字（包括斜杠），只能删除末尾的，中间的斜杠和数字不能删掉，求大神解答{:3_59:}

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：字符串 Essential Carbon Essen CalcI 字符串 如何

1. data a;
   
2. input x & $100.;
   
3. cards;
   
4. CALCIUM CARBONATE/VITAMIN D3 /234098/
   
5. ESSENTIALE /722001/
   
6. FRAXIPARINE /1437701/
   
7. ;
   
8. run;
   
9. %let split="/";
   
10. data n(drop=i len cnt pos);
    
11. pos=0;
    
12. set a;
    
13. cnt=count(x,&split);
    
14. len=length(&split);
    
15. do i=1 to cnt;
    
16.    pos=find(x,&split,pos+1);     
    
17.    if i=cnt-1 then do;
    
18.    put pos=;
    
19.                 x=substr(x,1,pos-1);
    
20.                 output;
    
21.                 return;
    
22.    end;
    
23.     end;
    
24. run;

复制代码

CALCIUM CARBONATE/VITAMIN D3 ,ESSENTIALE  /722001/ ，FRAXIPARINE   /1437701/……  
如果变成这样，有些末尾有数字，有些没有数字该怎么办呢？

T+1. 发表于 2015-1-9 17:01
CALCIUM CARBONATE/VITAMIN D3 ,ESSENTIALE  /722001/ ，FRAXIPARINE   /1437701/……  
如果变成这样，有 ...

加上一重判断。

1. if substr(x,length(x))="/"

复制代码

满足的时候在去截取，不符合的话就不截取，直接output

fxtxzyl 发表于 2015-1-9 17:17
加上一重判断。满足的时候在去截取，不符合的话就不截取，直接output

加在哪里

T+1. 发表于 2015-1-9 17:30
加在哪里

set之后，这都要问啊

data b;
set a;
length y $100;
if _n_=1 then do;
retain id;
id=prxparse("s/\/\d+\/(?![\d\D])//");
end;
call prxchange(id,-1,strip(x),y);
drop id;
run;

ziyenano 发表于 2015-1-9 18:56
data b;
set a;
length y $100;

谢谢  受教了

data want;
set have;
string1=prxchange("s/(.*)\/\d+\/$/$1/",-1,strip(string));
string2=tranwrd(strip(string), cat('/',scan(strip(string),-1,'/'),'/'),"");
run;