data a;
input var $50.;
datalines;
xxxx#33jiw#45joojl#3
jiojoj#5jiojo#4jojoj#46
;
run;

data b;
set a;
length xx $20.;
xx=prxchange("s/(.+)#(\d+)(.+)#(\d+)(.+)#(\d+)/\2,\4,\6/",-1,var);
run;

output :

data a;
        input diag $50.;
        datalines;
        我是#2小猫#3小狗#1
        星期#4天去看#1电影
        外面#1下暴雨#2了
        ;
run;
data b;
        set a;
        diagnose = tranwrd(substr(compress(diag,'#123456789','k'),2),'#',',');
run;
不太清楚你的完整数据是什么样的，不知道能不能满足你的需求。

多谢多谢哈，prxchange这个函数挺实用的

可以的，简单易懂，多谢多谢！

我只想读取#后面的数字，其他地方出现的数字直接忽略，比如
我2是小猫#2小狗#1小猪#8，想处理得到的是2,1,8，
这个字段我试了一下，会多个逗号