|
|
沙发

楼主 |
发表于 2009-11-11 23:15:37
|
只看该作者
Re: 求助数据的处理
[code:2wba5j4d]data raw;
retain string;
infile 'd:\raw.txt' end=eof;
input;
if _n_=1 then string=_infile_;
if scan(string,1)=scan(_infile_,1) then
do;
do time=input(scan(string,2),yymmdd8.) to input(scan(_infile_,2),yymmdd8.)-1;
output;
end;
end;
else
do;
time=input(scan(string,2),yymmdd8.);
output;
end;
string=_infile_;
if eof then output;
format time yymmdd10.;
run;
data final(drop=string);
retain name time value;
length name $8;
set raw;
name=scan(string,1);
value=input(scan(string,3),best8.);
run;[/code:2wba5j4d] |
|