| 7 | 1/1 | 返回列表 |
| 查看: 705 | 回復(fù): 6 | |||
[求助]
建立序列文件
|
|
如題 我想建立100個(gè)文件怎么弄? do 1=1,100 open(………………) write(……………………) end do 我想以這樣的方式創(chuàng)建100個(gè)文件,然后分別寫入數(shù)據(jù),應(yīng)該怎么用? 就比如一般的open這么用,這里 open(111,file='cif',status='old') file這一項(xiàng)怎么寫呢? |

至尊木蟲 (職業(yè)作家)

|
2樓: Originally posted by snoopyzhao at 2011-09-10 21:25:17: 看看這個(gè): character(len=6) :: filename do i=1,100 write(filename,'(a,i0,a)') '(cif', i, ')' open(111, file = filename, status = 'old') write(111, *).... end do character(len=6) :: filename do i=1,100 write(filename,'(a,i0,a)') '(cif', i, ')' 。!對(duì)變量filename 賦值為(cifi) open(111, file = filename, status = 'old') !。!然后file的filename變量,創(chuàng)立文件是吧? write(111, *).... end do 可不可以這樣: do i=1,100 open(111, file = i, status = 'new') write(111, *).... end do |


至尊木蟲 (職業(yè)作家)
|
write(filename,'(a,i0,a)') '(cif', i, ')' 這句話的主要目的是生成 file 所對(duì)應(yīng)的文件名,其中的 '(a,i0,a)' 表示的是這個(gè) filename 的格式是由一個(gè)字符串 (a)、一個(gè)長(zhǎng)度不定的整數(shù) (i) 和 一個(gè)字符串 (a) 組成,比如 cif99 這樣的,但在這里需要前后加上括號(hào),所以對(duì)應(yīng)的 filename 其實(shí)是 (cif99)... 具體詳情,請(qǐng)查閱 fortran 標(biāo)準(zhǔn)中有關(guān)內(nèi)部文件的說明…… |
至尊木蟲 (職業(yè)作家)
|
4樓: Originally posted by 賀儀 at 2011-09-10 23:03:59: character(len=6) :: filename do i=1,100 write(filename,'(a,i0,a)') '(cif', i, ')' 。!對(duì)變量filename 賦值為(cifi) open(111, file = filename, status = 'old') 。。!然后file的file ... open 中的 file 要求后面的值是一個(gè)字符串,所以你不能直接把 i 賦給 file,呵呵…… |
| 7 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 329求調(diào)劑 +8 | 星野? 2026-03-26 | 8/400 |
|
|---|---|---|---|---|
|
[考研] 本科211生物醫(yī)學(xué)工程085409求調(diào)劑339分 +3 | 里子木yy 2026-03-29 | 3/150 |
|
|
[考研] 一志愿南開大學(xué)0710生物學(xué)359求調(diào)劑 +5 | 兔兔兔111223314 2026-03-29 | 5/250 |
|
|
[考研] 0703 化學(xué) 求調(diào)劑,一志愿山東大學(xué) 342 分 +6 | Shern—- 2026-03-28 | 6/300 |
|
|
[考研] 327求調(diào)劑 +4 | 小卡不卡. 2026-03-29 | 4/200 |
|
|
[考研] 求調(diào)劑 +4 | QiMing7 2026-03-25 | 5/250 |
|
|
[考研] 一志愿華東師范大學(xué)有機(jī)化學(xué)專業(yè),初試351分,復(fù)試被刷求調(diào)劑! +5 | 真名有冰 2026-03-29 | 6/300 |
|
|
[考研] 299求調(diào)劑 +10 | 15188958825 2026-03-25 | 10/500 |
|
|
[考研] 求收留 +5 | 1943443204 2026-03-28 | 5/250 |
|
|
[考研] 330分求調(diào)劑 +5 | qzenlc 2026-03-29 | 5/250 |
|
|
[考研] 316求調(diào)劑 +7 | 江辭666 2026-03-26 | 7/350 |
|
|
[考研] 083000學(xué)碩274求調(diào)劑 +8 | Li李魚 2026-03-26 | 8/400 |
|
|
[考研] 一志愿華理,數(shù)一英一285求A區(qū)調(diào)劑 +8 | AZMK 2026-03-25 | 12/600 |
|
|
[考研]
|
y7czhao 2026-03-26 | 10/500 |
|
|
[考研] 299求調(diào)劑 +7 | 嗯嗯嗯嗯2 2026-03-27 | 7/350 |
|
|
[考研] 一志愿211院校 344分 東北農(nóng)業(yè)大學(xué)生物學(xué)學(xué)碩,求調(diào)劑 +5 | 丶風(fēng)雪夜歸人丶 2026-03-26 | 8/400 |
|
|
[考博] 26申博 +3 | 加油沖! 2026-03-26 | 3/150 |
|
|
[考研] 274求調(diào)劑 +17 | 顧九笙要謙虛 2026-03-24 | 23/1150 |
|
|
[考研] 材料求調(diào)劑 +5 | .m.. 2026-03-25 | 5/250 |
|
|
[考研] 一志愿天津大學(xué)339材料與化工求調(diào)劑 +3 | 江往賣魚 2026-03-26 | 3/150 |
|