如何把一字符中的所有标点符号压缩掉

shiyiming

字符串很长，里面有各种各样的标点符号，只想保留字母，数字，和中文字符。感觉很复杂..
求教高手，问题应该如何处理呢？

shiyiming

试试正则表达

shiyiming

[quote="yugao1986":j0ewzesj]试试正则表达[/quote:j0ewzesj]
正则好像也不好把中文字符分开吧...之前用过正则，没弄出来，还望大侠指教下...

shiyiming

[code:1qq3y5b7]data want;
set your;
length flag $30;
if anypunct(_char_); *只对包含有标点的字符才接着执行下边的操作，否则系统陷入死循环;
last_pos=lengthn(_char_)-anypunct(reverse(_char_));        *直接定位最后一个标点的位置，若最后字符为标点符号，可直接取字符字符的逻辑长度，否则也会陷入死循环;
n1=anypunct(_char_); *第一个标点符号的位置;
n2=notpunct(_char_,n1+1); *紧挨着n1处标点符号后的第一个非标点字符的位置;
len_p=n2-n1; *标点符号的长度;
punct=substrn(_char_,n1,len_p);        *提取n1处开始，长度为len_p的标点符号;
flag=punct;        *记录标点符号;
do while(n2<last_pos and n1<last_pos); *提取所有的字符_char_中的标点符号并记录在flag中;
    n2=notpunct(_char_,n1+1);
    len_p=n2-n1;
    punct=substrn(_char_,n1,len_p);
    flag=trimn(flag)||strip(punct);
    n1=anypunct(_char_,n2);
end;
compress=compress(_char_,quote(strip(flag))); *对flag中记录的所有标点符号进行压缩处理;
run;[/code:1qq3y5b7]

shiyiming

data _null_;
    text='a%&,madsf152./,';
    new=compress(text,,'p');
    put new;
run;