read as char frist and use substr + input to get the number you want

[此贴子已经被作者于2008-3-21 5:24:15编辑过]

data ds;
array xx {5} $ xx1-xx5  ;
infile "c:\datafile.txt" missover;
input xx1-xx5  ;
run;


data datset;
array x{0:4}  x0-x4;
array xx{5} $  xx1-xx5;
set ds;
    do i=1 to 5;
            if xx(i)="" then x(i-1)="" ;
                 else
                    select (substr(xx(i),1,2));
                        when ('y:') x(i-1)=substr (xx(i),3,0);
                        when ('x1') x(i-1)=substr (xx(i),4,0);
                        when ('x2') x(i-1)=substr (xx(i),4,0);
                        when ('x3') x(i-1)=substr (xx(i),4,0);
                        when ('x4') x(i-1)=substr (xx(i),4,0);
                        when ('x5') x(i-1)=substr (xx(i),4,0);
                        otherwise;
                    end;
    
    end;

drop xx1-xx5  i;
rename x0=y;
run;

谢谢

不过，可能还会有问题。

它们之间可能没有空格：y:45x1:456...

这样也能区分数据.要是出现这种情况还有法读吗?