看板Programming
标 题Re: [请教]如果要用fortran同时开10000个txt档......
发信站KKCITY (Sun Feb 11 17:17:42 2007)
转信站ptt!ctu-reader!ctu-peer!news.nctu!news.cis.nctu!news.ee.ttu!news.ntu!n
※ 引述《[email protected] (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
》──┘ ◤ 唱片公司授权，音乐尽情下载
--
1F：推 ephesians:对一个没学过FORTRAN的人来说, (我) 218.160.211.38 02/11 18:22
2F：→ ephesians:写得出来就偷笑了 218.160.211.38 02/11 18:23
3F：→ ephesians:我一点也不知道什麽秘招... 囧 218.160.211.38 02/11 18:23