本帖產(chǎn)生 2 個(gè) 程序強(qiáng)帖，點(diǎn)擊這里進(jìn)行查看

當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖

77585218358

金蟲 (正式寫手)

應(yīng)助: 13 (小學(xué)生)
金幣: 2518.6
帖子: 685
在線: 244.9小時(shí)
蟲號(hào): 573551

[交流] 【求助】求高手關(guān)于Fortran數(shù)據(jù)讀寫的問題。【已完結(jié)】

現(xiàn)在有如下的數(shù)據(jù)，我想把C1 和C2 行對(duì)應(yīng)的三個(gè)數(shù)值讀寫出來，如何操作？小弟fortran很菜，跪求高手解答。
HT       -1.895  10.573  85.302
C1       -1.046  10.149  85.861
C2       -0.291  11.243  86.620
H1C    -0.394 9.635  85.137
H2C    -1.447 9.397  86.558
H1C    -0.994  11.727  87.322
H2C       0.028  12.029  85.913
C1       0.934  10.743  87.400
C2       2.100  10.268  86.522
H1C       0.630 9.929  88.082
H2C       1.300  11.563  88.045
H1C       2.365  11.070  85.810
H2C       1.783 9.403  85.915
C1       3.336 9.882  87.343
C2       4.495 9.311  86.511
H1C       3.042 9.128  88.095
H2C       3.686  10.760  87.914
H1C       4.139 8.415  85.976
H2C       5.287 8.958  87.196
C1       5.113  10.268  85.478
C2       5.692  11.575  86.043
H1C       4.357  10.510  84.711
H2C       5.918 9.729  84.946
H1C       4.883  12.193  86.469
H2C       6.116  12.158  85.205
C1       6.782  11.365  87.101
C2       7.480  12.671  87.503
H1C       7.529  10.654  86.706
H2C       6.344  10.894  87.999
H1C       6.719  13.397  87.840
H2C       7.954  13.116  86.609
C1       8.536  12.510  88.609
C2       9.640  11.481  88.312
H1C       8.028  12.229  89.550

[ Last edited by 余澤成 on 2010-12-6 at 15:16 ]

回復(fù)此樓

» 猜你喜歡

學(xué)碩274求調(diào)劑已經(jīng)有11人回復(fù)
一志愿鄭大材料工程290求調(diào)劑已經(jīng)有12人回復(fù)
環(huán)境工程 085701，267求調(diào)劑已經(jīng)有8人回復(fù)
083000學(xué)碩274求調(diào)劑已經(jīng)有10人回復(fù)
一志愿085600中科院寧波所276分求調(diào)劑已經(jīng)有4人回復(fù)
材料專業(yè)申博已經(jīng)有3人回復(fù)
307求調(diào)劑已經(jīng)有20人回復(fù)
285求調(diào)劑已經(jīng)有8人回復(fù)
材料與化工（0856）304求B區(qū)調(diào)劑已經(jīng)有8人回復(fù)
370求調(diào)劑已經(jīng)有3人回復(fù)

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

Fortran如何讀取數(shù)據(jù)避開空行？已經(jīng)有7人回復(fù)
【求助】Fortran語言賦值問題？已經(jīng)有3人回復(fù)
寫了一個(gè)fortran90的小程序，編譯通不過，請(qǐng)大俠幫忙已經(jīng)有59人回復(fù)
【求助】FORTRAN讀取文本文件已經(jīng)有9人回復(fù)
請(qǐng)教fortran導(dǎo)txt數(shù)據(jù)進(jìn)origin問題已經(jīng)有1人回復(fù)
【求助】Fortran編譯目標(biāo)文件后的鏈接問題已經(jīng)有4人回復(fù)
【求助】Fortran 程序可以直接讀取和輸出excel文件嗎已經(jīng)有3人回復(fù)
【求助】matlab讀取fortran輸出的txt文件【已解決】已經(jīng)有3人回復(fù)
【求助】求助個(gè)Fortran計(jì)算，應(yīng)該不難，半天搞不定，請(qǐng)高手幫忙已經(jīng)有11人回復(fù)

» 搶金幣啦！回帖就可以得到:

查看全部散金貼

1樓 2010-12-01 09:16:23

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

snoopyzhao

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

★
77585218358(金幣+10): 2010-12-01 14:32:59
余澤成(金幣+1):謝謝參與應(yīng)助！ 2010-12-06 15:15:59
zyj8119(程序強(qiáng)帖+1): 2010-12-14 18:03:44

一個(gè)簡單的實(shí)現(xiàn)

CODE:

C234567

      PROGRAM C1C2

      CHARACTER*80 LINE

      OPEN(7,FILE = 'A.TXT', STATUS='OLD')

      OPEN(8,FILE = 'B.TXT', STATUS='NEW')

5     READ(7,'(A)', END = 10) LINE

      IF( INDEX(LINE, 'C1') .NE. 0 .OR. INDEX(LINE, 'C2') .NE. 0)

     &  WRITE(8, '(A)') LINE

      GOTO 5

10    CONTINUE

      END

贊一下(2人)

回復(fù)此樓

3樓2010-12-01 10:37:01

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

查看全部 13 個(gè)回答

ykwang

金蟲 (正式寫手)

程序強(qiáng)帖: 2
應(yīng)助: 0 (幼兒園)
金幣: 3171.7
帖子: 639
在線: 386.4小時(shí)
蟲號(hào): 500302

★
77585218358(金幣+10): 2010-12-01 14:32:50
余澤成(金幣+1):謝謝參與應(yīng)助！ 2010-12-06 15:15:50
zyj8119(程序強(qiáng)帖+1): 2010-12-14 18:04:03

你需要的程序片段如下：

      Dimension C1(3,100),C2(3,100)
      Character  CHS*80
      J1=0
      J2=0
10    READ(10,'(A)',END=20)CHS
      IF(CHS(1:2).EQ.'C1')THEN
            J1=J1+1
            IF(J1.GT.100)STOP 'Error Message .......'
            READ(CHS(3:80),*)(C1(I,J1),I=1.3)
         ENDIF
         IF(CHS(1:2).EQ.'C2')THEN
            J2=J2+1
            IF(J2.GT.100)STOP 'Error Message .......'
            READ(CHS(3:80),*)(C2(I,J2),I=1.3)
         ENDIF
         GOTO 10
20    CONTINUE

贊一下(2人)

回復(fù)此樓

2樓2010-12-01 10:30:05

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

piduil

銅蟲 (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 37
帖子: 18
在線: 52.9小時(shí)
蟲號(hào): 1033449

★
77585218358(金幣+3): 2010-12-01 14:33:14
77585218358(金幣+3): 2010-12-01 14:35:45
余澤成(金幣+1):謝謝參與應(yīng)助！ 2010-12-06 15:16:10

ykwang的程序估計(jì)是樓主想要的
但文件10在你的程序中沒有定義，fortran菜鳥會(huì)搞不定的。
此外，如果輸入文件中有C1C打頭之類的行，會(huì)出錯(cuò)的。

贊一下(1人)

回復(fù)此樓

4樓2010-12-01 13:10:05

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

77585218358

金蟲 (正式寫手)

應(yīng)助: 13 (小學(xué)生)
金幣: 2518.6
帖子: 685
在線: 244.9小時(shí)
蟲號(hào): 573551

引用回帖:

Originally posted by piduil at 2010-12-01 13:10:05:
ykwang的程序估計(jì)是樓主想要的
但文件10在你的程序中沒有定義，fortran菜鳥會(huì)搞不定的。
此外，如果輸入文件中有C1C打頭之類的行，會(huì)出錯(cuò)的。

你的意思是應(yīng)該定義打開數(shù)據(jù)文件的通道10,是不是？

贊一下

回復(fù)此樓

5樓2010-12-01 14:38:04

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

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

[考研] 070300化學(xué)279求調(diào)劑 +3	哈哈哈^_^ 2026-03-31	5/250	2026-03-31 01:07 by 拿破龍
[考研] 本科211總分289，08工學(xué)真心求調(diào)劑 +3	utopiaE 2026-03-30	3/150	2026-03-30 23:42 by ms629
[考研] 11408總分309，一志愿東南大學(xué)求調(diào)劑，不挑專業(yè) +5	天賦帶到THU 2026-03-29	6/300	2026-03-30 20:49 by dick_runner
[考研] 332求調(diào)劑 +14	032500 2026-03-25	14/700	2026-03-30 20:03 by 無際的草原
[考研] 304材料求調(diào)劑 +5	鐘llll 2026-03-26	5/250	2026-03-30 19:37 by 源_2020
[考研] 材料專碩調(diào)劑 +11	椰椰。 2026-03-29	11/550	2026-03-30 16:21 by wangjy2002
[碩博家園] 求調(diào)劑有機(jī)化學(xué)考研356分 +10	Nadiums 2026-03-25	11/550	2026-03-30 11:56 by yjolah
[考研] 332求調(diào)劑 +6	Lyy930824@ 2026-03-29	6/300	2026-03-30 10:53 by 1172367218
[考研] 332求92調(diào)劑 +8	蕉蕉123 2026-03-28	8/400	2026-03-29 10:46 by 周梓丹
[考研] 352分-085602-一志愿985 +5	海納百川Ly 2026-03-29	5/250	2026-03-29 09:57 by Sjndkwm
[碩博家園] 招收生物學(xué)/細(xì)胞生物學(xué)調(diào)劑 +4	IceGuo 2026-03-26	5/250	2026-03-29 01:25 by griffith2014
[考研] 312，生物學(xué)求調(diào)劑 +3	小譯同學(xué)abc 2026-03-28	3/150	2026-03-28 15:32 by 落�？伤�
[考研] 308求調(diào)劑 +7	墨墨漠 2026-03-27	7/350	2026-03-28 07:43 by 熱情沙漠
[考研] 340求調(diào)劑 +5	jhx777 2026-03-27	5/250	2026-03-28 04:18 by fmesaito
[考研] 085601 材料工程 313分求調(diào)劑 +5	Ong3 2026-03-27	5/250	2026-03-27 12:24 by goldfish51
[碩博家園] 北京林業(yè)大學(xué)碩導(dǎo)招生廣告 +6	kongweilin 2026-03-26	8/400	2026-03-27 10:18 by FF_16
[考研] 085602 289分求調(diào)劑 +8	WWW西西弗斯 2026-03-24	8/400	2026-03-26 16:33 by 不吃魚的貓
[考研] 07化學(xué)303求調(diào)劑 +5	睿08 2026-03-25	5/250	2026-03-25 22:46 by 418490947
[考研] 302求調(diào)劑 +4	錦衣衛(wèi)藤椒 2026-03-25	4/200	2026-03-25 16:29 by 功夫瘋狂
[考研] 一志愿北化315 求調(diào)劑 +3	akrrain 2026-03-24	3/150	2026-03-24 19:35 by 了了了了。。