Re: [請教]如果要用fortran同時開10000個txt檔......
※ 引述《journeyman@kkcity.com.tw (㊣台灣宇宙造船公司 XD)》之銘言：
: 要做一萬個檔名不用這樣啦。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
:
原來問問題的是要從0000開始到9999
所以在檔名上可以簡化些
Program 10Kfile
integer I,S
chatacter*8 name
Name='0000.txt'
do I=1,10000
S=I-1
write (name,(1:4),'(i4)') S
write (*,*) name
enddo
stop
end
我想~應該就可以了吧
--
●▲◆▼●▲◆▼●▲◆▼●▲◆▼●▲◆▼●▲◆▼● ▲▲▲▲
▼ 我與我的酷企鵝 - 台客 ▲ 〒 〒
◆ 相本: http://photo.xuite.net/animalion ◆ ▲
▲ 網誌: http://blog.xuite.net/animalion ▼ ◣ ▼ ◢
●▼◆▲●▼◆▲●▼◆▲●▼◆▲●▼◆▲●▼◆▲● M A R U.
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 192.83.177.177
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 12 之 18 篇)：
Programming 近期熱門文章
PTT數位生活區 即時熱門文章
