关于字符提取

data a;      
input A $ B $20.;
cards;
01    01球场北京A              
002   002球场石家庄1            
054   054球场s
;
run;
data b;
set a;
C=compress(B,A);
run;