mplanck

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

之上又是啥子蟲蟲？

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

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

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

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

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

回復此樓

» 猜你喜歡

材料求調(diào)劑一志愿哈工大總分298分，前三科223分已經(jīng)有4人回復
086502化學工程342求調(diào)劑已經(jīng)有3人回復
求調(diào)劑已經(jīng)有9人回復
352分化工與材料已經(jīng)有5人回復
085602 化工專碩 338分求調(diào)劑已經(jīng)有10人回復
0856材料化工調(diào)劑總分330 已經(jīng)有10人回復
330一志愿中國海洋大學化學工程 085602 有讀博意愿求調(diào)劑已經(jīng)有4人回復
一志愿哈爾濱工業(yè)大學材料與化工方向336分已經(jīng)有6人回復
材料求調(diào)劑一志愿哈工大324 已經(jīng)有6人回復
085600 286分材料求調(diào)劑已經(jīng)有4人回復

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

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

不知不覺過2W了！那向3W挺進~~

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

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

maomao1210

金蟲 (正式寫手)

程序強帖: 5
應助: 2 (幼兒園)
金幣: 1432.8
散金: 242
紅花: 16
沙發(fā): 1
帖子: 991
在線: 442.1小時
蟲號: 253215
注冊: 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ù)，怎樣實現(xiàn)？
有沒有類似rewind這樣的指令（注：rewind是回繞至文件初始點命令）
請蟲蟲們不吝賜教，謝謝！

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

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人)

回復此樓

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

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

mplanck

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

之上又是啥子蟲蟲？

應助: 0 (幼兒園)
金幣: 22899.2
散金: 5216
紅花: 19
帖子: 3980
在線: 760.8小時
蟲號: 468030
注冊: 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  !  ...

這辦法不錯，非常感謝！難道真沒有一個指令呀？

贊一下

回復此樓

不知不覺過2W了！那向3W挺進~~

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

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

maomao1210

金蟲 (正式寫手)

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

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

引用回帖:

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

這辦法不錯，非常感謝！難道真沒有一個指令呀？

應該有，可惜我不知道呀

贊一下(1人)

回復此樓

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

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

snoopyzhao

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

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

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

讀我不知道如何做，但寫應該很簡單吧，用 open 中的 append 模式應該就可以……

贊一下(2人)

回復此樓

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

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

mplanck

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

之上又是啥子蟲蟲？

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

引用回帖:

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

搜索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

贊一下

回復此樓

不知不覺過2W了！那向3W挺進~~

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

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

snoopyzhao

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

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

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

引用回帖:

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 應該是一個擴展的選項，不同的編譯器可能不一樣……有的在 access 這個選項下，也有的在 position 這個選項下，還有可能沒有……

贊一下(1人)

回復此樓

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

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

maomao1210

金蟲 (正式寫手)

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

引用回帖:

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

又查了一下，append 應該是一個擴展的選項，不同的編譯器可能不一樣……有的在 access 這個選項下，也有的在 position 這個選項下，還有可能沒有……

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

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

mplanck

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

之上又是啥子蟲蟲？

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

引用回帖:

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

贊一下(1人)

回復此樓

不知不覺過2W了！那向3W挺進~~

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

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

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

[考研] 275求調(diào)劑 +10	jjjjjjjjjjl 2026-03-27	10/500	2026-03-27 23:47 by barnett0632
[考研] 【求調(diào)劑】085601材料工程專碩 \| 總分272 \| +5	腳滑的守法公民 2026-03-27	5/250	2026-03-27 22:50 by lcl13500..
[考研] 085701環(huán)境工程求調(diào)劑 +8	多久上課 2026-03-27	8/400	2026-03-27 22:21 by 無際的草原
[考研] 265求調(diào)劑11408 +3	劉小鹿lu 2026-03-27	3/150	2026-03-27 20:53 by nihaoar
[考研] 289求調(diào)劑 +7	新時代材料 2026-03-27	7/350	2026-03-27 18:08 by arrow8852
[考研] 266分求材料化工冶金礦業(yè)等專業(yè)的調(diào)劑 +4	哇呼哼呼哼 2026-03-26	4/200	2026-03-27 17:02 by zhyzzh
[考研] 308求調(diào)劑 +7	墨墨漠 2026-03-25	7/350	2026-03-27 14:47 by 狂炫麥當當
[考研] 322求調(diào)劑 +4	我真的很想學習 2026-03-23	4/200	2026-03-27 13:51 by 楊楊楊紫
[考研] 材料求調(diào)劑 +5	.m.. 2026-03-25	5/250	2026-03-27 11:08 by 不吃魚的貓
[考研] 292求調(diào)劑 +4	求求了收下我吧?/a> 2026-03-26	4/200	2026-03-27 10:37 by zhshch
[考研] 一志愿鄭州大學，080500學碩，總分317分求調(diào)劑 +4	舉個栗子oi 2026-03-24	5/250	2026-03-26 23:15 by 不吃魚的貓
[考研] 321求調(diào)劑 +6	wasdssaa 2026-03-26	6/300	2026-03-26 20:57 by sanrepian
[考研] 352求調(diào)劑 +4	大米飯！ 2026-03-22	4/200	2026-03-26 16:40 by 不吃魚的貓
[考研] 一志愿北京化工大學材料與化工（085600）296求調(diào)劑 +9	稻妻小編 2026-03-26	9/450	2026-03-26 16:16 by 不吃魚的貓
[考研] 食品專碩一志愿雙一流 328 +3	xiaom99 2026-03-21	4/200	2026-03-24 21:20 by lailaisimei
[考研] 0703化學調(diào)劑，求導師收 +7	天天好運來上岸?/a> 2026-03-24	7/350	2026-03-24 20:26 by peike
[考研] 305分求調(diào)劑（食品工程） +5	Sxy112 2026-03-21	7/350	2026-03-24 12:27 by 544594351
[考研] 一志愿吉大化學322求調(diào)劑 +4	17501029541 2026-03-23	6/300	2026-03-24 10:21 by 戴圍脖的小蚊子
[考研] 269求調(diào)劑 +4	我想讀研11 2026-03-23	4/200	2026-03-23 21:25 by pswait
[考研] 材料學碩301分求調(diào)劑 +7	Liyouyumairs 2026-03-21	7/350	2026-03-21 22:31 by peike