Re: [請教]如果要用fortran同時開10000個txt檔......
※ 引述《ephesians.bbs@ptt.cc (ephesians)》之銘言：
> 臨時K文件寫了這樣的程式,大概能動吧:
> (體會到原始工具的討人厭之處;
要做一萬個檔名不用這樣啦。FORTRAN儘管原始，他的字串處理在某些地方
跟Ｃ也差不多。而且Ｃ寫到哪裡就要用不同的*printf()，FORTRAN不用。
> 還有,洗老師,你的FORTRAN程式語言行文讀起來可真是天書啊!
那本不錯啊，但是我看你以下的寫法太執著於他教的那個「秘招」了。
我現在給一個人類看得懂(human readable)的zero padding寫法。
PROGRAM AC
INTEGER I, P
CHARACTER*4 S
CHARACTER*8 F
DO 50 I=1, 9999
WRITE (S, "(I4)") I
DO 55 P=1, 4
IF (S(P:P)==" ") THEN
S(P:P)="0"
END IF
55 CONTINUE
WRITE (F, "(A4, '.txt')") S
WRITE (*, *) F
50 CONTINUE
END PROGRAM
--
X-URL1: http://www.aviationnow.com/ ‧李登輝＝格達費＝外星人‧有廁
檢舉匪諜 人人有責 ⊙ 檢舉匪諜 安居樂業 人所
檢舉匪諜滲透破壞 人人安居樂業｜肅清貪污經濟犯罪 社會繁榮進步
破案獎金三百萬｜知情不報判徒刑
檢舉要件：請用真實姓名、地址，受理機關絕對保密
X-Disclaimer: 李登輝一定是外星人！ Mk.22 Mod4 5/15/01 Mod3 6/9/98
--
┌─────◆ＫＫＣＩＴＹ◆─────┐ ◢ ◤ 聽 KKBOX，動態歌詞緊緊跟著你
│ bbs.kkcity.com.tw │ \^_^ / ★ http://www.kkbox.com.tw ★
└──《From:218.160.89.118 》──┘ ◤ 唱片公司授權，音樂盡情下載
--
推
02/11 18:22, , 1F
02/11 18:22, 1F
→
02/11 18:23, , 2F
02/11 18:23, 2F
→
02/11 18:23, , 3F
02/11 18:23, 3F
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 11 之 18 篇)：
Programming 近期熱門文章
PTT數位生活區 即時熱門文章
10
41