<div class="quote"><b>以下是引用<i>horace_chen</i>在2009-5-22 17:42:00的发言：</b><br/><p>PROC IMPORT OUT= WORK.b <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DATAFILE= "C:\Documents and Settings\user\桌面\2009522153730<br/>34545.txt" <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DBMS=TAB REPLACE;<br/>&nbsp;&nbsp;&nbsp;&nbsp; GETNAMES=YES;<br/>&nbsp;&nbsp;&nbsp;&nbsp; DATAROW=2; <br/>RUN;</p><p>data work.a;<br/>&nbsp; set b;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; year=substr(date,1,4);&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; month=substr(date,6,2);<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; day='01';&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp; time=MDY(month,day,year);<br/>&nbsp; informat time yymmdd10.;<br/>&nbsp; format time yymmdd10.;<br/>&nbsp; drop year month day;<br/>run;</p><p></p><p>仅供参考~~~</p></div><p></p><p>这样直接读还是有一个问题，会把股票代码前面的0。。。。给读掉啦，举例000001&nbsp; 读入后会是&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 1，不过还是谢谢啦，我知道在读的时候可以把代码改过来，但是读不进去年份</p><p><font face="Times New Roman" color="#f73809" size="3">%let file=C:\Users\qyj\Desktop\my work\retu.txt; data result; infile "&amp;file" dlm='09'x ignoredoseof missover firstobs=2;&nbsp; informat Stckcd $6. &nbsp;date time.; informat Stckcd $6. ; informat date time.; informat ret best32. ; informat mret best32. ; informat Ab best32. ; format Stckcd $6. ; input&nbsp;&nbsp;......;run;</font></p><p><font face="Times New Roman" color="#f73809" size="3">我弄的，但是把 time.改成 yymmn6.就读不进去，不知道为什么？</font></p>

<p>刚才把你的数据做了下，仅供参考</p><p>data temp;<br/>&nbsp;infile "c:\2.txt" delimiter='09'x MISSOVER DSD lrecl=32767 firstobs=2;<br/>&nbsp;informat stkcd $6.;<br/>&nbsp;informat date&nbsp; $7.;<br/>&nbsp;informat ret&nbsp;&nbsp; 10.8;<br/>&nbsp;informat mret&nbsp; 10.8;<br/>&nbsp;format&nbsp;&nbsp; stkcd $6.;<br/>&nbsp;format&nbsp;&nbsp; date&nbsp; $7.;<br/>&nbsp;format&nbsp;&nbsp; ret&nbsp;&nbsp; 10.8;<br/>&nbsp;format&nbsp;&nbsp; mret&nbsp; 10.8;<br/>&nbsp;input&nbsp; @1 stkcd&nbsp; @8 date @16 ret +1 mret;<br/>run;<br/><br/>data b;<br/>&nbsp; set tmp;<br/>&nbsp; mon=substr(put(left(date),$7.),6,2);<br/>&nbsp; year=substr(put(left(date),$7.),1,4);<br/>&nbsp; day='01';<br/>&nbsp; time=MDY(mon,day,year);<br/>&nbsp; informat time yymmdd10.;<br/>&nbsp; format time yymmdd10.;<br/>&nbsp; drop date mon year day;<br/>&nbsp; rename time=date;<br/>run;<br/></p>

进来观摩强人的程序！