没有人知道吗？

楼主你好，有一个笨办法，把全角字母全部找出其对应的半角，然后再把转化后的字符连起来。
请高手指教！
data temp;
chart='ａｂｃｄ';
l=length(chart);
do i=1 to l-1 by 2  ;
    k=substr(chart,i,2);
        select(k);
        when ('ａ') substr(chart,i,2)='a';
        when ('ｂ') substr(chart,i,2)='b';
        when ('ｃ') substr(chart,i,2)='c';
        when ('ｄ') substr(chart,i,2)='d';
        otherwise;
        end;
end;
chartnew=compress(chart);
put chartnew=;
run;

我现在是不知道变量名称里会有什么字母，这样的话，要写26个when语句了。并且名称里不是只有全角字母，也有半角字母和汉字，i以2累加不大合理。不过你提醒了我，如果以ksubstr按1累加，再写26个when语句的话应该可以了