substr(string,start<,length>)从string 的start位置开始提取字符串
length:待提取的字符串的长度，若length为一下情况时，返回整个字符串的所有字符。
1、length不指定
2、length为空
3、length为负值
4、length大于字符串的长度

data dat;
str="wqerwtweafs";
str1=substr(str,5);
str2=substr(str,5,"");
str3=substr(str,5,-3);
str4=sunstr(str,5,30);

注意：
substr中的start为负数时返回空值
当length为负值时，默认从start位置截取所有字符
substr从字符串右侧截取字符的方法

1.substr(str,length(str)-n+1,n)
data _null_;
str='chah234960b3';
str1=substr(str,length(str)-5+1,5);
put str1=;
run;

2.使用reverse函数
data _null_;
str='chah234960b3';
str1=reverse(substr(reverse(str),1,5));
put str1=;
run;

substr除了有字段截取的功能外，还可以用来替换字段。

'='在左边: 截取字段
data _null_;
x='123456';
str=substr(x,1,3);
put str=;
run;
在log中输出结果为: str=123;

'='在右边: 替换字段
data _null_;
x='123456';
substr(x,1,3)='789';
put x=;
run;
在log中输出结果为: str=789456;

通常情况下，substr往往结合find一起使用。

例1: 截取每行数据中的math和english
data test;                                                                                                                                     
input id :$3. exams & $30.;                                                                                                                    
math=substr(exams,find(exams,'math','i',1),4);                                                                                                 
english=substr(exams,find(exams,'english','i',1),7);                                                                                           
cards;                                                                                                                                         
001 math Chinese                                                                                                                               
002 english math chemistry                                                                                                                     
003 Chinese phisics                                                                                                                            
;                                                                                                                                              
run;                                                                                                                                                                                                                                                                                         
                                                                                                                                               
例2: 查找每位学生的数学和英语成功                                                                                                              
data test;                                                                                                                                     
input id $ exams & $30.;                                                                                                                       
math=substr(exams,find(exams,'math','i',1)+5,3);                                                                                               
english=substr(exams,find(exams,'english','i',1)+7,3);                                                                                         
cards;                                                                                                                                         
001 math 100 english 90                                                                                                                        
002 math 80 english 70                                                                                                                         
003 math 95 english 85                                                                                                                         
;                                                                                                                                              
run;                                                                                                                                           
                                                                                                                                               
data test;                                                                                                                                     
input id $ exams & $30.;                                                                                                                       
math=substr(exams,index(exams,'math')+5,3);                                                                                                    
english=substr(exams,index(exams,'english')+7,3);                                                                                              
cards;                                                                                                                                         
001 math 100 english 90                                                                                                                        
002 math 80 english 70                                                                                                                         
003 math 95 english 85                                                                                                                         
;                                                                                                                                              
run;

转载自：https://www.cnblogs.com/huangbiquan/articles/8007613.html