作者snowanimal (依然动物先生)
看板Programming
标题Re: [请教]如果要用fortran同时开10000个txt档......
时间Mon Feb 12 15:43:08 2007
※ 引述《[email protected] (㊣台湾宇宙造船公司 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