本帖產(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ù)此樓

» 猜你喜歡

071000生物學(xué)求調(diào)劑，初試成績(jī)343 已經(jīng)有7人回復(fù)
0703化學(xué)調(diào)劑，求導(dǎo)師收已經(jīng)有8人回復(fù)
0856材料化工調(diào)劑總分330 已經(jīng)有11人回復(fù)
本科新能源科學(xué)與工程，一志愿華理能動(dòng)285求調(diào)劑已經(jīng)有9人回復(fù)
332求調(diào)劑已經(jīng)有4人回復(fù)
085600，專業(yè)課化工原理，321分求調(diào)劑已經(jīng)有3人回復(fù)
材料工程294求調(diào)劑已經(jīng)有3人回復(fù)
295材料工程專碩求調(diào)劑已經(jīng)有7人回復(fù)
305求調(diào)劑已經(jīng)有5人回復(fù)
食品工程專碩一志愿中海洋309求調(diào)劑已經(jīng)有8人回復(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的回帖

77585218358

金蟲 (正式寫手)

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

引用回帖:

Originally posted by piduil at 2010-12-01 15:31:47:
為什么非要用fortran來干這個(gè)事情呢？
我覺得干這個(gè)并不是fortran的特長(zhǎng)，把你的需求說完整了，也許有更好的解決方案。

已經(jīng)解決了！

回復(fù)此樓

9樓2010-12-02 14:39:15

已閱回復(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的回帖

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è)簡(jiǎn)單的實(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的回帖

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的回帖

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

[考研] 311（085601）求調(diào)劑 +4	liziyeyeye 2026-03-28	4/200	2026-03-28 18:50 by 535743368
[考研] 本科新能源科學(xué)與工程，一志愿華理能動(dòng)285求調(diào)劑 +3	AZMK 2026-03-27	5/250	2026-03-28 16:19 by xxxsssccc
[考研] 312，生物學(xué)求調(diào)劑 +3	小譯同學(xué)abc 2026-03-28	3/150	2026-03-28 15:32 by 落�？伤�
[考研] 復(fù)試調(diào)劑 +3	raojunqi0129 2026-03-28	3/150	2026-03-28 15:27 by 落�？伤�
[考研] 一志愿中南大學(xué)化學(xué)0703總分337求調(diào)劑 +5	niko- 2026-03-27	5/250	2026-03-28 14:25 by 唐沐兒
[考研] 一志愿上海理工能源動(dòng)力（085800）310分求調(diào)劑 +3	zhangmingc 2026-03-27	4/200	2026-03-27 19:01 by 給你你注意休息
[考研] 272求調(diào)劑 +7	腳滑的守法公民 2026-03-27	7/350	2026-03-27 17:23 by laoshidan
[考研] 一志愿南師大0703化學(xué) 275求調(diào)劑 +4	Ripcord上岸 2026-03-27	4/200	2026-03-27 17:00 by zhyzzh
[考研] 考研調(diào)劑 +10	呼呼？~+123456 2026-03-24	10/500	2026-03-27 11:46 by wangjy2002
[考研] 316求調(diào)劑 +5	江辭666 2026-03-26	5/250	2026-03-27 08:08 by hypershenger
[考研] 化學(xué)工程085602 305分求調(diào)劑 +17	RichLi_ 2026-03-25	17/850	2026-03-26 19:44 by plmuchong
[考研] 303求調(diào)劑 +6	藍(lán)山月 2026-03-25	6/300	2026-03-25 22:47 by 418490947
[考研] 07化學(xué)303求調(diào)劑 +5	睿08 2026-03-25	5/250	2026-03-25 22:46 by 418490947
[考研] 考研調(diào)劑 +6	來好運(yùn)來來來 2026-03-21	7/350	2026-03-25 22:43 by 418490947
[考研] 一志愿南航 335分 \| 0856材料化工 \| GPA 4.07 \| 有科研經(jīng)歷 +6	cccchenso 2026-03-23	6/300	2026-03-25 22:25 by 544594351
[考研] 材料與化工304求B區(qū)調(diào)劑 +3	邱gl 2026-03-25	3/150	2026-03-25 19:03 by Ainin_
[考研] 材料調(diào)劑 +3	iwinso 2026-03-23	3/150	2026-03-25 11:29 by greychen00
[考研] 289材料與化工（085600）B區(qū)求調(diào)劑 +4	這么名字咋樣 2026-03-22	5/250	2026-03-25 08:20 by mx.yue
[考研] 384求調(diào)劑 +3	子系博 2026-03-22	6/300	2026-03-23 21:45 by 子系博
[考研] 求調(diào)劑一志愿海大，0703化學(xué)學(xué)碩304分，有大創(chuàng)項(xiàng)目，四級(jí)已過 +6	幸運(yùn)哩哩 2026-03-22	10/500	2026-03-22 20:10 by edmund7