Perl Regular Expressions 应该能解决这个问题

能否具体点！

data a;
input  x $1-150;
cards4;;;;
提问人ip及地区:[218.75.157.10、湖南省常德市]<br>国外登录地区   &nbsp;&nbsp;常登陆地区:湖南-常德市、湖南-常德市
;;;;
run;

data b;
set a;
if _n_=1 then do;
retain id id1 id2;
id=prxparse("/\[[\d\D]{0,}\]/");
id1=prxparse("/<br>[\d\D]{0,}\;/");
id2=prxparse("/常登陆地区:[\d\D]{0,}/");
end;
call prxsubstr(id,x,start,len);
x1=substr(x,start,len);
x1=compress(x1,'[]');
call prxsubstr(id1,x,start1,len1);
x2=substr(x,start1,len1);
x2=tranwrd(scan(x2,1,';'),"<br>","");
call prxsubstr(id2,x,start2,len2);
x3=substr(x,start2,len2);
x3=tranwrd(x3,"常登陆地区:","");
drop id: start: len:;
run;

我的SAS不能识别中文。但楼上的那位兄弟已经回答了你的问题。

还是要谢谢你！