Re: [問題] 請問FORTRAN
※ 引述《snowman1982.bbs@ptt.cc (雪人)》之銘言：
> 問題如下
> 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 開設自己喜愛的主題ＢＢＳ站
--
討論串 (同標題文章)
完整討論串 (本文為第 2 之 2 篇)：
Programming 近期熱門文章
PTT數位生活區 即時熱門文章
