mplanck

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

之上又是啥子蟲蟲？

應(yīng)助: 0 (幼兒園)
金幣: 22899.2
散金: 5216
紅花: 19
帖子: 3980
在線: 760.8小時(shí)
蟲號(hào): 468030
注冊(cè): 2007-11-27
性別: GG
專業(yè): 原子和分子物理

[交流] 【求助】怎么在文件尾行讀寫數(shù)據(jù)？【已完結(jié)】已有3人參與

已知文件A，行數(shù)未知�，F(xiàn)在想跳到文件最后一行讀寫數(shù)據(jù)，怎樣實(shí)現(xiàn)？
有沒有類似rewind這樣的指令（注：rewind是回繞至文件初始點(diǎn)命令）
請(qǐng)蟲蟲們不吝賜教，謝謝！

ps:剛才金幣發(fā)放設(shè)置錯(cuò)了，希望回帖的蟲蟲言中要害，謝謝！

[ Last edited by 余澤成 on 2010-9-13 at 22:28 ]

回復(fù)此樓

» 猜你喜歡

0703本科鄭州大學(xué)求調(diào)劑已經(jīng)有3人回復(fù)
311求調(diào)劑已經(jīng)有4人回復(fù)
一志愿華理，數(shù)一英一285求A區(qū)調(diào)劑已經(jīng)有11人回復(fù)
調(diào)劑310 已經(jīng)有5人回復(fù)
321求調(diào)劑已經(jīng)有6人回復(fù)
求調(diào)劑已經(jīng)有7人回復(fù)
349求調(diào)劑已經(jīng)有6人回復(fù)
本科新能源科學(xué)與工程，一志愿華理能動(dòng)285求調(diào)劑已經(jīng)有4人回復(fù)
材料求調(diào)劑已經(jīng)有9人回復(fù)
299求調(diào)劑已經(jīng)有7人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

巧妙的存放隱私文件，只有你才能打開已經(jīng)有203人回復(fù)
【強(qiáng)烈推薦，真的很棒�。�！不看后悔哦~】我的簡(jiǎn)歷PPT動(dòng)畫版-PPT源文件【轉(zhuǎn)載】已經(jīng)有27人回復(fù)
我暈了，這個(gè)審稿意見怎么處理��？已經(jīng)有10人回復(fù)
這首詩(shī)大家怎么看已經(jīng)有3人回復(fù)
WIEN2k的能帶數(shù)據(jù)文件case.spaghetti_ene。你們都是怎么分析提取數(shù)據(jù)？和我的看法。已經(jīng)有8人回復(fù)
有人遇到過MS文件讀寫錯(cuò)誤的情況嗎？已經(jīng)有4人回復(fù)
生測(cè)數(shù)據(jù)的標(biāo)準(zhǔn)差大于平均值，怎么辦？已經(jīng)有7人回復(fù)
請(qǐng)問Polymer Chemistry 這個(gè)雜志怎么樣已經(jīng)有8人回復(fù)
c語(yǔ)言高手請(qǐng)進(jìn)，請(qǐng)勿灌水，謝謝�。P(guān)于讀寫文件的問題）已經(jīng)有6人回復(fù)
膠體狀液體怎么變成固體小球？已經(jīng)有4人回復(fù)
【討論】怎么從文件的最后一行讀數(shù)據(jù)？已經(jīng)有4人回復(fù)
【求助】QSAR模型中交叉驗(yàn)證系數(shù)（q2）怎么獲得？已經(jīng)有19人回復(fù)

不知不覺過2W了！那向3W挺進(jìn)~~

1樓 2010-09-11 10:59:29

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

maomao1210

金蟲 (正式寫手)

程序強(qiáng)帖: 5
應(yīng)助: 2 (幼兒園)
金幣: 1432.8
散金: 242
紅花: 16
沙發(fā): 1
帖子: 991
在線: 442.1小時(shí)
蟲號(hào): 253215
注冊(cè): 2006-05-20
性別: MM
專業(yè): 考古理論

★
mplanck(金幣+5):謝謝參與

引用回帖:

Originally posted by mplanck at 2010-09-11 10:59:29:
已知文件A，行數(shù)未知�，F(xiàn)在想跳到文件最后一行讀寫數(shù)據(jù)，怎樣實(shí)現(xiàn)？
有沒有類似rewind這樣的指令（注：rewind是回繞至文件初始點(diǎn)命令）
請(qǐng)蟲蟲們不吝賜教，謝謝！

ps:剛才金幣發(fā)放設(shè)置錯(cuò)了，希望回帖的蟲蟲 ...

implicit real*8(a-h,o-z)

   open(unit=10,file='li.txt',status='old')

1    Read(10,*,end=2)
   Goto 1

2    backspace 10
   backspace 10

   read(10,*) a  ! 最后一行你要讀的數(shù)據(jù)，具體格式參考你的文件數(shù)據(jù)而定。
   write(*,*) a

   End

[ Last edited by maomao1210 on 2010-9-11 at 18:31 ]

贊一下(1人)

回復(fù)此樓

2樓2010-09-11 18:29:18

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

mplanck

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

之上又是啥子蟲蟲？

應(yīng)助: 0 (幼兒園)
金幣: 22899.2
散金: 5216
紅花: 19
帖子: 3980
在線: 760.8小時(shí)
蟲號(hào): 468030
注冊(cè): 2007-11-27
性別: GG
專業(yè): 原子和分子物理

引用回帖:

Originally posted by maomao1210 at 2010-09-11 18:29:18:

   implicit real*8(a-h,o-z)

   open(unit=10,file='li.txt',status='old')

1    Read(10,*,end=2)
   Goto 1

2    backspace 10
   backspace 10

   read(10,*) a  !  ...

這辦法不錯(cuò)，非常感謝！難道真沒有一個(gè)指令呀？

贊一下

回復(fù)此樓

不知不覺過2W了！那向3W挺進(jìn)~~

3樓2010-09-11 18:49:03

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

maomao1210

金蟲 (正式寫手)

程序強(qiáng)帖: 5
應(yīng)助: 2 (幼兒園)
金幣: 1432.8
散金: 242
紅花: 16
沙發(fā): 1
帖子: 991
在線: 442.1小時(shí)
蟲號(hào): 253215
注冊(cè): 2006-05-20
性別: MM
專業(yè): 考古理論

★
小木蟲(金幣+0.5):給個(gè)紅包，謝謝回帖交流

引用回帖:

Originally posted by mplanck at 2010-09-11 18:49:03:

這辦法不錯(cuò)，非常感謝！難道真沒有一個(gè)指令呀？

應(yīng)該有，可惜我不知道呀

贊一下(1人)

回復(fù)此樓

4樓2010-09-11 20:52:45

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

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

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時(shí)
蟲號(hào): 183750
注冊(cè): 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

★ ★
小木蟲(金幣+0.5):給個(gè)紅包，謝謝回帖交流
nono2009(金幣+1):鼓勵(lì)應(yīng)助。 2010-09-12 07:17:13

讀我不知道如何做，但寫應(yīng)該很簡(jiǎn)單吧，用 open 中的 append 模式應(yīng)該就可以……

贊一下(2人)

回復(fù)此樓

5樓2010-09-11 21:52:45

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

mplanck

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

之上又是啥子蟲蟲？

應(yīng)助: 0 (幼兒園)
金幣: 22899.2
散金: 5216
紅花: 19
帖子: 3980
在線: 760.8小時(shí)
蟲號(hào): 468030
注冊(cè): 2007-11-27
性別: GG
專業(yè): 原子和分子物理

引用回帖:

Originally posted by snoopyzhao at 2010-09-11 21:52:45:
讀我不知道如何做，但寫應(yīng)該很簡(jiǎn)單吧，用 open 中的 append 模式應(yīng)該就可以……

搜索fortran幫助文件，看到open的所有供選參數(shù)如下：ACCESS CONVERT MODE RECORDTYPE ACTION DEFAULTFILE NAME SHARE ASSOCIATEVARIABLE DELIM ORGANIZATION SHARED
BLANK DISPOSE PAD STATUS BLOCKSIZE FILE POSITION TITLE
BUFFERCOUNT FORM READONLY TYPE BUFFERED IOFOCUS RECL USEROPEN CARRIAGECONTROL MAXREC RECORDSIZE
就是沒看到append

贊一下

回復(fù)此樓

不知不覺過2W了！那向3W挺進(jìn)~~

6樓2010-09-13 16:26:31

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

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

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時(shí)
蟲號(hào): 183750
注冊(cè): 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

★
小木蟲(金幣+0.5):給個(gè)紅包，謝謝回帖交流

引用回帖:

Originally posted by mplanck at 2010-09-13 16:26:31:

搜索fortran幫助文件，看到open的所有供選參數(shù)如下：ACCESS CONVERT MODE RECORDTYPE ACTION DEFAULTFILE NAME SHARE ASSOCIATEVARIABLE DELIM ORGANIZATION SHARED
BLANK DISPOSE PAD STATUS BLOCKSIZE FIL ...

又查了一下，append 應(yīng)該是一個(gè)擴(kuò)展的選項(xiàng)，不同的編譯器可能不一樣……有的在 access 這個(gè)選項(xiàng)下，也有的在 position 這個(gè)選項(xiàng)下，還有可能沒有……

贊一下(1人)

回復(fù)此樓

7樓2010-09-13 20:16:55

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

maomao1210

金蟲 (正式寫手)

★
小木蟲(金幣+0.5):給個(gè)紅包，謝謝回帖交流

引用回帖:

Originally posted by snoopyzhao at 2010-09-13 20:16:55:

又查了一下，append 應(yīng)該是一個(gè)擴(kuò)展的選項(xiàng)，不同的編譯器可能不一樣……有的在 access 這個(gè)選項(xiàng)下，也有的在 position 這個(gè)選項(xiàng)下，還有可能沒有……

8樓2010-09-13 21:49:46

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

mplanck

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

之上又是啥子蟲蟲？

應(yīng)助: 0 (幼兒園)
金幣: 22899.2
散金: 5216
紅花: 19
帖子: 3980
在線: 760.8小時(shí)
蟲號(hào): 468030
注冊(cè): 2007-11-27
性別: GG
專業(yè): 原子和分子物理

引用回帖:

非常感謝你的提示，最終用position='append'實(shí)現(xiàn)了！
（改成access, 編譯過程中說(shuō)backspace 有錯(cuò)，沒搞懂）
代碼如下貼上，供其它需要的蟲蟲參考：
---------------------------------------------------------
character*70 lineword
open (9,file='openfile,position='append')
backspace 9
read (9, '(A70)') lineword
write(*, '(A70)') lineword
close(9)
end
----------------------------------------------------------

贊一下(1人)

回復(fù)此樓

不知不覺過2W了！那向3W挺進(jìn)~~

9樓2010-09-13 21:54:25

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

最具人氣熱帖推薦 [查看全部]	作者	回/看	最后發(fā)表

[考研] 0703本科鄭州大學(xué)求調(diào)劑 +3	nhj_ 2026-03-25	3/150	2026-03-28 13:24 by Iveryant
[考研] 調(diào)劑求院校招收 +3	鶴鯨鴿 2026-03-28	3/150	2026-03-28 12:44 by 松花缸1201
[考研] 一志愿北化085600材料專碩275\|有文章專利｜求調(diào)劑 +4	Micky11223 2026-03-25	4/200	2026-03-28 12:08 by 唐沐兒
[考研] 289求調(diào)劑 +10	新時(shí)代材料 2026-03-27	10/500	2026-03-28 09:53 by 無(wú)際的草原
[考研] 材料與化工085600，總分304，本科有兩篇sci參與，求調(diào)劑 +10	幸運(yùn)的醬醬 2026-03-22	12/600	2026-03-27 16:08 by muchong357
[考研] 08開頭275求調(diào)劑 +4	拉誰(shuí)不重要 2026-03-26	4/200	2026-03-27 14:12 by Delta2012
[考研] 317求調(diào)劑 +5	十閑wx 2026-03-24	5/250	2026-03-27 13:48 by 楊楊楊紫
[考研] 292求調(diào)劑 +4	求求了收下我吧?/a> 2026-03-26	4/200	2026-03-27 10:37 by zhshch
[考研] 359求調(diào)劑 +4	王了個(gè)楠 2026-03-25	4/200	2026-03-27 08:43 by 不吃魚的貓
[考研] 336材料求調(diào)劑 +7	陳瀅瑩 2026-03-26	9/450	2026-03-27 00:20 by wxiongid
[考研] 294分080500材料科學(xué)與工程求調(diào)劑 +4	柳溪邊 2026-03-26	4/200	2026-03-26 21:14 by XPU李慶
[考研] 321求調(diào)劑 +6	Ymlll 2026-03-24	6/300	2026-03-26 20:50 by 不吃魚的貓
[考研] 085600 材料與化工 329分求調(diào)劑 +9	Mr. Z 2026-03-25	9/450	2026-03-26 10:36 by baoball
[考研] 332求調(diào)劑 +6	032500 2026-03-25	6/300	2026-03-25 22:45 by 418490947
[考研] 網(wǎng)絡(luò)空間安全0839招調(diào)劑 +4	w320357296 2026-03-25	6/300	2026-03-25 17:59 by 255671
[考研] 0703化學(xué)調(diào)劑，求導(dǎo)師收 +7	天天好運(yùn)來(lái)上岸?/a> 2026-03-24	7/350	2026-03-24 20:26 by peike
[考研] 277分求調(diào)劑，跨調(diào)材料 +3	考研調(diào)劑lxh 2026-03-24	3/150	2026-03-24 13:52 by JourneyLucky
[考研] 石河子大學(xué)（211、雙一流）碩博研究生長(zhǎng)期招生公告 +3	李子目 2026-03-22	3/150	2026-03-22 21:01 by 怎么釋懷
[考研] 求調(diào)劑院校信息 +6	CX 330 2026-03-21	6/300	2026-03-22 15:25 by 無(wú)懈可擊111
[考研] 材料學(xué)碩301分求調(diào)劑 +7	Liyouyumairs 2026-03-21	7/350	2026-03-21 22:31 by peike