※ 引述《[email protected] (雪人)》之铭言： > 问题如下 > DO j=1,12 > DO jj=1, 72 > WRITE (filename, '(BZ, A15, I1, A5, A4, A1,I3)')& > &'d:\epa2005\2005', j , '\Hs05', mmdd,'.', jj > write(*,*) filename > OPEN (UNIT=200, file=filename) > 试了很久快疯了，请问问题出在哪里 > 每次compiler 都说 d:\epa2005\2005 1\hs05mmdd. 1错误 > 我想写成 d:\epa2005\200501\hs05mmdd.001 > 可是他都不会自动补0 > BZ的用法应该怎样使用才会出现0 > 麻烦会的高手可以教我..谢谢 上次有人问过了。 锯箭法： DO i=1, len(filename) If (filename(i)=" ") THEN filename(i)="0" END IF 　 -- X-URL1: http://www.aviationnow.com/ ‧李登辉＝格达费＝外星人‧有厕 检举匪谍 人人有责 ⊙ 检举匪谍 安居乐业 人所 检举匪谍渗透破坏 人人安居乐业｜肃清贪污经济犯罪 社会繁荣进步 　 破案奖金三百万｜知情不报判徒刑 检举要件：请用真实姓名、地址，受理机关绝对保密 X-Disclaimer: 李登辉一定是外星人！ Mk.22 Mod4 5/15/01 Mod3 6/9/98 -- ┌─────◆ＫＫＣＩＴＹ◆─────┐ ★ 人人可架站，经营社群联谊天地 ★ │ bbs.kkcity.com.tw │ 欢迎社团/班系/歌友/艺文创作/公益申请 └──《From:218.160.87.52 》──┘ 到 KKCity 开设自己喜爱的主题ＢＢＳ站 --