楼主，你可以试试用ANYDIGIT(string <,start>)这个函数。
假如你的数据集格式全都像你这样列的类似，永远都是汉子开头（没有女子，汗），那么第二个参数start可以省掉。

假定你的数据集s1里这串地址信息变量叫addr, 那么i决定了第一个数字出现的位置，而c是对应取出来的子字符串：
data d1;
    set s1;
i = anydigit(addr);
if i >1 then
  c = substr(addr,1,i-1);
else
  c = '';
run;

这里一个有意思的地方是，我想自己造几个数据测一下，如果我这么写把所有逻辑放在一个数据步里：

data d1;
   input addr $ @@;
   datalines;
s1 sb34 abc567
;
i = anydigit(addr);
if i >1 then
  c = substr(addr,1,i-1);
else
  c = '';

putlog c;
run;

SAS直接在i = anydigit(addr);那行报错，著名的180-322错误代码：
32   i = anydigit(addr);
     -
     180

ERROR 180-322: Statement is not valid or it is used out of proper order.

假如我在头一个数据步里只读dataline的数据进来，然后把其他逻辑分拆到另一个数据步里，比如这样：
data _null_;
set d1;
i = anydigit(addr);
if i >1 then
  c = substr(addr,1,i-1);
else
  c = '';

putlog c;
run;

SAS就能运行正常得出结果。
哪位大神说说怎么回事？

https://bbs.pinggu.org/thread-4815705-1-1.html

啊真是感谢呢，我都没注意到这条。