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

77585218358

金蟲 (正式寫手)

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

[交流] 【求助】求高手關(guān)于Fortran數(shù)據(jù)讀寫的問(wèn)題�！疽淹杲Y(jié)】

現(xiàn)在有如下的數(shù)據(jù)，我想把C1 和C2 行對(duì)應(yīng)的三個(gè)數(shù)值讀寫出來(lái)，如何操作？小弟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ù)此樓

» 猜你喜歡

286分人工智能專業(yè)請(qǐng)求調(diào)劑愿意跨考！已經(jīng)有5人回復(fù)
279求調(diào)劑已經(jīng)有3人回復(fù)
336求調(diào)劑已經(jīng)有3人回復(fù)
286求調(diào)劑已經(jīng)有3人回復(fù)
一志愿華中科技大學(xué)071000，求調(diào)劑已經(jīng)有3人回復(fù)
279分求調(diào)劑一志愿211 已經(jīng)有14人回復(fù)
332求調(diào)劑已經(jīng)有3人回復(fù)
0856材料專碩353求調(diào)劑已經(jīng)有3人回復(fù)
材料學(xué)學(xué)碩080502 337求調(diào)劑-一志愿華中科技大學(xué) 已經(jīng)有5人回復(fù)
085601調(diào)劑 358分已經(jīng)有4人回復(fù)

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

Fortran如何讀取數(shù)據(jù)避開空行？已經(jīng)有7人回復(fù)
【求助】Fortran語(yǔ)言賦值問(wèn)題？已經(jīng)有3人回復(fù)
寫了一個(gè)fortran90的小程序，編譯通不過(guò)，請(qǐng)大俠幫忙已經(jīng)有59人回復(fù)
【求助】FORTRAN讀取文本文件已經(jīng)有9人回復(fù)
請(qǐng)教fortran導(dǎo)txt數(shù)據(jù)進(jìn)origin問(wèn)題已經(jīng)有1人回復(fù)
【求助】Fortran編譯目標(biāo)文件后的鏈接問(wèn)題已經(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的回帖

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

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

snoopyzhao

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

引用回帖:

Originally posted by 77585218358 at 2010-12-01 14:38:04:

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

就象我的那個(gè)那樣，open(10,.....)

贊一下

回復(fù)此樓

6樓2010-12-01 14:54:17

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

piduil

銅蟲 (初入文壇)

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

為什么非要用fortran來(lái)干這個(gè)事情呢？
我覺得干這個(gè)并不是fortran的特長(zhǎng)，把你的需求說(shuō)完整了，也許有更好的解決方案。

贊一下

回復(fù)此樓

7樓2010-12-01 15:31:47

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

snoopyzhao

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

Fortran 干這種事情還是綽綽有余的，呵呵……

贊一下

回復(fù)此樓

8樓2010-12-01 15:37:46

已閱回復(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來(lái)干這個(gè)事情呢？
我覺得干這個(gè)并不是fortran的特長(zhǎng)，把你的需求說(shuō)完整了，也許有更好的解決方案。

已經(jīng)解決了！

回復(fù)此樓

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

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

kathy2008

木蟲 (正式寫手)

應(yīng)助: 0 (幼兒園)
金幣: 2161.5
帖子: 328
在線: 213.2小時(shí)
蟲號(hào): 558502

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

引用回帖:

Originally posted by snoopyzhao at 2010-12-01 10:37:01:
一個(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) ...

版主你好，我試了一下你這一個(gè)程序，用gfortran，提示的錯(cuò)誤是
In file bbs3.f90:6

IF( INDEX(LINE, 'C1') .NE. 0 .OR. INDEX(LINE, 'C2') .NE. 0 )
1
Error: Unclassifiable statement in IF-clause at (1)

請(qǐng)指點(diǎn)。謝謝。

贊一下(1人)

回復(fù)此樓

10樓2011-05-12 09:58:10

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

snoopyzhao

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

★ ★ ★
小木蟲(金幣+0.5):給個(gè)紅包，謝謝回帖
余澤成(金幣+2): 謝謝參與應(yīng)助！ 2011-05-12 18:53:25

引用回帖:

Originally posted by kathy2008 at 2011-05-12 09:58:10:
版主你好，我試了一下你這一個(gè)程序，用gfortran，提示的錯(cuò)誤是
In file bbs3.f90:6

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

我這里的是個(gè) Fortran 77 的程序，續(xù)行符在前，你用 Fortran 90 的話，得把續(xù)行符放在上一行的后面吧……

贊一下(2人)

回復(fù)此樓

11樓2011-05-12 10:09:40

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

kathy2008

木蟲 (正式寫手)

應(yīng)助: 0 (幼兒園)
金幣: 2161.5
帖子: 328
在線: 213.2小時(shí)
蟲號(hào): 558502

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

引用回帖:

Originally posted by snoopyzhao at 2011-05-12 10:09:40:
我這里的是個(gè) Fortran 77 的程序，續(xù)行符在前，你用 Fortran 90 的話，得把續(xù)行符放在上一行的后面吧……

多謝版主。已解決。

回復(fù)此樓

12樓2011-05-12 10:16:07

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

snoopyzhao

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

★ ★ ★
小木蟲(金幣+0.5):給個(gè)紅包，謝謝回帖
余澤成(金幣+2): 其實(shí)真的想讓你加入我們版主管理團(tuán)隊(duì)，不知專家是不是有這個(gè)意愿！ 2011-05-12 18:54:11

引用回帖:

Originally posted by kathy2008 at 2011-05-12 10:16:07:
多謝版主。已解決。

俺不是版主，呵呵……

贊一下(2人)

回復(fù)此樓

13樓2011-05-12 10:16:38

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

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

[考研] 279求調(diào)劑 +3	紅衣隱官 2026-03-21	3/150	2026-03-21 11:28 by 無(wú)際的草原
[考研] 一志愿華中科技大學(xué)071000，求調(diào)劑 +3	沿岸有貝殼6 2026-03-21	3/150	2026-03-21 10:35 by 暮云清寒
[考研] 332求調(diào)劑 +3	鳳凰院丁真 2026-03-20	3/150	2026-03-21 10:27 by luoyongfeng
[考研] 南昌大學(xué)材料專碩311分求調(diào)劑 +6	77chaselx 2026-03-20	6/300	2026-03-21 07:24 by JourneyLucky
[考研] 310求調(diào)劑 +3	baibai1314 2026-03-16	3/150	2026-03-21 03:56 by JourneyLucky
[考研] 機(jī)械專碩299求調(diào)劑至材料 +3	kkcoco25 2026-03-16	4/200	2026-03-21 03:52 by JourneyLucky
[考研] 297求調(diào)劑 +9	戲精丹丹丹 2026-03-17	9/450	2026-03-21 01:49 by JourneyLucky
[考研] 一志愿華中科技大學(xué)，080502，354分求調(diào)劑 +5	守候夕陽(yáng)CF 2026-03-18	5/250	2026-03-21 01:06 by JourneyLucky
[考研] 【考研調(diào)劑】化學(xué)專業(yè) 281分，一志愿四川大學(xué)，誠(chéng)心求調(diào)劑 +8	吃吃吃才有意義 2026-03-19	8/400	2026-03-21 00:49 by 劉國(guó)森
[考研] 一志愿西南交大，求調(diào)劑 +5	材化逐夢(mèng)人 2026-03-18	5/250	2026-03-21 00:26 by JourneyLucky
[考研] 274求調(diào)劑 +10	S.H1 2026-03-18	10/500	2026-03-20 23:51 by JourneyLucky
[考研] 本人考085602 化學(xué)工程專碩 +19	不知道叫什么！ 2026-03-15	21/1050	2026-03-20 20:48 by zhukairuo
[考研] 295材料求調(diào)劑，一志愿武漢理工085601專碩 +5	Charlieyq 2026-03-19	5/250	2026-03-20 20:35 by JourneyLucky
[考研] 353求調(diào)劑 +3	拉鉤不許變 2026-03-20	3/150	2026-03-20 19:56 by JourneyLucky
[考研] 招收調(diào)劑碩士 +4	lidianxing 2026-03-19	12/600	2026-03-20 12:25 by lidianxing
[考研] 277調(diào)劑 +5	自由煎餅果子 2026-03-16	6/300	2026-03-17 19:26 by 李leezz
[考研] 有沒有道鐵/土木的想調(diào)劑南林，給自己招師弟中～ +3	TqlXswl 2026-03-16	7/350	2026-03-17 15:23 by TqlXswl
[考研] 一志愿蘇州大學(xué)材料工程（085601）專碩有科研經(jīng)歷三項(xiàng)國(guó)獎(jiǎng)兩個(gè)實(shí)用型專利一項(xiàng)省級(jí)立項(xiàng) +6	大火山小火山 2026-03-16	8/400	2026-03-17 15:05 by 無(wú)懈可擊111
[考研] 283求調(diào)劑 +3	聽風(fēng)就是雨； 2026-03-16	3/150	2026-03-17 07:41 by 熱情沙漠
[考研] 一志愿211 0703方向310分求調(diào)劑 +3	努力奮斗112 2026-03-15	3/150	2026-03-16 16:44 by houyaoxu