可以了 谢谢

还有空值的情况 怎么也剔除掉啊？   快哭了

data want;
        set test;
        array chs _character_;
        PRX=PRXPARSE("/\D/");
        prx=prxparse("/^\d+[.\d]?\d?$/");

        do i =1 to dim(chs);
                START=1;
                STOP=LENGTH(chs(i));
                CALL PRXNEXT(PRX,START,STOP,chs(i),POSITION,LENGTH);
                if position=0 then do;
                        x = vname(chs(i));
                        output;
                end;
        end;
run;