/*去除字符串头尾分号的三种方法*/
data test;
x=';;;中国;美国;日本;;;;;;';
y1=Translate(strip(Translate(x,' ',';')),';',' '); /*前提:字符串中不含空格*//*此法效率最高*/
y2=substr(x,findc(x,';','k'),findc(x,';','bk')-findc(x,';','k')+1);
y3=prxchange('s/^;*([^;].*[^;])(;+)?$/$1/o',1,x);
run;