SAS读取中文比赛（二等奖）-经管之家官网！

data raw(keep=x);
retain english;
length x english temp $20;
infile 'c:\bisai.txt' dlm='0D'x lrecl=32767 obs=50;
input;
_infile_=ktranslate(_infile_,' ',"，。；：“”’（）—－％．＝、／？[]");
if not missing(_infile_) then do i=1 to klength(_infile_);
x=ksubstr(_infile_,i,1);
if not anyalnum(x) then do;
if not missing(english) then do;
temp=x;
x=english;
output;
x=temp;
call missing(english);
end;
if not missing(x) then output;
end;
else english=cats(english,x);
end;
run;
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
版权归：徐欣宇， E-mail: hopewell@vip.sina.com
评论： 达到了目标，然而对于分行没有处理是一个缺憾。
程序可读性很好，缺少了相关注释（也许是太急），如果加上注释达到了完美。
参赛热心和学术分数很高，帮我们证明了中文是可以读取的。二等奖+热心分数5+学术分数5
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
上面是暂定的。最终结果将结合论坛会员的评论做最后的结论。