选取某字段中文字符，使用循环的问题

shiyiming

本来想再循环中使用
ouchar=ouchar||ch(i);实现，无奈结果不对，只能改用下列方法，请问用循环怎么写啊，写成
我下面那种形式太麻烦了。

data mylib.test(keep = cxmc ouchar);
        set mylib.cxmc;
        cxmc=compress(cxmc,' -_()');
        i=1;
        array ch(30) $1.;
        do while(i<=30);
                ch(i)=substr(cxmc,i,1);
                if rank(ch(i)) < 161 then
                        ch(i)="";
                i=i+1;
        end;
        ouchar=ch(1)||ch(2)||ch(3)||ch(4)||ch(5)||ch(6)||ch(7)||ch(8)||ch(9)||ch(10)||
                        ch(11)||ch(12)||ch(13)||ch(14)||ch(15)||ch(16)||ch(17)||ch(18)||ch(19)||ch(20)||
                        ch(21)||ch(22)||ch(23)||ch(24)||ch(25)||ch(26)||ch(27)||ch(28)||ch(29)||ch(30);
        ouchar=compress(ouchar);
run;

shiyiming

data mylib.test(keep = cxmc ouchar);
   set mylib.cxmc;
   cxmc=compress(cxmc,' -_()');
   if _n_=1 then ouchar=substrn(cxmc,1,0);*保证ouchar有足够的长度而且初始值为空；
   do i=1 to length(cxmc);
      if rank(substrn(cxmc,i,1))<161 then ouchar=compress(ouchar||substrn(cxmc,i,1));
   end;
run;