|
|
沙发
楼主 |
发表于 2009-8-25 02:13:27
|
只看该作者
Re: 一个比较棘手的问题
[code:1k9958b6]data temp(drop=text);
infile "d:\temp.txt" truncover;
input text $ 1-39;
retain date time;
if scan(text,1,' ')='Tue' then do;
date=input(scan(text,3)||scan(text,2)||scan(text,6),date9.);
time=input(scan(text,4),time8.);
end;
if scan(text,2,'/')='home' then do;
account=put(scan(text,1),$8.);
pid=input(scan(text,2),best8.);
start_time=input(scan(text,5),time8.);
end;
if account=' ' then delete;
format date ddmmyy10. time start_time time8.;
run;[/code:1k9958b6] |
|
